XP Progressbar die hin und her läuft

[Helmi]

Hallo,

bei den Schweizern gibt es einen Code zur Erstellung einer Marquee Progressbar link

Nur läuft diese von links nach rechts!

Ich hab aber auch schon Progressbars gesehen, die hin und her laufen
also von links nach rechts und wieder zurück...

Weiss jemand wie man so was macht?

(Ach ja - bitte keinen Verweis zu den Jedi-Komponenten)

[waseo]

Da hast Du nicht genau genug geguckt. Hier ist ein Beispiel, ebenfalls bei den Schweizern:
How to paint a moving progress bar using a background thread?

[Helmi]

Hallo,

danke für den Tip.
Nur leider ist es nicht das was ich suche.

Bei Norton gibt es eine solche ProgressBar wie ich sie gerne hätte.
Hab mal zwei bilder gemacht - eines von links nach rechts und eines von rechts nach links.

[Sunlight7]

Das geht ganz einfach, wenn Du auf einer Seite angekommen bist, die Richtung umkehren.

[Helmi]

Zitat von Sunlight7:

Das geht ganz einfach, wenn Du auf einer Seite angekommen bist, die Richtung umkehren.

Und wie macht man das?

[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.

[shmia]

Wenn man weiss, wieviele Schritte/Bytes/Sekunden oder was auch immer ein Vorgang benötigt,
nimmt man einen Progressbar.
Hat man diese Information nicht, nimmt man einen Indikator um dem Benutzer zu signalisieren: "Hallo, ich lebe noch und bin voll bei der Arbeit!"

Indikatoren und Progressbars gibt es wie Sand am Meer.
z.B.
http://www.torry.net/pages.php?id=504 DProgressBar v.1.0

Ich finde, man sollte hier zuviel Aufwand vermeiden und zuerst darauf achten, dass das
Programm fehlerfrei und effizient arbeitet.

Man kann auch mit ganz einfachen Delphi Bordmitteln einen schönen Indikator bauen:
1.) Man nehme ein TEdit und setze den Font auf "Wingdings". Size=24
2.) Man setze den Edit1.Text := chr(x); der Wert x läuft immer von 183 bis 194

[Sunlight7]

Es gibt auch Leute, die den Sand vom Meer nicht mögen, und nur eigenen Sand verwenden, so wie ich.

Das Beispiel funkt mit kleinen Änderungen auch mit variabler Max Größe.

[Helmi]

Die DProgressBar v.1.0 läuft leider nur von links nach rechts.
Ich möchte aber, dass sie auch wieder zurückläuft.

@Sunlight7:
Deine Lösung kann man aber nicht für eine standard-Progressbar verwenden.

[Sunlight7]

Kann eine Standard ProgressBar denn den Ausblendeffekt, wie es de Norton macht?

Da bin ich nicht auf dem laufenden, weil ich die nie verwende.

Du kannst das ja in eine bestehende Kompo einbauen, oder eine eigene machen.