Flackern eines Label/TLabel verhindern

[Zacherl]

Wie siehts aus, wenn du statt eines Labels die PaintBox verwendest und dann diesen Trick nutzt:
http://www.delphipraxis.net/1315249-post2.html

[hathor]

Bei mir XE7, WIN8.1 flackert nichts.
Vielleicht liegt es daran, dass neuere WIN-Versionen die Desktop-Grafik anders behandelt.

Timer.interval:= 50;

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Caption:= FormatDateTime('hh:nn:ss.zzz', Now);
end;

[einbeliebigername]

Hallo MisterIXI,

ich hatte/habe das gleiche Problem. Bei mir ist es die Ausgabe eines Video-Timecodes (Aktualisierungsinterval 16,66... bis 41,66... ms). Statt TLabel besser TPanel oder TStaticText verwenden. Auf jedenfalls eine Klasse welche von TWinControl stammt. Grund alles was nur von TControl und nicht von TWinConrol stammt wird vom Parent gezeichnet. Dort lassen sich Flackereffekte nur schwer abstellen. Vermutlich wirst du dir eine eigene Klasse (wie ich) bauen müssen. Dabei auf WM_ERASEBKGND achten.

einbeliebigername.

[MisterIXI]

Zitat von Zacherl:

Wie siehts aus, wenn du statt eines Labels die PaintBox verwendest und dann diesen Trick nutzt:
http://www.delphipraxis.net/1315249-post2.html

Wenn ich das ganze richtig verstanden und implementiert habe, dann scheint das wohl auch nicht wirklich zu klappen... Es scheint ein kleines bisschen besser geworden zu sein, aber da bin ich mir auch nicht sicher

Zitat von einbeliebigername:

ich hatte/habe das gleiche Problem. Bei mir ist es die Ausgabe eines Video-Timecodes (Aktualisierungsinterval 16,66... bis 41,66... ms). Statt TLabel besser TPanel oder TStaticText verwenden. Auf jedenfalls eine Klasse welche von TWinControl stammt. Grund alles was nur von TControl und nicht von TWinConrol stammt wird vom Parent gezeichnet. Dort lassen sich Flackereffekte nur schwer abstellen. Vermutlich wirst du dir eine eigene Klasse (wie ich) bauen müssen. Dabei auf WM_ERASEBKGND achten.

Hört sich für mich ähnlich zu der Antwort von Zacher an. (Ich muss dazu sagen, dass ich davor noch nie wirklich mit Klassen im Programmieren zu tun hatte :< )

Effektiv habe ich zum testen ein Panel hinzugefügt, und ein PaintBox objekt reingesetzt. Den Timer entsprechend umgeschrieben und noch folgenden Code implementiert (vom Link der Lösung von Zacher):

Code:

type
  TPanel = class(ExtCtrls.TPanel)
    procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBKGND;
    end;
  TForm1 = class(TForm)

Code:

 procedure TPanel.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
  Message.Result := 0;
end;

wobei ich diesen Wert auch auf 1 gesetzt habe und es hat wohl ein bisschen besser funktioniert (?).

[einbeliebigername]

Zitat von MisterIXI:

Hört sich für mich ähnlich zu der Antwort von Zacher an. (Ich muss dazu sagen, dass ich davor noch nie wirklich mit Klassen im Programmieren zu tun hatte :< )

Da hast du mich nicht vollständig verstanden. Die Lösung von Zacher ist ein TControl auf ein TWinControl gelegt. Das TControl bekommt ständig neuen Text und animiert das TWinControl sich neuzuzeichnen.

Hast du mal TStaticText ausprobiert? Oder wenn du unter dem Label/PaintBox aktuell ein Panel hast, schmeiße das Label/die PaintBox weg und setzt die Caption vom Panel. Beim Panel (auch das Panel unter dem Anzeigeelement) mit FullRepaint und ParentBackground experimentieren.

Zitat von MisterIXI:

Effektiv habe ich zum testen ein Panel hinzugefügt, und ein PaintBox objekt reingesetzt. Den Timer entsprechend umgeschrieben und noch folgenden Code implementiert (vom Link der Lösung von Zacher):

Code:

type
  TPanel = class(ExtCtrls.TPanel)
    procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBKGND;
    end;
  TForm1 = class(TForm)

Code:

 procedure TPanel.WMEraseBkgnd(var Message: TWmEraseBkgnd);
begin
  Message.Result := 0;
end;

wobei ich diesen Wert auch auf 1 gesetzt habe und es hat wohl ein bisschen besser funktioniert (?).

Zum Testen kannst du das so machen, aber besser ist es ein eigene Panel-Klasse zu bauen, diese zu registrieren und im Formulardesigner dann die zu nehmen. Es sollte aber laut meinem Verständnis der Windows-Doku http://msdn.microsoft.com/en-us/libr...55(VS.85).aspx Message.Result := 1; sein, damit Windows nicht selbst den Hintergrund löscht/zeichnet.

einbeliebigername.

[MisterIXI]

Zitat von einbeliebigername:

Hast du mal TStaticText ausprobiert? Oder wenn du unter dem Label/PaintBox aktuell ein Panel hast, schmeiße das Label/die PaintBox weg und setzt die Caption vom Panel. Beim Panel (auch das Panel unter dem Anzeigeelement) mit FullRepaint und ParentBackground experimentieren.

Ja TStaticText hatte ich jetzt die längste Zeit (hatte einmal direkt das Label mit StaticText ersetzt)... ParentBackground hatte ich ebenfals getestet.
FullRepaint habe ich grade mal auf false bzw true gesetzt, hat auch nichts geändert

Zitat von einbeliebigername:

Zum Testen kannst du das so machen, aber besser ist es ein eigene Panel-Klasse zu bauen, diese zu registrieren und im Formulardesigner dann die zu nehmen. Es sollte aber laut meinem Verständnis der Windows-Doku http://msdn.microsoft.com/en-us/libr...55(VS.85).aspx Message.Result := 1; sein, damit Windows nicht selbst den Hintergrund löscht/zeichnet.

einbeliebigername.

Würde es einen Unterschied machen eine eigene Panel-Klasse zu bauen? (Ich habe bis jetzt 0 mit selbstgebauten Klassen zu tun gehabt - bzw habe ich auch sonst noch nichts darüber gelernt :> )

[Blup]

Zitat von MisterIXI:

Würde es einen Unterschied machen eine eigene Panel-Klasse zu bauen? (Ich habe bis jetzt 0 mit selbstgebauten Klassen zu tun gehabt - bzw habe ich auch sonst noch nichts darüber gelernt :> )

Nein, nur das du bereits in der Entwicklungsumgebung die entsprechende Klasse auswählen kannst.

Das Problem mit dem Flackern entsteht vermutlich durch die getrennten Zeichenvorgänge für den Hintergrund ( WM_ERASEBKGND ) und dem Vordergrund ( WM_PAINT ).
Zeichnet man den Hintergrund bei WM_ERASEBKGND nicht, muss man das aber bei WM_PAINT nachholen. Diverse Transparent-Effekte funktionieren so aber nicht mehr richtig.
Deshalb löst man dieses Problem besser mit "Doppelbuffered := True", allerdings muss das vermutlich bei allen Wincontrols angeschalten werden, die unter dem Label liegen.
(angefangen beim Formular, über alle verschachtelten Panels)

Die Kombination mit Windows-Themen ist nicht möglich, da diese die Steuerelemente selbst zeichnen.