Icono de progreso del Emule

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

Empezado por Wellnic

Cuando el Emule está descargando cosas, su icono en la barra de tareas muestra un gráfico, a modo de Progressbar, de las descargas globales. ¿Cómo se consigue ese efecto tan llamativo? Me gustaría implementarlo en el programa que estoy haciendo, si está a mi alcance.

¿Te refieres al icono junto al reloj, o al propio botón de la aplicación?

El primero debes programarlo utilizando el componente TTrayIcon que viene con Delphi, o si tienes versiones antiguas, con alguno externo, como te ha comentado [Casimiro] antes.
Aquí en la wiki de embarcadero tienes código de ejemplo de cómo utilizarlo.

El segundo está explicado aquí.

[Wellnic]

Me refería al botón, al acceso directo del Emule en la barra de tareas,
que se pone en "modo Progressbar" cuando está descargando:



El área verde vertical va cubriendo el icono reflejando el porcentaje de
descargas.

Y... bueno, hace unos días se me puso entre ceja y ceja incluir de algún
modo esta funcionalidad en mi programa...

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

Coloca en el formulario un componente TTaskbar.
Con código como este, puedes conseguir el efecto que necesitas:

Código Delphi [-]
  Taskbar1.ProgressMaxValue := ProgressBar1.Max;
  Taskbar1.ProgressState := TTaskBarProgressState.Normal;

  for var i:integer := 0 to 99 do begin
    ProgressBar1.Position := i;
    Taskbar1.ProgressValue := i;
    Sleep(60);
    Application.ProcessMessages;
  end;

En un Windows 10 se ve así:


En un Windows 11, así:

[Wellnic]

(Queda más guay en Windows 10 ... Creo que voy a dejar Windows 11 para otro momento )

Me parece que Lazarus, el entorno en el que suelo programar, carece de ese componente (o no
he conseguido encontrarlo). En todo caso, voy a seguirle la pista al TTaskbar, a ver a donde me lleva .

Gracias

[Casimiro Notevi]

Con las RX puedes poner el icono animado, por lo que sería posible también.

[Wellnic]

¿Las RX se pueden instalar en Lazarus? Creía que no.

[Casimiro Notevi]

Sí, además están online, no tienes que buscarlas ni nada, te vas a "Paquetes->Instalar/desinstalar paquetes" y ahí están.
Esta es la versión Linux, que es la que utilizo.