en la forma pon un listbox
ponle la propiedad Style a lbOwnerDrawFixed
y pon este codigo en el evento OnDrawItem
ademas pon un Imagelist y carga las imagenes de los items.
procedure TForm1.lbNicksDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
var Graph: TBitmap;
begin
with (Control as TListBox) do
begin
Canvas.Font.Color:=[El color que quieras para la letra]
Canvas.Brush.Color:=[El color que quieras para el fondo]
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+Imagelist1.Height+2,Rect.Top,Items[Index]);
Graph:=TBitmap.Create;
Imagelist1.GetBitmap([index de la imagen para este item],Graph);
Graph.Transparent:=True;
Canvas.Draw(Rect.Left,Rect.Top,Graph);
Graph.Free;
end;
end;
Esto debe funcionar, si no escribeme a:
angela.sardinas@infomed.sld.cu y yo te ayudo con el error.
Carlos