| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сортировка в ListView по индексу иконки [D7, WinXP]

.ruslan ©   (2005-08-21 11:59:00) 

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

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

---

.ruslan   (2005-08-21 12:57:00) [1]

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

---

Наиль   (2005-08-21 12:38:00) [2]

Замени CompareValue -> CompareStr

---

.ruslan   (2005-08-21 12:37:00) [3]

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

---

begin...end   (2005-08-21 12:23:00) [4]

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

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

Вы о чём?

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

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

---

.ruslan   (2005-08-21 12:20:00) [5]

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

---

begin...end   (2005-08-21 12:12:00) [6]

Добавить в список 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.

---

Наверх