Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c