Manejo de îcono (varios tamaños)

[GaaK]

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 -

[[cHackAll]]

Voy de atrás para adelante ok? lo de los componentes; me parece que con los Jedi basta y sobra, lo de tu pregunta; no me queda claro el objetivo! osea quisieras hacer Stretch? creo que no! y cual es el problema con asignarlo en tiempo de diseño??? talvez lo que quisieras es poder cambiar el icono en tiempo de ejecución y que éste por ejemplo aparente moverse? si es así por que no le pones un TImageList???

Porsiaca, le haces doble click al componente para insertar iconos, y para acceder en ejecución llamas a:

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

Si no crea un archivo .res (de recursos) y a éste añádele iconos, eso es lo que hace todo el mundo (creo), y si no me equivoco el Delphi tiene al ImageEdit, con éste puedes crear el recurso y para acceder a éste hace algo como esto:

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

Era eso? saludos!

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