Вниз
Скачать: CL | DM;

Сортировка в TListView через stdcall функцию   Найти похожие ветки 

 
И. Павел ©   (2010-09-21 09:18) [0]

Здравствуйте.

Использую несколько ListView (ViewStyle = vsReport). При нажатии на колонку сортирую список спомощью метода CustomSort. Но список сортируется правильно только если ListVirew имеет больше одного столбца (т.е. SubItems.Count > 0). Иначе строки с установленным флажком (Checked = true) отображаются не первыми, а в перемешку. Но стоит только добавить новый столбец - и все работает правильно.
Подскажите, пожалуйста, с чем это связано? Может быть я что-то написал не так, или все же это особенность самого объекта?

Заранее спасибо.

PS: Вот код вызова сортировки и функции сравнения:

LV.CustomSort(@SortWithCheck, 0);

function SortWithCheck(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
 if (Item1.Checked) and (not Item2.Checked) then result := -1
 else if (not Item1.Checked) and (Item2.Checked) then result := 1
 else if Item1.Caption > Item2.Caption then result := -1
 else if Item2.Caption > Item1.Caption then result := 1
 else if (Item1.SubItems.Count > 0) and (Item1.SubItems[0] > Item2.SubItems[0]) then Result := 1
 else if (Item1.SubItems.Count > 0) and (Item2.SubItems[0] > Item1.SubItems[0]) then Result := -1
 else result := 0;
end;


 
MBo ©   (2010-09-21 10:03) [1]

Похоже, глюк.
Во время сортировки иногда неверно определяется Checked.


 
icWasya ©   (2010-09-21 11:46) [2]

А вся сортировка происходит в недрах Windows.


 
И. Павел ©   (2010-09-21 13:34) [3]

MBo ©, icWasya ©
Спасибо. На всякий случай я сделал сортировку только по Caption и SubString[0]. Хотя, вроде бы, с двумя колонками сортировка идет нормально, но не понятно - как число колонок может повлиять на правильность сортировки :)


 
icWasya ©   (2010-09-21 16:15) [4]

А если отсортировать дважды, то вроде бы ситуация исправляется.


 
И. Павел ©   (2010-09-21 16:25) [5]

> А если отсортировать дважды, то вроде бы ситуация исправляется.

Это если мало пунктов выбрано (checked = true). А если много - для сортировки требуется еще большее число вызовов - постепенно все встает на место.



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

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



Память: 0.46 MB
Время: 0.009 c
3-1248979662
Sysdba
2009-07-30 22:47
2010.12.12
Проблема начинающего с Interbase/Firebird


15-1283699038
Beginner
2010-09-05 19:03
2010.12.12
JEDI для D2009


2-1284824389
Festil
2010-09-18 19:39
2010.12.12
Влияние действий друг на друга


3-1248842568
Дренте
2009-07-29 08:42
2010.12.12
SQL. Не могу решить запрос


2-1284621331
JohnKorsh
2010-09-16 11:15
2010.12.12
Можно ли средствами Delphi создать WiFi Ad-Hock сеть?




   Наверх