Theming / CommonControls - Geht es auch teilweise?

[Der schöne Günther]

Es ist etwas verrückt, ich gebe es zu.

Ich habe eine VCL-Anwendung die sehr mutig ist. Sie verschiebt beispielsweise Komponenten (wie Labels und Buttons) im OnPaint -Handler des Formulars. Das ist nicht richtig so, ich weiß. Damit das alles funktioniert, muss man in den Delphi-Projektoptionen unter "Laufzeit-Themes" "Keine" anwählen. Damit hat man diese Windows 2000-Optik, aber das ist ok.

Schaltet man die Themes ein, funktioniert gar nichts mehr: Das Verschieben von Komponenten löst den OnPaint-Handler wieder aus und die gesamte Anwendung hängt oder zeichnet sich sehr komisch.

Soweit, so gut.


Ich möchte nun allerdings ein neues Formular hinzufügen. Eins mit Themes, wo alles toll aussehen soll. Geht das, ohne generell Themes einzuschalten? Ich finde nur, wie man Themes für einzelne Controls wieder deaktivieren kann. Aber das hilft mir nicht, da stapeln sich die OnPaint-Handler weiterhin. Die Anwendung läuft nurwenn kein Common Controls 6-Eintrag im Manifest ist. Also man in den Projektoptionen "Keine Themes" angewählt hat.

Was kann ich jetzt noch tun?