Progressbar endlos!

[ColdFire]

Hy CoderfreaX´s

Ich benötige eine Funktion bzw einen progressbar der unendlich läuft bis man ihn abbricht. Ich dachte dabei so wie bei der Windowsanmeldung an einen ladebalken bzw einer symmantec installation wo der balken nach rechts und wieder links geht.

Gibts da irgndwo nen code oder hat wer ein beispiel für mich ?
(ich benötige das weil ich kein eindeutige größe meiner datei habe und der lesedurchsatz auch unterschliedlich ist)

mfg ColdFire

[turboPASCAL]

Such mal nach Marquee oder Marquee AND Progressbar .

[ColdFire]

Hi !

Danke für die rasche Antwort...
Habe mir soeben diese Funktion angesehen: http://www.swissdelphicenter.ch/de/showcode.php?id=1680

Ich werde aber nicht schlau draus!

Kann mir jemand ein anders beispiel zeigen ?

lg CF

***EDIT***

habe mich für diese lösung entschien wobei diese funktion in jeder repeat aufgerufen wird und somit jedesmal weiter läuft.

Delphi-Quellcode:

const
  PBS_MARQUEE  = $08;
  PBM_SETMARQUEE = WM_USER + 10; 

    var
      Bar: TProgressBar;
    begin
      Bar := PBMarquee;
      SetWindowLong(Bar.Handle, GWL_STYLE, GetWindowLong(Bar.Handle, GWL_STYLE) or PBS_MARQUEE) // Marquee-Progresbar
    end;

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[Luckie]

Das ist eine Komponente, die du installieren musst.

[ColdFire]

Achsooo d.h. datei machen installien einfügen fertig ?

lg CF