Скачать: CL | DM;

Обработка OnDrawItem для ListBox а   Найти похожие ветки 

← →
SergLight ©   (2002-04-17 18:35) [0]

Надо выделить некоторые элементы жирным шрифтом.
Задал Style = lbOwnerDrawFixed
написал обработчик
...
with TListBox(Control) do
begin
if Index < 5 then
Font.Style := [fsBold]
else
Font.Style := [];
Canvas.FillRect(Rect);
Canvas.TextOut (Rect.Left, Rect.Top, Items[Index]);
end;...
но теперь ListBox постоянно мерцает.
Помогите исправить.

---

← →
Song ©   (2002-04-17 18:43) [1]

Canvas.Font.Style:=[fsBold] else ...

---

← →
SergLight ©   (2002-04-17 19:17) [2]

Спасибо, недоглядел видимо - пора поспать.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c