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

Вниз

Добавление иконки в ListView   Найти похожие ветки 

 
kofman   (2003-03-12 21:37) [0]

Столкнулся с такой проблемой: в ListView хочу напротив каждого добавленного пункта нарисовать иконку (там список файлов и иконка соотв. типу этого файла), выставляю свойство OwnerDraw в true и обрабатываю событие OnDrawItem, иконки рисуются замечательно, но напрочь пропадает прямоугольник которым обводится выделенный пункт списка, что надо сделать, может кто-нибудь подскажет?


 
Gorik   (2003-03-12 21:45) [1]

ListView1.LargeImages := ImageList1;
ListView1.SmallImages := ImageList2;

/////
with ListView1.Items.Add do
begin
Caption := FileName;
if IsDirectory(FileName) then ImageIndex := 1
else ImageIndex := 2
end;
/////


 
kDenis   (2003-03-12 21:48) [2]

Помойму, там можна рисовать по канве ( TCanvas), как в PaintBox


 
KpeHgeJIb   (2003-03-12 22:31) [3]

Зачем их рисовать в ручную? добавляй их и TImageList и присваевай войству ImageIndex элемента номер иконки в листе. Воспользуйся приблезительным примеом который тебе Gorik написал.


 
kofman   (2003-03-13 21:39) [4]

Спасибо за совет, я че-то и не подумал о ImageIndex, но может кто-то с OnDrawItem примерчик кинет, ведь не всегда удобно использовать imageList



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

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

Наверх




Память: 0.44 MB
Время: 0.007 c
1-87923
Vint45
2003-03-17 11:30
2003.03.27
Динамический массив


6-88104
dimich1978
2003-02-05 08:32
2003.03.27
Помогите с правильным написанием обращения к процедуре?


14-88201
ilya53
2003-03-11 09:17
2003.03.27
API


14-88250
Мыш
2003-03-08 15:33
2003.03.27
Как изменить работу стандартных компонентов ?


1-88047
WMag
2003-03-14 23:53
2003.03.27
Коллекции данных





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский