ComboBoxEx y ImageList

[emme_juegos]

hola de nuevo!

necesito, si es que hay, un codigo para que cada item del comboboxex obtenga una imagen de un imagelist

yo he intentado con esto:

Código Delphi [-]
ComboBoxEx1.ItemsEx.ComboItems.ImageIndex:=FormBaseDeDatos.ImageList1. (y ahora no se como seguir)

quiero saber si se puede asi es mas facil y te ahorras mucho trabajo... necesito 193 items!!

chau y gracias!!

[ecfisa]

Hola.

Te pongo un ejemplo para cargar un TComboBoxEx desde un TImageList, y también un TComboBox como alternativa:

Código Delphi [-]
...
{ Cargar ComboBoxEx y ComboBox }
procedure TForm1.FormShow(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to ImageList1.Count -1 do
  begin
    // Cargar TComboBoxEx 
    ComboBoxEx1.ItemsEx.AddItem('Item '+IntToStr(i), i, i, 0, 0, nil)
   // Cargar TComboBox 
    ComboBox1.Items.Add('Item '+IntToStr(i));
  end;
end;

{ Mostrar imágen + Item en el TComboBox }
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; 
                                   Rect: TRect; State: TOwnerDrawState);
begin
  // Rellenar el area
  ComboBox1.Canvas.FillRect(Rect);
  // Dibujar la imágen actual
  ImageList1.Draw(ComboBox1.Canvas, Rect.Left, Rect.top,Index);
  // Dibujar imágen y texto
  ComboBox1.Canvas.TextOut(Rect.left + ImageList1.Width+2, Rect.top, ComboBox1.Items[Index]);
end;
...

Saludos.

[rgstuamigo]

Empezado por emme_juegos

necesito, si es que hay, un codigo para que cada item del comboboxex obtenga una imagen de un imagelist
...

Si te estoy entendiendo bien lo que pretendes hacer, pues para tener los item del ComboBoxEx con las imagenes de un ImageList, no necesitas codificar nada, simplemente debes enganchar la propiedad Images del ComboBoxEx con tu componente ImageList y posteriormente ir a la propiedad ItemEx del ComboBoxEx y crear todos los item (TComboExItems) que veas necesario mostrar, por supuesto cada Item (TComboExItems) que crees debes engancharle su respectiva imagen atravez de su propiedad ImageIndex
Saludos...

[FENIXadr]

Hola ecfisa...
Probé el código que publicaste pero he tenido algunos prblemas...

en primer lugar quiero comentarte que estoy haciendo una lista desplegable con los drives de la PC y quiería colocarle el dibujito del drive para que estéticamente quedara mejor, opté por un ComboBoxEx, pero la función AddItem me agrega un renglón en balnco, o sea que se despliega una lista con la cantidad de renglones acorde a la cantidad de drives, pero sin mostrar ningun nombre ni imagen, lo mismo sucede si quiero agregar un nombre sin imagen con la funcion Add.
Éstas funciones son muy transparentes y se supone que deberían funcionar sin tener que activar ninguna bandera o algo asi antes de usarlas.. no se.. no le encuentro lógica a este problema.

Después de renegar un rato me decidí por el ComboBox común y he aquí que surge otro problema... NUNCA y no se porque pero NUNCA entra al evento OnDrawItem, por lo tanto me muestra los drives, pero no las imagenes, acá la funcion Add (que la uso igual que en el ComboBoxEx) si funciona correctamente..


Que es lo que puede estar pasndo???

desde ya muchas gracias...

[ecfisa]

NUNCA y no se porque pero NUNCA entra al evento OnDrawItem, por lo tanto me muestra los drives, pero no las imagenes

Que es lo que puede estar pasndo???

Hola FENIXadr.

El evento OnDrawItem sólo funciona si el ComboBox tiene la propiedad Style en csOwnerDrawFixed o en csOwnerDrawVariable.

.csOwnerDrawFixed: Cada item tendrá la altura especificada en la propiedad ItemHeight.
.csOwnerDrawVariable: Cada item puede tener alturas diferentes.


Un saludo.

[FENIXadr]

ok.. gracias...

pregunto... si yo tengo asignado en el evento OnClick de un TTreeView un procedimiento del Form1 (definido por el usuario) y en tiempo de ejecucion cambio este procedimiento (en el constructor del componente), como hago para no perder el anterior?? o sea yo quiero recalcular las carpetas al presionar el boton sobre el TTreeView pero quiero que el usuario no pierda el procedimiento que definió en el IDE.. me explico??...

he probado definiendo una variable del tipo procedure pero cuando la llamo me da una excepción.. seguramente le asigno mal la direccion de memoria..

desde ya muchas gracias

(perdón si no está totalmente dentro del hilo la pregunta...)

[ecfisa]

Hola.

(perdón si no está totalmente dentro del hilo la pregunta...)

En realidad lo que corresponde es que habras un nuevo hilo para una nueva pregunta, está claramente expuesto en el punto 8 de la guía de estilo .



No entiendo muy bién la situación, pero una posible solución es crear una variable privada al form de tipo TNotifyEvent, a la que asígnes el evento que querés recuperar luego, asignes el nuevo envento y luego al salir del form lo restaures:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
  private
    FNotifyEvent: TNotifyEvent;
  public
  end;
...
implementation
...
procedure TForm1.FormShow(Sender: TObject);
begin
  FNotifyEvent:= TreeView1Click;  // guarda el evento
end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
   // Evento definido en el form
end;

...
// Creación del objeto que cambia el evento
...

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  TreeView1.OnClick:= FNotifyEvent; // restaura el evento
end;

Saludos.