Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизСортировка в 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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c