Icono de progreso del Emule

[Wellnic]

Pues va a ser que en las RX no está esa funcionalidad que buscaba. En todo caso...

Felices fiestas

[Casimiro Noteví]

Empezado por Wellnic

Pues va a ser que en las RX no está esa funcionalidad que buscaba. En todo caso...
Felices fiestas

No, eso no lo tiene, lo que decía es que se le puede poner iconos animados, por lo que se podría crear uno que simulara lo que quieres.
Felices fiestas

[Wellnic]

Pues al final he dado con la manera de poner el icono en modo ProgressBar
Dejo aquí el programita que acabo de hacer a salto de mata para hacerme
con su funcionamiento, por si alguien más estuviera interesado.

Código Delphi [-]
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  Win32TaskbarProgress;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  c: integer=0;
  td: integer=7851;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
GlobalTaskbarProgress:= TWin7TaskProgressBar.Create;
GlobalTaskbarProgress.Max:= 99;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
C:= (c+ 1) Mod td; Label1.Caption:=IntToStr(c);
GlobalTaskbarProgress.Progress:= Round(99*(c/td));//como el monstruito solo sabe contar hasta 99 hay
                                                  //que procesarle un poco los datos de entrada
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= not(Timer1.Enabled);
end;

end.

[[ElKurgan]]

Gracias por compartir la solución y feliz 2024 a todos

Saludos

[Wellnic]

Empezado por ElKurgan

Gracias por compartir la solución y feliz 2024 a todos

Saludos

Aclarar que GlobalTaskbarProgress.Max sí acepta el límite máximo de lo que se quiere medir.
Y GlobalTaskbarProgress.Progress acepta todos los valores intermedios. No es necesaria la
formulita, Round(99*(c/td)), que me saqué alegremente de la manga