VCL Flicker Reduce Unit

[jbg]

Wer schon mal auf ein TabSheet, dass Anchors oder Align=alClient hat, Controls gelegt hat, wird sicherlich nicht so begeistert von dem Geflacker sein, dass beim Vergrößern/Verkleinern des Formulars dabei ensteht. Da dieses Geflacker teilweise zu einer immensen Verlangsamung des Resize-Vorgangs kommt und auch nicht gerade schön anzusehen ist, bin ich auf Ursachenforschung gegangen. Und dabei musste ich festetellen, dass Borland beim WM_ERASEBKGND für alle TWinControls den kompletten Inhalt übermalt, also auch den von Child-Controls, die csOpaque im ControlStyle haben.

Damit dieses Geflackere aufhört habe ich nun eine kleine Unit geschrieben, die durch ihre bloses Aufnahme in ein Projekt, das Flackern stark reduziert.

Hier mal ein Screen-Recording (1.3MB), dass den Unterschied zeigt.

Zitat:

History:
2006-11-21:
- fixed region bugs
- fixed wrong DefaultHandler call
- fixed parent background painting
- added region exclusion for sub-controls of transparent control children
2006-10-03:
- fixed RangeChecks disabled

[stahli]

Hallo jbg,

ich hatte gerade festgestellt, dass mit Deiner alten Unit ein TImage direkt auf einem TabSheet nach dem Bild-Löschen das Bild sichtbar bleibt:
Image1.Picture:=nil;
Das Bild verschwand erst nach dem Minimieren oder Übderdecken meiner Form und anschließendem Neuzeichen der Form.

Deine neue Unit reduziert bei mir kein Fackern mehr (kein Effekt erkennbar).

Mein Problem mit dem Image konnte ich mit Deiner alten Unit klären, indem ich mein Image einfach auf ein Panel setze und dieses dann auf das TabSheet.

Stahli

[xZise]

Cool Unit und effektiv xD
Allerdings habe ich zwei Bugs:
Und zwar wird das TreeView nicht immer komplett neugezeichnet (im Expand) und zum anderen zeichnest du den Hintergrund der Tableiste nicht durchsichtig sondern in cBtnFace
Das sieht mit Tabs auf Tabs ziemlich schlecht aus

Ich habe im Anhang mal ein Screenshot von den beiden Fehlern.
Kommentiere ich die Zeile aus, funktioniert alles wunderbar!

MfG
xZise

[jbg]

Dieses Projekt ist tot, da ich für jede Komponente auf der Welt eine Ausnahme programmieren müsste. Also mehr Ausnahmen als Regelfälle.

[xZise]

Schade

[Gebhard]

Hallo,

vielen Dank für Eure Antworten und Eure Hilfe.

Die Kompination aus der "VCLFlickerReduce" und "...FormResize... Invalidate;..."
haben mein Problem gelöst.

Danke und Tschüs

Gebhard