listbox выводить текст разным цветом [D7, XP]
redlord © (2006-10-01 14:20:00)
всем привет
извените что поднимаю ету тему в сотый раз.
подскажите как в listbox выводить текст разным цветом для
определенного итема?
P.S. ссылки на старые обсуждения этой темы
приветствуются
Джо (2006-10-01 14:24:00) [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;
Наверх 
ЧАТ |
Орешник |
|
