Скачать: CL | DM;

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

← →
Gregory   (2002-10-09 20:36) [0]

У меня в окне выводиться 3 поля с информацией: название, дата, отправитель. Это выводиться используя TListView. Необходимо по выбору сортировать соответствующее поле. Каким образом это можно сделать используя TListView? Спасибо за ответ.

---

← →
Anatoly P   (2002-10-12 23:16) [1]

var ColumnToSort: Integer; сделай глобальной



procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);

begin
ColumnToSort := Column.Index;
(Sender as TCustomListView).AlphaSort;
end;




procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
var
ix: Integer;
begin
if ColumnToSort = 0 then
Compare := CompareText(Item1.Caption,Item2.Caption)
else begin
ix := ColumnToSort - 1;
Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
end;

end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.012 c