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

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

ListBox : можно ли отдельные строки выделить шрифтом? [D6]

Novichek ©   (2002-10-07 02:12:00) 

например сделать так, что бы по какому-то условию нужная строка делалась жирной. используя ListBox1DrawItem? если можно - дайте пример.

---

rhf   (2002-10-07 03:03:00) [1]

осталось добавить, что listBox.style нужно поставить в lbOwnerDrawFixed/Variable

---

PKT   (2002-10-07 02:53:00) [2]

А почему Вы не воспользовались примером из Help-a ?
Там очень хороший пример.

Вот его вольная интерпретация:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
Offset: Integer;
begin
with (Control as TListBox).Canvas do
begin
FillRect(Rect);
Offset := 2;

// Например, такое условие
if Index = 3
then
Font.Style := [fsBold]
else
Font.Style := [];

TextOut(Rect.Left + Offset, Rect.Top,
(Control as TListBox).Items[Index]);
end;
end;

---

Наверх