Icono de progreso del Emule

[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 Noteví]

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 Noteví]

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.

[Wellnic]

Me he descargado las RX para Lazarus desde la página de Neftali, pero no compila (dice que faltan
paquetes). Supongo que tendré que instalar la versión más reciente de Lazarus (ahora tengo la 2.0.10).

(¿O están disponibles solo para Linux?)

[Casimiro Noteví]

Ya he comentado antes que no tienes que descargar nada, sólo seguir los pasos que te he indicado, se instalan solas y sus dependencias.