28 respuestas en este tema

[escafandra]

El SysTray es una zona golosa para programadores noveles y no tan noveles. Resulta cómodo tener una aplicación iconizada en esa zona y que pueda mostrar mensajes de tipo Balloon, bien visibles. Los iconos móviles son un efecto estético atractivo que, además, pueden servir de información de determinada actividad...

En el Builder, viene un ejemplo de un componente llamado TryIcon para realizar estas labores. El problema es que es un ejemplo y no un componente plenamente funcional. Hace un tiempo lo modifiqué y lo adapté a mis necesidades, le añadí los mensajes tipo Balloon y depuré algún bug. Así nació el componente SysTrayIcon, escrito en C++.

Seguramente se puede mejorar o añadir mas funcionalidades, así que animo al que quiera a hacerlo, claro que en ese caso debe publicarlo en delphiaccess

Adjunto los archivos del componente y una pequeñaa aplicación de ejemplo. Espero que sea de utilidad

PD: Añado enlaces para la versión Builder y Delphi actualizados 02-04-2016 y al 07-04-2016 (versión 3)


Saludos.

 

 

 

.

Archivos adjuntos

•  Delphi_SysTrayIcon.rar   172,73KB   40 descargas
•  BuilderC++_SysTrayIcon.rar   269,38KB   12 descargas
•  Delphi_SysTrayIcon3.rar   175,32KB   45 descargas
•  BuilderC++_SysTrayIcon 3.rar   270,2KB   17 descargas
•  Delphi_SysTrayIcon 4 Berlin.rar   705,49KB   24 descargas
•  BuilderC++_SysTrayIcon 4 Berlin.rar   945,53KB   16 descargas

[escafandra]

Iba siendo hora de traducir el componente a delphi. He intentado ser fiel al componente publicado para Builder, y he corregido algún detalle. Es posible que tenga que pulirse algo más.

El componente está probado en delphi 6 y 7. Acompaño el enlace de descarga en el mensaje inicial del hilo.

Espero que sea de utilidad. 

Saludos.

[egostar]

Ah vaya que buen componente amigo escafandra, muchas gracias.

Me gustó mucho el asunto del ícono que tiene animación

Salud OS

[escafandra]

He modificado alguna cosilla del control. Modifico el enlace de descarga con la nueva versión y lo coloco en el primer mensaje de este hilo.

Para instalarlo lo mejor es mediante el menú Component > Install Component, no creo que surjan problemas.

Saludos.

[enecumene]

Ah vale, esta noche la descargo y haré las pruebas pertinentes .

[escafandra]

He actualizado la versión para Builder C++ con los cambios introducidos en la versión delphi. También le he añadido un icono a la versión delphi para identificarlo en la paleta de herramientas, es el mismo que para la versión Builder.

Saludos.

[Caral]

Hola
Lo acabo de bajar y probar.
Muy, pero muy bien.
Muchas gracias escafandra por el aporte, definitivamente lo voy a usar.
Saludos

[escafandra]

Hola
Lo acabo de bajar y probar.
Muy, pero muy bien.
Muchas gracias escafandra por el aporte, definitivamente lo voy a usar.
Saludos

Me alegro de que te guste pues en cierto modo la idea de reescribir el control SysTrayIcon para delphi me surgió a raiz de éste hilo al ver tu interés en colocar tu aplicación iconizada en el SysTray  .

Saludos.

[enecumene]

Acabo de instalar el componente, muy bueno amigo , tengo un problemita con la imagen del icono, pues usé .ico y .png y no me muestra la transparencia, ¿qué tipo de imagen y características debo usar?.

Saludos.

[escafandra]

En principio cualquier imagen alojada en un ImageList sirve, sin importar el formato.

El icono mostrado por defecto en el SysTray será el de la aplicación, a no ser que se cree un TImageList y se le asocie al nuestro SysTrayIcon, en ese caso deberemos asignar el Index que queremos que se muestre. El uso ImageList está pensado para conseguir iconos en movimiento y no sería necesario si sólo queremos el icono estático de nuestra aplicación. Si queremos movimiento, entonces cada imagen del ImageList representa un fotograma y el Index sería el inicial. El movimiento lo podemos parar (propiedad Animate), en ese caso el icono mostrado será el del Index elegido.

