Текущий архив: 2003.10.13;
Скачать: CL | DM;
Вниз
Три вопроса по 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
Страницы: 1 вся ветка
Текущий архив: 2003.10.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
