![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Доброго времени суток!
Как видно по заголовку, на форме присутствует ListBox. Задача такая: отрисовать самому пункты списка, но сделать так, чтобы выбранный пункт списка был отличного размера от невыделенных (больше) + добавить на него несколько кнопок. Можно ли такое реализовать? Использую следующий код, но он не работает: Код:
procedure MyListBoxMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer); begin if Index = TListBox(Control).ItemIndex then Height := 50 else Height := 20; end; Заранее спасибо! Работа пpогpаммиста и шамана имеет очень много общего: оба боpмочyт непонятные слова, совеpшают непонятные действия и не могyт объяснить, как оно pаботает. |