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

Previous  Top  Next

    
 

 

 

Code:

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.

©Drkb::00653

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