Label in Schleife zeichnen lassen

[Gruber_Hans_12345]

Eine kurze frage:

Ich habe eine Schleife die von 1 bis 1.000.000 zählt.
Nun möchte ich möglichst schnell in der Schleife ein Label aktualisieren - deswegen habe ich KEIN Application.Processmessages drinnen (dauert zu lange)

wollte es einfach mit:

Delphi-Quellcode:

Label1.Caption := IntToStr(i);
TCrackedLabel(Label1).Paint;

Das Label ist nicht transparent.
Problem ist, das es flackert bzw teilweise nur der clBtnFace hintergrund zu sehen ist, also der Text gar nicht.

Wie wenn im Hintergrund wer noch mal drüber zeichnet, oder wie wenn der Text erst verzögert gezeichnet werden würde.

Habe selbiges auch mal getestet das ich den Text selber auf den Canvas zeichne, das hat auch nicht funktioniert.

Wer könnte mir da noch dazwischenfunken?

[jaenicke]

Das Problem ist, dass es nicht anders geht, als auch den Hintergrund neu zu zeichnen. Denn der neue Text deckt ja nicht unbedingt den alten komplett ab. Normalerweise kann man Flackern vermindern, indem man das Neuzeichnen zeitweise unterbindet. Bei so schnellen Aktualisierungen hilft das aber auch nicht.

Ein TStaticText sollte weniger flackern.

Sinnvoller ist aber eine bessere Lösung:
So schnell kann das doch ohnehin niemand wahrnehmen. Sinnvoller ist daher, dass du die Aktualisierungen nicht bei jedem Durchlauf machst, sondern nur z.B. alle x Durchläufe oder alle x Millisekunden. Das reduziert effektiv das Flackern und verringert zudem den Aufwand für das Neuzeichnen, weshalb der Ablauf selbst beschleunigt wird.

[Gruber_Hans_12345]

Ja das wäre mir schon klar, deswegen habe ich das Label auf Transparent := FALSE gesetzt, dadurch zeichnet das Label ja voher den Hintergrund auf clBtnFace.

Zweitens ich habe es schon das ich nur alle 20ms mal zeichne.

Aber trotzdem passiert es bei mir dann, das ich teilweise dann für ne sekunde oder so nur den hintergrund sehe also alles clBtnFace ist, und KEIN text, öfters blinkt dann der Text mal auf.
Wie wenn der Text nicht gleich gezeichnet wird

Werde aber auf jeden Fall auf static Text umstellen

[Gruber_Hans_12345]

Was mir auch komisch vorkommt.
Wenn ich es mit dem Debuger durchgehe, und nebenbei das Fenster sehe.

Dann sehe ich das wenn er den FillRect macht, ist der Text im Fenster weg (logisch)
Aber nach dem DrawText, sieht man im Fenster noch nix.
Erst wenn er das nächste mal wieder zum FillRect kommt im Debugger, dann sehe ich im Fenster das nun der alte Text da steht.

[hoika]

Hallo,
1 bis 1.000.000 zählt.

Willst Du jetzt 1.000.000 neu zeichnen.
Macht für mich keinen Sinn.

Besser z.B. in bestimmten Zeitpunkten (hier alle 1000)

Delphi-Quellcode:

if (i mod 1000)=0 then
begin
  Label.Caption:= 'bla';
  Application.ProcessMessages;
end;

[Gruber_Hans_12345]

nein, ich zeichne nur alle 20ms sowas

Delphi-Quellcode:

if (fLastRepaint = 0) or (fRepaintEvery = 0) or (GetTickCount > fLastRepaint+fRepaintEvery) then begin
  fLastRepaint            := GetTickCount;
  Label1.Paint;
end;

aber ich will eben keine ProcessMessages, sondenr nur das .paint