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

← →
Novichek © (2002-10-07 02:12) [0]

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

← →
PKT (2002-10-07 02:53) [1]

А почему Вы не воспользовались примером из 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;

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

ListBox : можно ли отдельные строки выделить шрифтом? Найти похожие ветки