Progressbar Balken macht quatsch...

[Andy Nightingale]

Hallo Leute,
ich hab mal wieder eine Anfängerfrage
Ich hab eine Progressbar und ewin Timer. Der Balken soll nach rechts (ist grün) nach einer bestimmten Zeit durchlaufen. Er läuft aber nicht bis zum Ende. Egal was für eine Zahl ich verändere.-ich bekomme es einfach nicht hin das er durchläuft. Hier mein Code,- vielleicht hat jemand eine Idee was ich falsch mache:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepBy(300);

if ProgressBar1.Position >= ProgressBar1.Max then
begin
Timer1.Enabled:= False ;
Application.ProcessMessages;
Label1.Visible := True;
Label1.Caption := 'Daten laden abgeschlossen!';
Label1.Font.Size := 9;
Label1.Font.Color := clRed;
Label1.Update;
Repaint;
Application.ProcessMessages;
Sleep(1500);
Self.Close;
end;
end;

Grüße

[wp_xyz]

Windows, oder? Das habe ich auch schon gesehen und keine andere Lösung als einen selbst gezeichneten Progressbar zu verwenden. Z.B. den TProgressbarEx aus dem ExCtrls package (https://wiki.freepascal.org/ExCtrls#TProgressBarEx): einfach die Unit von https://sourceforge.net/p/lazarus-ccr/s ... essbar.pas ins Projektverzeichnis kopieren und die Komponente zur Laufzeit selbst erzeugen, oder, wenn du es visuell haben willst, den Snapshot des Packages herunterladen von https://sourceforge.net/p/lazarus-ccr/s ... s/exctrls/, das Runtime-Package exctrlspkg.lpk in die IDE laden und das Designtime-Package exctrls_dsgn.lpk laden und dann installieren).

[m.fuchs]

Hm, hab jetzt hier weder mit Windows noch mit Linux irgendein Problem gesehen. Das Ding läuft durch, dann wird das Label eingeblendet und 1,5 Sekunden später geht das Programm zu.

[Soner]

Ich habe auch kein Problem gesehen, es funktioniert ganz normal. Windows 11, Lazarus 4.2.
Was hast du für Min/Max Werte, das sieht für mich unlogisch aus:
ProgressBar1.StepBy(300);
Normalerweise soll es bis 100 laufen, damit meint man 0%..100%, man kann zwar für Max und Min beliebigen Wert eingeben, aber dadurch bekommt man solcher Fehler wie du jetzt hast.
Dieser Teil sieht für mich auch komplett merkwürdig aus:

Code: Alles auswählen

Label1.Update;
Repaint;
Application.ProcessMessages;
Sleep(1500);
Self.Close;

"Label1.Update" brauchst du nicht, es wird automatisch gemacht sobald du irgendeine Eigenschaft von einer Komponente änderst.
"Repaint" ist auch merkwürdig, zeichnest du irgendetwas auf irgendein Bitmap-Canvas? Normalerweise benutzt man Invalidate.
"Sleep(1500); Self.Close;" wozu sleep, wenn es sowie so geschlossen wird?

progressbartest.zip

(94.5 KiB) 117-mal heruntergeladen

[wp_xyz]

Zumindest bei Windows hat die ProgressBar eine bescheuerte Animation, die den Balken erst allmählich zum richtigen Wert laufen lässt. Dadurch hat man den Eindruck als laufe der Balken dem wahren Wert hinterher und komme evtl rechts gar nicht an. TProgressBarEx andererseits folgt der Einstellung sofort und wirkt viel direkter. Im angehängten Beispiel-Projekt mit oben TProgressBar und unten TProgressBarEx den Trackbar verschieben, dann sieht man das, was ich meine.

[Andy Nightingale]

Windows, oder?

Hi wp_xyz,
danke für die Idee es funktioniert.

[Andy Nightingale]

Hm, hab jetzt hier weder mit Windows noch mit Linux irgendein Problem gesehen. Das Ding läuft durch, dann wird das Label eingeblendet und 1,5 Sekunden später geht das Programm zu.

Hi Fuchs,
ich habe alles mögliche durchgetestet. Bei mir geht es nicht. Verstehe es auch nicht. Ich habe noch Windows 10 und das Fenster ist modal.- vielleicht ist es das.-ich teste weiter
Grüße

[Andy Nightingale]

Dieser Teil sieht für mich auch komplett merkwürdig aus:

Code: Alles auswählen

Label1.Update;
Repaint;
Application.ProcessMessages;
Sleep(1500);
Self.Close;

Hi Soner,

danke für den Test.-aber wenn ich es als Creat im Fenster rein mache.-also nicht starten mit dem Button.-dann gehts wieder nicht. Ohne das Sleep zeigt es nicht das Label an.....
Grüße

[Andy Nightingale]

Zumindest bei Windows hat die ProgressBar eine bescheuerte Animation, die den Balken erst allmählich zum richtigen Wert laufen lässt. Dadurch hat man den Eindruck also laufe der Balken den wahren Wert hinterher und komme evtl rechts gar nicht an. TProgressBarEx andererseits folgt der Einstellung sofort und wirkt viel direkter. Im angehängten Beispiel-Projekt mit oben TProgressBar und unten TProgressBarEx den Trackbar verschieben, dann sieht man das, was ich meine.

Cool.- Danke dir

[af0815]

Ein sleep(1500) würde ich nicht machen, Ein Schleife wo immer ein sleep(10) und ein Application.Processmessages macht ja. Weil das hält die Messageverarbeitung in Gange und das Programm ist auch bedienbar.

[Andy Nightingale]

Ein sleep(1500) würde ich nicht machen, Ein Schleife wo immer ein sleep(10) und ein Application.Processmessages macht ja. Weil das hält die Messageverarbeitung in Gange und das Programm ist auch bedienbar.

Hallo 0815,
ein Sleep ist doch nur eine Pause ...warum soll das kein Sinn machen? Bei mir macht es Sinn, da ich diese Pause möchte.

[af0815]

Weil ein sleep den Mainthread für die Dauer suspended. Das Betriebssystem teilt für diese Zeit keine Zeit Scheibe zu. Damit werden auch keine Botschaften für den Mainthread mehr bearbeitet, das äussert sich als freeze des Benutzerinterface.

Ein sleep(0) ist zum Beispiel ein erzwungener Thread Wechsel.

Mit application.prozessmessage regt man wiederum die Messagequeuce an, aktuelle Botschaften zu bearbeiten.
Wenn man so eine Loop mit den beiden Befehlen aufbaut, do ist die zwar nicht genau in der Dauer, aber hält die GUI am Leben.
Ich sage auch immer wieder "Threads für Arme"

Wenn man sleep zu extensiv verwendet, kann das System schon Mal den Verdacht haben, das das Programm steckt.

[Mathias]

Ich hatte auch schon meine Erfahrungen mit dem Progressbar gemacht. Irgendwie habe ich das Gefühl, das dieser sehr viel Overhead hat. Ich wollte mal mit LCL/GTK2 und GST ein Mediaplayer machen. Der Balken wurde durch einen Timer gesteuert. Wen man den Balken sehr schnell hin und her bewegte, hatte sich das ganze aufgehängt. Als ich anstelle der LCL natives GTK4 nahm, lief alles ohne Probleme.

[Andy Nightingale]

Wenn man sleep zu extensiv verwendet, kann das System schon Mal den Verdacht haben, das das Programm steckt.

Hallo 0815,
verstehe.-danke für die Erklärung.

[Andy Nightingale]

Als ich anstelle der LCL natives GTK4 nahm, lief alles ohne Probleme.

Hallo Mathias,
da kenne ich mich leider nicht aus. Stehe noch am Anfang Grüße