Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Imagen en ComboBox (PicList) de AdvStringGrid (https://www.clubdelphi.com/foros/showthread.php?t=58950)

MaMu 07-08-2008 01:43:18

Imagen en ComboBox (PicList) de AdvStringGrid
 
Alguien conoce el componente AdvStringGrid (TMS). Habrá forma de desplegar el ComboBox en una celda (inplace editor) pero con iconos al costado?, como en el ComboBoxEx, sino, assiganarle un TComboBox el cual ya tiene pintada las imagenes como iconos. He revisado la documentacion, pero no encuentro nada.

Saludos

Luis M. 07-08-2008 14:17:17

Hola MaMu.
En la carpeta donde tengas instalado los componentes hay un ejemplo.
Concretamente en la carpeta AdvStringGrid->asg24.
La última columna del ejemplo trae lo que quieres.
Espero te sirva.
Un saludo.

MaMu 07-08-2008 23:09:14

Y sabrias como pintar imagenes en un TxLookUpEdit? (estilo TComboLookUp)

En un TComboBox, lo hago en OnDrawItem, pero estos que te menciono no tienen este evento.

(ejemplo para un TComboBox)

Código Delphi [-]
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var 
  bTemp: TBitmap;
begin 
  bTemp := TBitmap.Create;
  if Index < ImageList1.Count then 
    ImageList1.GetBitmap(Index,bTemp);
 
  with (Control as TComboBox) do 
  begin 
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + ImageList1.Height + 2, Rect.Top, Items[Index]);
    Canvas.Draw(Rect.Left, Rect.Top, bTemp);
  end; 
  bTemp.Free;
end;

Luis M. 08-08-2008 14:27:03

Cita:

Empezado por MaMu (Mensaje 306447)
Y sabrias como pintar imagenes en un TxLookUpEdit? (estilo TComboLookUp)

Lo siento, no conozco ese componente.

Un saludo.


La franja horaria es GMT +2. Ahora son las 19:14:09.

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