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

Вниз

listbox выводить текст разным цветом   Найти похожие ветки 

← →
redlord   (2006-10-01 14:20) [0]

всем привет
извените что поднимаю ету тему в сотый раз.
подскажите как в listbox выводить текст разным цветом для определенного итема?

P.S. ссылки на старые обсуждения этой темы приветствуются

---

← →
Джо ©   (2006-10-01 14:24) [1]

ListBox1.Style := lsOwnerDrawFixed;
Обработчик события OnDrawItem:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 with TListBox(Control).Canvas do
 begin
   // Тут, в зависимости от своих условий,
   // можешь задать цвет для
   // шрифта — Font.Color
   // или рамки выделения — Brush.Color
   if odSelected in State then
   begin
     Brush.Color := clActiveCaption;
     Font.Color := clHighlightText;
   end
   else
   begin
     Brush.Color := clWindow;
     Font.Color := clWindowText;
   end;
   ListBox1.Canvas. FillRect (Rect);

   TextOut(Rect.Left,Rect.Top,TListBox(Control).Items[Index]);

 end;
end;


---

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

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

Наверх

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