Текущий архив: 2002.10.17;
Скачать: CL | DM;

Вниз

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;

---

← →
rhf ©   (2002-10-07 03:03) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.17;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.018 c