Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Root2k,
4. Okt 2012
uses
...
Themes;
procedure TfrmDesign.FormShow(Sender: TObject);
begin
ThemeServices.OnThemeChange := ThemeChanged;
end;
procedure TfrmDesign.ThemeChanged(Sender: TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Root2k,
4. Okt 2012
Was mir noch aufgefallen ist:
Wenn ich nach dem Umstellen des Windows Designs (auf Klassisch) den DrawingStyle des StringGrids auf gdsClassic und anschließend wieder auf gdsThemed setze, bekomme ich wieder eine korrekte Darstellung.
Jetzt müsste ich nur noch herausfinden, ob man irgendwie abfragen kann wenn das Windows Design verändert wird.
Die Events WM_STYLECHANGED und WM_STYLECHANGING...