Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gruber_Hans_12345,
25. Mär 2022
Ja will das ganze ohne Thread.
und ja das TLAbel.Update sieht zumindest auf den ersten Blick mal genau nahc dem aus was ich brauche :D Danke
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gruber_Hans_12345,
23. Mär 2022
nein, ich zeichne nur alle 20ms sowas
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
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gruber_Hans_12345,
23. Mär 2022
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.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gruber_Hans_12345,
23. Mär 2022
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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gruber_Hans_12345,
23. Mär 2022
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:
Label1.Caption := IntToStr(i);
TCrackedLabel(Label1).Paint;