Текущий архив: 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.026 c
