pbstMarquee richtig verwenden?

[haentschman]

@s.h.a.r.k

ähmm... ich hatte überlesen, daß die Berechnungen im Hauptthread ausgeführt werden. Die müssen in einen extra Thread. Dann hast du natürlich Recht.
Sorry für Dummschwatz...

[stahli]

So läuft das recht flüssig, ohne einen Thread zu nutzen.
Ich rufe in der Schleife immer diesen Teil auf:

Delphi-Quellcode:

  if Assigned(odProgressBar) then
  begin
    odProgressBar.Tag := odProgressBar.Tag + 1;
    if odProgressBar.Tag > 100 then
    begin
      odProgressBar.Refresh;
      odProgressBar.Tag := 0;
    end;
//    Application.ProcessMessages;
  end;

Die Alternative wäre ProcessMessage, aber das ist ja nicht immer sinnvoll.

[himitsu]

Marqueue-Style und

Delphi-Quellcode:

if Assigned(odProgressBar) then
begin
  odProgressBar.StepIt;
  odProgressBar.Refresh;  // .Repaint;
end;

[stahli]

StepIt und Refresh haben bei meinen Tests das gleiche bewirkt.
Es wurde damit bei jedem Durchlauf ein Fortschritt gezeichnet - allerdings rasend schnell.
Daher refreshe ich bei jedem 100sten Durchlauf.
Für mich passt das so perfekt (sieht fast so aus, als würde der Fortschritt in einem Thread laufen ).

[sx2008]

Man kann auch mit TAnimate nette Ergebnisse erzielen.
Dazu lädt man eine kleine AVI (zur Designzeit oder zur Laufzeit) und schaltet
die einzelnen Bilder schrittweise mit Seek() durch.