Duda con TrayIcon

[[escafandra]]

yelian, asumiendo que el TTrayIcon al que te refieres es el ejemplo que viene en el Builder, y teniendo claro este asunto para los interesados en este hilo, te diré que ese Componente no es mas que un ejemplo de como implementarlos en C++ Builder. Como ejemplo, puede estar un poco deficitario y de hecho lo está.

El problema que expones se deriva de un bug, si así queremos considerarlo.

En el código fuente podemos encontrar la función miembro que se encarga de animar el cursor:

//---------------------------------------------------------------------------
void __fastcall TTrayIcon::DoOnAnimate(TObject *Sender)
{
   if (IconIndex < FIconList->Count)
      FIconIndex++;
   else
      FIconIndex = 0;

   SetIconIndex(FIconIndex);
   Update();
}

Si te fijas, la condición de fin de iconos es incorrecta, pues tras incrementar el indice FIconIndex, éste puede ser igual a FIconList->Count. Es decir apunta a un icono que no existe. Este es el motivo de que desaparezca el icono entre el último y el primero.

Para corregir este bug, basta con dejarlo así:

//---------------------------------------------------------------------------
void __fastcall TTrayIcon::DoOnAnimate(TObject *Sender)
{
   if (IconIndex < FIconList->Count - 1)
      FIconIndex++;
   else
      FIconIndex = 0;

   SetIconIndex(FIconIndex);
   Update();
}

Saludos.

[yelian]

Gracias escafandra;

Pero donde pongo ese codico que me diste estuve buscando pero no encontre donde se pone, si fueras tan amable de decirme...

[[escafandra]]

CBuilder\Examples\Controls\Source\trayicon.cpp

Saludos.

[yelian]

Gracias escafandra, que bobo soy no me fije que era en el evento OnAnimate

gracias...

[JuanErasmo]

Buenas tardes,
Escanfandra! volvemos a encontrarnos,,,
Hablando ahora de trayicons, necesito saber que componente para C++ Builder 6 podria utilizar para obtener un ballonhint en el trayicon.

luego que pueda darle click, y ejecute alguna opción,

He intentado con el de LMDtrayicon, y con el Trayicon y ninguno tiene el metodo ShowHint,,,,,,cual lo tiene??'
Gracias!!

[[escafandra]]

El TtrayIcon que viene de ejemplo con el Builder 5, e imagino que será similar al Builder 6, No puede representar balones de texto estilo XP, pero si muestra el Hint clásico.

Para mostrar un balón de texto, añade una nueva función miembro publica:

//---------------------------------------------------------------------------
// Muestra un Balón de texto en el icono de la barra de tareas
//---------------------------------------------------------------------------
void __fastcall TTaskBarIcon::ShowBalloon(AnsiString Titulo, AnsiString Texto)
{
   FData.cbSize = sizeof(FData);
   FData.uFlags = NIF_ICON | NIF_INFO;
   strcpy(FData.szInfoTitle, Titulo.c_str());
   strcpy(FData.szInfo, Texto.c_str());
   FData.dwInfoFlags = NIIF_INFO;

   Shell_NotifyIcon(NIM_MODIFY, &FData);
}

Para usar esta función, sólo debes llamarla cuando te interese mostrar algo.
Al hacer click no realiza ninguna acción. Puedes representar menus para ello.

Saludos.

[JuanErasmo]

Muchas gracias,
Dos preguntas:

1. Me esta saliendo undefined symbol Fdata, debo incluir algo mas?

2. Si quisiera adicionarle un evento de click al ballonhint, se podría hacer de alguna manera?

Muchas gracias!!!!