Posiblemente el fallo lo tengas en lo comentado o en que no pongas a true la propiedad Visible del SysTrayIcon. Al hacer esto se activa apareciendo el icono en el SysTray, de esta menera controlamos el efecto. La propiedad Hide muestra o esconde la propia aplicación desde el SysTrayIcon. Por último se pueden mostrar Mensajes tipo Baloon y menús desplegables en el SysTray cuya activación puede ser programada según los botones del ratón que elijamos.

Revisa la aplicación de ejemplo y me cuentas, a lo peor has descubierto un bug  :^), en ese caso tendré que revisarlo.

Saludos.

[enecumene]

Hola escafandra, sí había visto el ejemplo , pero no sé qué hice ahora, porque la imagen ahora se ve bien .

Saludos.

[escafandra]

Pues me alegra que lo tengas solucionado , y espero que el componente cumpla con tus expectativas.

Saludos.

[esocrates]

He modificado alguna cosilla del control. Modifico el enlace de descarga con la nueva versión y lo coloco en el primer mensaje de este hilo.

Para instalarlo lo mejor es mediante el menú Component > Install Component, no creo que surjan problemas.

Saludos.

Hola escafandra:
Estoy intentando instalar tu componente en Delphi 7 según tus indicaciones y no consigo hacerlo.
Adjunto la captura del mensaje de error.
¿Alguna sugerencia?
Un saludo y gracias

Archivos adjuntos

•  1766_6f6d767852c2f415a282e6543e13d58cef10b761.jpg   109,08KB   24 descargas

[cadetill]

Buenas,

Tienes las Jedi instaladas? Si es así, recuerdo que traen ese componente y, quizás de la casualidad de que el recurso se llame igual que el del amigo escafandra (tiene sentido, el nombre es bastante común por lo que se ve en el error). Prueba a quitar las Jedi o a instalarlas sin el paquete del trayicon a ver.

Si no tienes las Jedi, mira que no tengas algún otro componente o set de componentes que traiga un TrayIcon

Otra cosa, veo los warnings que te da el compilador y hay un par que podrían dar algún problema en ejecución (dependiendo de como esté programado) y son los dos primeros, los de "hide the virtual method of base type". No se si escafandra lo hizo a drede o es un descuido al momento de declarar los métodos.

Nos leemos

[escafandra]

El problema era que cargaba dos veces el archivo de recursos. No entiendo bien porqué no me dio el error cuando lo probé. Lo he instalado en una versión limpia de D7 y he reproducido y reparado el error.

Para instalarlo puede hacerse manualmente en un nuevo package o abrir el que trae: mio.dpk y pulsar luego install.


Subo la nueva versión en el primer mensaje de este tema.

Saludos.

[esocrates]

El problema era que cargaba dos veces el archivo de recursos. No entiendo bien porqué no me dio el error cuando lo probé. Lo he instalado en una versión limpia de D7 y he reproducido y reparado el error.

Para instalarlo puede hacerse manualmente en un nuevo package o abrir el que trae: mio.dpk y pulsar luego install.


Subo la nueva versión en el primer mensaje de este tema.

Saludos.

Muchas gracias escafandra.
Lo pude instalar y hacerlo funcionar sin problemas ahora.
Un saludo

Notas:La indicación de cadetill no solucionó el problema pero puede ser útil para
situaciones similares por el concepto
Gracias cadetill

[escafandra]

Tras advertir la necesidad de actualizar el componente, lo he realizado.

Saludos.

[poliburro]

Gracias 

[escafandra]

Nueva actualización del componente TSysTrayIcon. Acompaño el enlace de descarga en el mensaje inicial del hilo.

Saludos.

[poliburro]

Una pregunta amigo. ¿Qué cambios se han incluído en esta actualización?