Сортировка в ListView [D5, Win95/98]
AlexeyMir © (2002-10-18 11:02:00)
Дайте пожалуйста кусок проги как работать с WorkArea
установить рабочую область и отсортировать ее. У меня Style в
ListView поставлен vsReport, т.е. по нажатию на заголовок колонки я
хочу отсортировать.
F1 (2002-10-18 13:01:00) [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;
Наверх 
ЧАТ |
Орешник |
|
