pbstMarquee richtig verwenden?

[s.h.a.r.k]

Zitat von haentschman:

Sollte dieses in irgend einer Weise die Regeln verletzen bitte ich um Mitteilung.

Code:

//  TUbuntuProgress
//  Version 1.2
//
//  Copyright 2008 - 2009 bei Jonas Döbertin
//  E-Mail: [e-mail]
//  Diesen Projekt ist Open-Source und wird es auch immer bleiben.
//  Jeder der möchte kann diesen Code weitergeben und verwenden wie
//  er möchte, Bedingung ist, das dieser Hinweis enthalten bleibt.
//  Wenn dieser Code in einem Projekt verwendung findet, würde ich
//  mich lediglich über eine kleine Nachricht freuen!

Ich denke nicht Aber das eigentliche Problem wird es wohl (leider) nicht lösen.

[haentschman]

Warum nicht ? Die Progressbar läuft und läuft und läuft... egal was die GUI oder der Rest macht.

[s.h.a.r.k]

Wäre zu schön um wahr zu sein, aber wenn der Hauptthread hängt, dann wird nichts neu gezeichnet, zumindest kenne ich es so Zudem habe ich hier sogar noch den Beweis, dass es nicht gehen kann:

Delphi-Quellcode:

procedure TMarqueeThread.Execute;
begin
  inherited;
  repeat
    if WaitForSingleObject(FStop, FInterval) = WAIT_TIMEOUT then
      Synchronize(DoOnTimer);
  until Terminated;
end;

Die Animation selbst wird via Thread berechnet, okay. Aber dann wird hier Synchronize aufgerufen, sodass die ProgressBar neu gezeichnet wird. Hängt der Hauptthread, dann steht somit auch der TMarqueeThread, da das Synchronize erst dann zurückkehrt, wenn der Hauptthread die gegebene Methode abgearbeitet hat, aber der steht ja...

[stahli]

Ok, danke für die Antworten. Ich dachte, die Progressbar startet im Marquee-Mode selbst einen eigenen Thread in dem sie sich neu zeichnet - und ich hätte etwas falsch eingestellt.
Ich rufe jetzt StepIt erst mal in meiner Speicherfunktion auf. Das tut es erst mal notdüftig.

Andere Lösungen teste ich ggf. später mal noch.

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