Как сделать другой шрифт в строке 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;

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

> Kilkenny

А где кот?
:)

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

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