StringGrid - как сделать верхние хреновины нажимаемыми.

← →
greenrul © (2002-06-21 14:33) [0]

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

← →
Kaban © (2002-06-21 14:43) [1]

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

← →
Magic © (2002-06-21 15:01) [2]

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

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

← →
Kaban © (2002-06-21 15:02) [3]

Думаю в OnDrawCell

← →
MBo © (2002-06-21 15:09) [4]

сортировка строк пузырьком по числу в нажатой колонке
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;

← →
Lord Warlock © (2002-06-21 15:12) [5]

> MBo ©

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

← →
Kaban © (2002-06-21 15:14) [6]

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

← →
MBo © (2002-06-21 15:16) [7]

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

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

← →
Lord Warlock © (2002-06-21 15:16) [8]

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

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

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

StringGrid - как сделать верхние хреновины нажимаемыми. Найти похожие ветки