Три вопроса по ListBox у

← →
Анатолий (2003-10-01 00:03) [0]

У меня три вопроса по ListBox"у.
1) Как для каждого item"а сделать свой фон(загружаемый из ресурсов)
2)При клике на Item"е фон должен меняться
3)Как снять выделение у Item"a? ну или хотя бы сделать прозрачную рамку?

← →
Miwa (2003-10-01 01:35) [1]

Проработайте событие OnDrawItem.

← →
pasha (2003-10-01 03:35) [2]

Небольшие дополнения:
свойство Style -> lbOwnerDrawFixed и обрабатывать событие OnDrawItem. В данном случае все елементы имеют одинаковую высоту, задаёться свойством ItemHeight.

свойство Style -> lbOwnerDrawVariable и обрабатывать надо два события:
1. событие OnMeasureItem. Установка высоты для одного елемента
2. событие OnDrawItem.
В данном случае все елементы имеют разную высоту, задаёться в обработчике события OnMeasureItem.

← →
Анатолий (2003-10-01 03:50) [3]

Поместить картинку в итем я еще смогу,а как ее сделать фоном???

← →
pasha (2003-10-01 04:11) [4]

Отвечаю на ваш вопрос:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin ListBox1.Canvas.StretchDraw(Rect,Image1.Picture.Graphic); end;

← →
Анатолий (2003-10-01 06:59) [5]

Картинка помещается в итем но текста не видно..:-(

← →
Song (2003-10-01 09:12) [6]

Текст рисуется через DrawText
См. здесь: http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1037272197

Три вопроса по ListBox у Найти похожие ветки