Manejo de îcono (varios tamaños)
 

Hola amigos, gracias de antemano.

Al desarrollar mi aplicación uso CoolTrayIcon para manejarla desde el SysTray, que me parece mejor al adjunto en el proyecto Jedi. Mi problema radica al momento de asignar el ìcono.

Mi aplicaciòn tiene un ìcono que trae tres tamaños: 16x16, 32x32 y 48x48 todos de 256 colores. Al momento de realizar CoolTrayIcon.Icon := Application.Icon; se asigna el ìcono de 32x32 por lo que aparece distorsionado en el SysTray. Ante esto me veo forzado a asignar "en diseño" el ìcono de 16x16 a CoolTrayIcon, pero quisiera leerlo directamente de mi aplicación.

En conclusión: ¿Còmo leo un ìcono 16x16 de mi aplicación?

+-------------------+

Por cierto, que otras componentes me recomiendan?
Yo tengo: SynEdit, Jedi (JCL y JVCL), CoolTrayIcon. (Delphi 2005).

- GaaK -

No te entiendo!
 

Código Delphi [-]
 ImageList1.GetIcon(1, CoolTrayIcon.Icon);

Código Delphi [-]
 CoolTrayIcon.Icon.Handle := LoadIcon(hInstance, MAKEINTRESOURCE(1));

Hola y gracias por la respuesta pero por lástima no es la solución a mi problema (creo).

Yo tengo mi aplicación y en BD2005 voy a Project/Options, en la ventana donde dice ICON selecciono mi icono (que trae tres tamaños: 16x16, 32x32, 48x48). Mi aplicación ahora tiene el ícono definido que el sistema se encarga de mostrar cuando la aplicación está minimizada en la barra de tareas, o en el acceso directo del escritorio, etc…

Bien, el punto es que cuando yo intento definir por ejemplo el FormMain.Icon := Application.Icon (para obviar la explicación del CoolTrayIcon), esto me asigna un icono distorsionado, probablemente el de 32x32. Es por eso que necesito saber cómo apuntar directamente al icono de 16x16 de mi aplicación.

En castellano requiero algo como esto:
FormMain.Icon := Application.Icon[1]
//donde 1 sería el icono de 16x16, 2 el de 32x32 y 3 el de 48x48.

Todo esto para ya no estar agregando individualmente en diseño iconos que ya están en la aplicación (www.gaak.org/hp/zips/emugaak_106b12.zip).


Thanks in advance

- GaaK -

Prueba con este procedimiento:

Código Delphi [-]
procedure LoadIconFromResource(Icon: TIcon; Width, Height: Integer);
begin
  Icon.Handle := LoadImage(HInstance, 'MAINICON', IMAGE_ICON, Width, Height, 0);
end;

El parámetro Icon debe ser un TIcon ya construido, por ejemplo:

Código Delphi [-]
LoadIconFromResource(Image1.Picture.Icon, 16, 16);

// Saludos

thnx
 

Muchas gracias a ambos por las respuestas, finalmente la solución fue:

Código Delphi [-]
//Loading Icon 16x16//
CoolTrayIcon1.Icon.Handle := LoadImage(HInstance,'MAINICON',IMAGE_ICON,16,16,0);

...y para usarlo en mi about el ícono de 48x48:

Código Delphi [-]
//Loading Icon 32x32//
Image1.Picture.Icon.Handle := LoadImage(HInstance,'MAINICON',IMAGE_ICON,48,48,0);

Esto es más razonable a estar agregando iconos cada vez que los requiera, ya estando presentes en mi aplicacion, esto me ahorra unos cuantos KBs. :p

- GaaK -