aTAdvSmoothListBox and color item

VCL TMS VCL UI Pack
1

Hello,

I'd like to know if I can have itens with different color,

If so, how could I do that? for example, I have 10 itens and for iten 2 I want to have the color of it of yellow,

the item 7 in color blue.

thanks
Alex

2

I found the way, but I didn't find the way to show the text that was in my item. If you cold help me on this, I thank very much.

The way I found:

procedure TFEditorQuestOP.ListMatrizItemDraw(Sender: TObject;
  Canvas: TCanvas; itemindex: Integer; itemrect: TRect;
  var defaultdraw: Boolean);
begin
  if itemindex = 2 then Begin
     defaultdraw := false;
     Canvas.Brush.Color := clRed;
     Canvas.Font.Color := clWhite;
     Canvas.FillRect(itemrect);
  end;

3

Hi, 


Please use the OnItemCustomizeFill event:

procedure TForm694.AdvSmoothListBox1ItemCustomizeFill(Sender: TObject;
  Item: TAdvSmoothListBoxItem; AFill, ADisabledFill, ASelectedFill: TGDIPFill);
begin
  AFill.Color := clRed;
end;

Kind Regards, 
Scheldeman Pieter