Сортировка в ListView по индексу иконки

← →
.ruslan © (2005-08-21 11:59) [0]

Здравствуйте мастера, помогите с решением задачи:
Как в TListView сделать сортировку по индексу иконки?

Просьба показать код, я пока в этой среде не грамотный ;)

← →
begin...end © (2005-08-21 12:12) [1]

Добавить в список uses модуль Math, написать такой обработчик ListView.OnCompare:

procedure TMyForm.ListViewCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); begin Compare := CompareValue(Item1.ImageIndex, Item2.ImageIndex) end

и вызвать ListView.AlphaSort.

← →
.ruslan © (2005-08-21 12:20) [2]

не покатило :(
хорошо, а как сделать сортировку по скажем третей колоне?

← →
begin...end © (2005-08-21 12:23) [3]

> .ruslan © (21.08.05 12:20) [2]

> не покатило :(

Вы о чём?

> хорошо, а как сделать сортировку по скажем третей колоне?

Примерно так же, только в TListView.OnCompare нужно сравнивать не ImageIndex, а SubItems[1].

← →
.ruslan © (2005-08-21 12:37) [4]

[Error] Unit1.pas(565): There is no overloaded version of "CompareValue" that can be called with these arguments

Замени CompareValue -> CompareStr

спасибо, всё работает

Сортировка в ListView по индексу иконки Найти похожие ветки