Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Обработка 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]

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх







Память: 0.74 MB
Время: 0.019 c
3-94290           Logic                 2002-04-08 15:50  2002.04.29  
Перенос данных из MS SQL в MS Access


4-94606           Velocity              2002-02-20 05:50  2002.04.29  
Кто-нить знает как юзать LB_GETTEXT?


3-94259           kopachev              2002-04-07 15:03  2002.04.29  
Отчет в fast report


1-94418           Stan Orlov            2002-04-18 09:06  2002.04.29  
Как выделить весь текст в RichEdit или Memo?


6-94521           vajo                  2002-01-17 10:06  2002.04.29  
Права доступа к папкам.