Icono de un TTrayIcon

[Angel.Matilla]

Empezado por Neftali [Germán.Estévez]

El componente de Delphi tiene la propiedad Icon que admite un Icono.
¿El de C++Builder no es igual?

Por desgracia el componente de Delphi y de Builder 6 es distinto

Empezado por ecfisa

Si aún así, deseas asignarlo de forma manual, hay un ejemplo que carga el ícono desde recurso en este enlace: tray icon

Voy a mirarlo ahora mismo. Gracias a los dos.

[ecfisa]

Hola.

A decir verdad, no sé como trabaja en delphi ya que el componente es incorporado en una versión posterior a la que uso (7). Por otro lado, en C++ Builder 6 el componente TTrayIcon se vale de la propiedad Icons al efecto, pero es de tipo TImageList y es justo lo que quieres evitar.

Saludos

[[escafandra]]

Hola, Angel. Se que sueles usar versiones antiguar de Builder. Hace un tiempo escribí un componente partiendo del que aportaba Builder 5 que denominé TSysTrayIcon. Ese componente usaba un TImageList para guardar una animación a mostrar como icono, pero si no se asignaba esa propiedad, usaba el icono por defecto de la aplicación. No se si eso es lo que estás buscando. El componente en cuestión está aquí: TSysTrayIcon

Saludos.

[Angel.Matilla]

Gracias por las respuestas. Dando vueltas encontré la solución; puede que no sea la mejor, pero funciona.

Código PHP:

void __fastcall TForm1::FormActivate(TObject *Sender)
{
     TImageList *list = new TImageList(Application->Icon->Width, Application->Icon->Height);

     try
     {
          list->AddIcon(Application->Icon);
          TrayIcon1->Icons     = list;
          TrayIcon1->IconIndex = 0;
     }
     __finally
     {
          delete list;
     }
}
//--------------------------------------------------------------------------- 


No obstante le echaré un ojo a tu componente.

[Angel.Matilla]

Empezado por escafandra

El componente en cuestión está aquí: TSysTrayIcon

Una pregunta: ¿Hacen falta los dos ficheros para instalar el componente?

[Angel.Matilla]

Lo digo porquer abra el proyecto que abra me da siempre el mismo error.

¿Me hace falta algo más aparte de ese código?

[[escafandra]]

Copia en una carpeta los archivos:
SysTrayIcon.cpp
SysTrayIcon.h
SysTrayIcon.rc
SysTrayIcon.res
SysTrayIcon.rh

Luego abre en Builder la opción de instalar componente en un nuevo package. Lo que sigue es un ejemplo gráfico:




En builder aparecerá una nueva pestaña de componentes llamada Mios, y en ella aparece el nuevo componente ya compilado.

Saludos.

[Angel.Matilla]

De acuerdo. Gracias