XP Progressbar die hin und her läuft

[Sunlight7]

Beispiel:

Delphi-Quellcode:

const Max=100;
var Pos:Integer;
    RunsLeft:Boolean;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   If RunsLeft then begin
      Dec(Pos, 1);
      If Pos=0 then RunsLeft:=False;
   end else begin
      Inc(Pos, 1);
      If Pos=Max then RunsLeft:=True;
   end;
end;

Getippt und nicht probiert, aber Sinngemäß aus einer meiner Kompos.