ProgressBar für Perfektionisten

[mmw]

Hallo,
evtl. ist hier was dabei

Delphi-Quellcode:

TcyProgressionPanel

https://sourceforge.net/projects/tcycomponents/

http://tcycomponents.sourceforge.net/

https://github.com/jackdp/JPPack

Delphi-Quellcode:

als schnelles Beispiel.

var i:Integer;

begin
 cyProgressionPanel1.Open;
 cyProgressionPanel1.GetLabel.Alignment:=taLeftJustify;
 cyProgressionPanel1.GetLabel.Caption:='Fortschritt';
// ProgressionPanel1.GetGauge
 i:=0;

 while not cyProgressionPanel1.Canceled do begin
   cyProgressionPanel1.GetGauge.Position:=i;
    Inc(i);
    if i>round(cyProgressionPanel1.GaugeMax) then i:=round(cyProgressionPanel1.GaugeMin);
    application.ProcessMessages;
 end;
 // cyProgressionPanel1.Close;
 end;

Gruß