Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Imagenes en Combobox/Listbox (https://www.clubdelphi.com/foros/showthread.php?t=80474)

Bicho 13-06-2006 10:18:29

Imagenes en Combobox/Listbox
 
En primer lugar, hay que poner un ImageList en el form, con las imágenes que querramos usar.

Tanto para el combobox como el listbox hay que poner la propiedad Style a lbOwnerDrawFixed.

Por último pondremos éste código en el evento OnDrawItem:
Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox) do begin //  with (Control as TCombobox) do begin --según el componente que querramos usar
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left+ImageList1.Height+2,Rect.Top,Items[Index]);
     ImageList1.Draw(Canvas,Rect.Left,Rect.Top,Index);
  end;
end;


La franja horaria es GMT +2. Ahora son las 12:21:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi