ComboBoxEx y ImageList

[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.

[FENIXadr]

sisisisi.. mil disculps por lo del nuevo hilo... supuse que la respuesta era rapida y por eso lo pregunté... se que no es lo debido.. mil disculpas...

Con respecto a la respuesta.. está clarísimo.. yo definía una variable como procedure por eso me daba error .. tenía que definirla comoTNotifyEvent.. ahora si funciona...
Cuando se hace click en el TreeView para cambiar de carpeta, primero se actualiza y después llama al evento OnClick que definió el usuario... (en este caso es para mostrar la ruta completa en un TLabel.)

Muchísimas gracias...

PD: se que existe el componente ShellTreeView que hace todo esto y mejor que yo.. pero necesito hacerlo de esata manera en este caso...

saludos..

[Chichero]

Mi problema es que no he visto soluciones para casos de strings en combobox...Tengo varias ciudades las cuales tienen valores diferentes para unas variables, ejemplo:

Caracas A=20, B=25, C=38

Valencia A=39, B=50, C=60

Maracaibo A=42, B= 28, C=55

que con esas variables luego hare ciertas operaciones y presentare resultados, se que debo trabajar con la selectiva multiple CASE y bueno creo que debo definir una variable string que proceda de la opcion seleccionada en el combobox...quisiera que me ayudaran con la codificacion; más o menos esquematizando lo que quiero y la codificación que hize (pero el programa no corre, no sé cuál es el error:

Código Delphi [-]
procedure

TForm1.BitBtn1Click(Sender:TObject);

Var A,B,C:real;
City:String

begin
City:=String(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
CASE City OF
'Caracas': A:=20;
B:=25;
C:=38;
'Valencia': A:=39;
B:=50;
C:=60;
'Maracaibo': A:=42;
B:=28;
C:=55;
ELSE
Showmessage('No Seleccionó Ciudad');
end;

.
.Hago las lineas de operaciones
.

end;

[ecfisa]

Hola Chichero.

Por favor abrí un nuevo tema para esta pregunta y cuando lo hagas utiliza las etiquetas [delphi] [/delphi] para encerrar el código Delphi que incluyas.
Te aconsejo también leer la guía de estilo .

Saludos y gracias por tu colaboración.