Доброго времени суток!
Как видно по заголовку, на форме присутствует ListBox. Задача такая:
отрисовать самому пункты списка, но сделать так, чтобы выбранный
пункт списка был отличного размера от невыделенных (больше) +
добавить на него несколько кнопок. Можно ли такое реализовать?
Использую следующий код, но он не работает:
Код:
procedure MyListBoxMeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
begin
if Index = TListBox(Control).ItemIndex then
Height := 50
else Height := 20;
end;
Заранее спасибо!