Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.08.12;
Скачать: CL | DM;

Вниз

Как сделать другой шрифт в строке CheckListBoxa   Найти похожие ветки 

 
JanMihail ©   (2007-06-03 22:02) [0]

Как можно поменять шрифт и стиль шрифта в строке CheckListBoxa. Имеется ввиду только строка с определенным номером или несколько строк.


 
Kilkenny   (2007-06-03 22:03) [1]

OwnerDraw


 
JanMihail ©   (2007-06-03 22:13) [2]


> OwnerDraw

Пожалуйста по подробнее! Что OwnerDraw?


 
Kilkenny   (2007-06-03 22:55) [3]

Устанавливаем стиль (Style) в lbOwnerDrawFixed
В onDrawItem работаем:

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 if index = 0 then CheckListBox1.Canvas.font.Color := clGreen
   else CheckListBox1.Canvas.font.Color := clRed;
 CheckListBox1.Canvas.TextOut(Rect.Left, Rect.Top, CheckListBox1.Items[Index]);
end;


Это примитив. Здесь не проверяется наличие хотя бы одного элемента, здесь не убирается "мусор" отрисовки.... но для понимания вполне.


 
Германн ©   (2007-06-04 01:58) [4]


> Kilkenny

А где кот?
:)


 
JanMihail ©   (2007-06-04 11:52) [5]

Спасибо большое!!!



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

Текущий архив: 2007.08.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
15-1184534328
Аффтар
2007-07-16 01:18
2007.08.12
Скачать *.avi


2-1184135112
Б.А.С.
2007-07-11 10:25
2007.08.12
Программный вход в систему


15-1184592922
Sdubaruhnul
2007-07-16 17:35
2007.08.12
Война браузеров доходит до идиотизма


2-1184396614
Officeman
2007-07-14 11:03
2007.08.12
Как изравить от такого разделителя ?


2-1184748455
Groza
2007-07-18 12:47
2007.08.12
Как поменять метку диска с помощью Delphi?