Как в ListBox нарисовать Item своим цветом?

Материал из DRKB

Как в ListBox нарисовать Item своим цветом?[править | править код]

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; 
  Rect: TRect; State: TOwnerDrawState); 
begin 
  with ListBox1 do 
  begin 
    if odSelected in State then 
      Canvas.Brush.Color := clTeal { твой цвет } 
    else 
      Canvas.Brush.Color := clWindow; 
    Canvas.FillRect(Rect); 
    Canvas.TextOut(Rect.Left+2, Rect.Top, Items[Index]); 
  end; 
end;


Hе забудьте установить свойство Style у своего ListBox в lbOwnerDrawFixed или в lbOwnerDrawVariable.


Source: Взято из http://forum.sources.ru
ID: 00653