| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сделать другой шрифт в строке CheckListBoxa [D7, Win2k, WinXP]

JanMihail ©   (2007-06-03 22:02:00) 

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

---

JanMihail   (2007-06-04 11:52:00) [1]

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

---

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

> Kilkenny

А где кот?
:)

---

Kilkenny   (2007-06-03 22:55:00) [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;


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

---

JanMihail   (2007-06-03 22:13:00) [4]

> OwnerDraw

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

---

Kilkenny   (2007-06-03 22:03:00) [5]

OwnerDraw

---

Наверх