Manejo de îcono (varios tamaños)

[GaaK]

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 -

[roman]

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

[GaaK]

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.

- GaaK -