[VCL] (Jv)StringGrid vs Windows Design

[Root2k]

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 scheinen leider nicht zu funktionieren.

[matashen]

EDIT: OK Problem falsch erkannt

[Root2k]

Delphi-Quellcode:

uses
...
  Themes;

procedure TfrmDesign.FormShow(Sender: TObject);
begin
  ThemeServices.OnThemeChange := ThemeChanged;
end;

procedure TfrmDesign.ThemeChanged(Sender: TObject);
begin
  ShowMessage('Design wurde geändert.');
end;

Damit hat sich das Thema (für mich) wohl erledigt.
Immer gut wenn man (mehr oder weniger) selbst drauf kommt - nur blöd wenn das nicht vor dem Foreneintrag passiert.

Naja... *closed*

PS:
Hinweis: Der Code ist wohl erst ab Delphi 7 nutzbar.