Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];

Вниз

Сортировка в 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


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

Замени CompareValue -> CompareStr


 
.ruslan ©   (2005-08-21 12:57) [6]

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



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

Форум: "Основная";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.011 c
2-1123593226
DeepProg
2005-08-09 17:13
2005.09.11
ADOQuery.Open. SELECT


1-1124525245
slaga
2005-08-20 12:07
2005.09.11
Переопределение функций


1-1124632605
chortik
2005-08-21 17:56
2005.09.11
scrollbar


14-1124179033
syte_ser78
2005-08-16 11:57
2005.09.11
Последнее усилие перед отпуском.


2-1123253534
Андрей235
2005-08-05 18:52
2005.09.11
Люди помогите сам никак...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский