Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

StringGrid - как сделать верхние хреновины нажимаемыми. [D6, Win95/98]


greenrul ©   (2002-06-21 14:33:00) 

Чтобы можно было сортировать по значениям столбцов?


MBo   (2002-06-21 17:52:00) [1]

>Song
UBPFD
это культурное слово ;)


Song   (2002-06-21 17:09:00) [2]

2MBo, ещё только осталось привести SGExchangeRows() :-))


Lord Warlock   (2002-06-21 15:17:00) [3]

да еще и с условием айверсона :)
а обычно предпочитаю сортировку Шелла


MBo   (2002-06-21 15:16:00) [4]

>Lord Warlock
====================================================================
> 4. Сортировка пузырьком(BubbleSort) и ее улучшения.
====================================================================

Операция сравнения/перестановки выполняется для каждых двух стоящих
рядом элементов. После первого прохода по массиву "вверху" оказывается
самый "легкий" элемент. Следующий цикл сортировки выполняется начиная
со второго элемента, в результате чего вторым в массиве оказывается
второй наименьший по величине элемент, и так далее.


Lord Warlock   (2002-06-21 15:16:00) [5]


> Kaban ©

точно, точно, извиняюсь ,только я всегда его по другому записываю


Kaban   (2002-06-21 15:14:00) [6]

2Lord Warlock
Здрасте!
В чистом виде


Lord Warlock   (2002-06-21 15:12:00) [7]


> MBo ©


Это не пузырек :)))


MBo   (2002-06-21 15:09:00) [8]

сортировка строк пузырьком по числу в нажатой колонке
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var Acol,ARow,i,j:Integer;
begin
with stringgrid1 do begin
MouseToCell(X,Y,Acol,Arow);
if (Arow=0) and (Acol>=FixedCols) then
for i:=FixedRows to RowCount-2 do
for j:=i+1 to RowCount-1 do
if Strtoint(Cells[Acol,i])>strtoint(Cells[Acol,j]) then
SGExchangeRows(StringGrid1,i,j);
end;
end;


Kaban   (2002-06-21 15:02:00) [9]

Думаю в OnDrawCell


Magic   (2002-06-21 15:01:00) [10]


> Я думаю в StringGrid придется самому отрисовывать фиксированные
> столбцы


Т.е. использовать DrawFrameControl?


Kaban   (2002-06-21 14:43:00) [11]

А может использовать TListView
Я думаю в StringGrid придется самому отрисовывать фиксированные столбцы


Наверх

Титульная страница Поиск, карта сайта Написать письмо