Сортировка в ListView

← →
AlexeyMir (2002-10-18 11:02) [0]

Дайте пожалуйста кусок проги как работать с WorkArea установить рабочую область и отсортировать ее. У меня Style в ListView поставлен vsReport, т.е. по нажатию на заголовок колонки я хочу отсортировать.

← →
F1 (2002-10-18 13:01) [1]

За сортировку отвечает событие
TFirm1.ListView1.OnCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
begin
//Здесь естественно с учетом номера колонки нужно сделать
case ColumnIndex of
case 0:
Compare:=CompareText(Item1.Caption,Item2.Caption);
else
Compare:=CompareText(Item1.SubItems.Strings[0],
Item2.SubItems.Strings[0]);
end;
//Я так вот и делал(только без WorkArea;)
end;

procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
ColumnIndex=Column.Index;
//Чтобы отсортировать нужно вызвать
ListView1.AlphaSort;
end;

Сортировка в ListView Найти похожие ветки