Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.25;
Скачать: CL | DM;

Вниз

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

 
BillyJeans ©   (2003-08-11 15:29) [0]

Сортировка в ListView по SubItems... Возможно ли такое стандартными методами ListView?


 
Семен Сорокин ©   (2003-08-11 15:31) [1]

макро ListView_SortItems из commctrl.pas


 
MBo ©   (2003-08-11 15:33) [2]

CustomSort


 
dataMaster ©   (2003-08-11 15:37) [3]

Вот две процедуры:

1. Сортировка по строкам:
function CustomStringSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
result:=0;
if ParamSort=0 then
if (Item1.Caption)>(Item2.Caption) then Result :=1 else
if (Item1.Caption)<(Item2.Caption) then Result :=-1 else
else
if (Item1.SubItems[ParamSort-1])>(Item2.SubItems[ParamSort-1]) then Result :=1 else
if (Item1.SubItems[ParamSort-1])<(Item2.SubItems[ParamSort-1]) then Result :=-1;
end;

procedure LV_SortStr(LV : TListView; ColumnIndex : integer);
begin
LV.CustomSort(@CustomStringSortProc, ColumnIndex);
end;


2. Сортировка по датам.
function CustomDateSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
result:=0;
if ParamSort=0 then
if StrToDate(Item1.Caption)>StrToDate(Item2.Caption) then Result :=1 else
if StrToDate(Item1.Caption)<StrToDate(Item2.Caption) then Result :=-1 else
else
if StrToDate(Item1.SubItems[ParamSort-1])>StrToDate(Item2.SubItems[ParamS ort-1]) then Result :=1 else
if StrToDate(Item1.SubItems[ParamSort-1])<StrToDate(Item2.SubItems[ParamS ort-1]) then Result :=-1 else
end;

procedure LV_SortDate(LV : TListView; ColumnIndex : integer);
begin
LV.CustomSort(@CustomDateSortProc, ColumnIndex);
end;


Применение:
LV_SortStr(ListView1, 2);

либо

LV_SortDate(ListView1, 3);

в зависимости от содержимого ячеек. Думаю, что проблем быть не должно.


 
BillyJeans ©   (2003-08-11 16:01) [4]


> dataMaster © (11.08.03 15:37) [3]

Благодарю, получилось!


 
BillyJeans ©   (2003-08-11 16:21) [5]

Если кому интересно, заменил сортировку по строкам на следующее:

function CustomStringSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
if ParamSort = 0 then Result := CompareText(Item1.Caption, Item2.Caption)
else Result := CompareText(Item1.SubItems[ParamSort-1], Item2.SubItems[ParamSort-1]);
end;



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

Текущий архив: 2003.08.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.037 c
1-81664
ХМЛ-щик
2003-08-08 14:53
2003.08.25
XPath. Как разрулить между двойными и одинарными кавычками?


1-81612
Felk
2003-08-13 10:11
2003.08.25
Перехват вывода


14-81907
Rel_
2003-08-06 10:18
2003.08.25
Связка Delphi - Builder


14-81888
AFrolov
2003-08-06 16:30
2003.08.25
Вот еще 1 история...


1-81712
Relaxxx
2003-08-10 20:06
2003.08.25
Фокус Мемо когда он на ходится на форме стиля fsMDIChild