VCL-Styles [XE2]

[Schorschi5566]

Hallo DPler,

ich spiele gerade mit den VCL-Styles herum. Nettes Feature.

Allerdings erhalten bei mir Subforms immer erstmal keinen Style wenn sie per Show angezeigt werden. Ab dem zweiten Aufruf funktioniert es dann.

Interessanterweise erscheint der korrekte Style auch, wenn man die ALT-Taste drückt (???).

Kann das jemand nachvollziehen?

Delphi-Quellcode:

uses
  Vcl.Themes,
  Vcl.Styles;

ist in den entsprechenden Units enthalten.

//Edit: Scheint nur mit vorhandenen Forms aufzutreten. 'Ne neue App mit 2 Forms funktioniert. Ich liebe es.

//Edit2: Nee, doch nicht. Passiert wenn man die Caption eines Forms beschreibt.
Caption := 'Test'; und schon knallt's.

[Schorschi5566]

Gleich noch ein Bug (denk ich mal) was die VCL-Styles betrifft.

psOwnerDraw bei Panels einer StatusBar funktioniert nicht mehr, wenn man VCL-Styles verwendet.
OnDrawPanel wird nicht mehr angesprungen, auch nicht, wenn man DrawPanel direkt überschreibt.

[Schorschi5566]

Workaround für das Form-Caption-Problem: Erst in OnActivate die Caption zuweisen.

Dann klappt's ohne dass der Style auf der Strecke bleibt.