fix(theme): central ActiveStyleServices provider for shared UI files

3 weitere Stellen verwendeten die VCL-globale Vcl.Themes.StyleServices
und ignorierten damit das IDE-Theme bei VCL/IDE-Style-Mismatch:

* uIDETheme.RebuildCache: FrameBg/FrameFg-Cache hatte falsche Werte
* uIDEStatsTiles.TTilePanel.Paint: Tile-Border-Pen im VCL-Style
* uIDEHelpPanel.ShowFinding/Placeholder: Hint-Header-Background falsch

Fix: zentraler Hook in uAnalyserTheme.pas:

  var StyleServicesProvider: TStyleServicesProvider = nil;
  function ActiveStyleServices: TCustomStyleServices;

IDE-Plugin's RegisterAnalyserDockableForm setzt den Provider auf eine
Closure die IOTAIDEThemingServices.StyleServices liefert. Standalone
laesst's nil, ActiveStyleServices faellt auf Vcl.Themes.StyleServices
zurueck.

Damit folgen alle shared UI-Komponenten (SeverityBg, TilePanel.Paint,
HelpDescLabel.Color) automatisch dem IDE-Theme im Plugin-Kontext und
dem VCL-Style im Standalone-Kontext — ohne dass jeder Caller den
Service-Lookup selbst machen muss.

uIDETheme.RebuildCache holt Theming.StyleServices direkt (ist eh IDE-
only), kein Umweg ueber den Provider noetig.

Author: nrodear

StaticCodeAnalyserForm/sources/UI/uAnalyserTheme.pas

@@ -15,9 +15,25 @@
 interface
 
 uses
+  System.SysUtils,
   Vcl.Graphics, Vcl.Themes,
   uAnalyserTypes;
 
+type
+  TStyleServicesProvider = reference to function: TCustomStyleServices;
+
+var
+  // Global Hook fuer Color-Auflösung. IDE-Plugin setzt das auf eine
+  // Funktion die IOTAIDEThemingServices.StyleServices liefert.
+  // Standalone laesst's nil — ActiveStyleServices faellt dann auf die
+  // VCL-globale Vcl.Themes.StyleServices zurueck.
+  StyleServicesProvider: TStyleServicesProvider = nil;
+
+// Liefert die aktive TCustomStyleServices. Im IDE-Plugin-Kontext via
+// StyleServicesProvider die IDE-spezifische (folgt IDE-Theme).
+// Sonst die VCL-globale (folgt TStyleManager.ActiveStyle).
+function ActiveStyleServices: TCustomStyleServices;
+
 // Saturierte Akzentfarbe fuer eine Severity. Wird verwendet:
 //   * 3px-Indikatorleiste am linken Zellenrand
 //   * Akzent-Schriftfarben fuer "Vorher"/"Nachher"-Labels
@@ -48,6 +64,15 @@ implementation
   Winapi.Windows,
   uAnalyserPalette;
 
+function ActiveStyleServices: TCustomStyleServices;
+begin
+  Result := nil;
+  if Assigned(StyleServicesProvider) then
+    Result := StyleServicesProvider();
+  if not Assigned(Result) then
+    Result := Vcl.Themes.StyleServices;
+end;
+
 function SeverityAccent(Severity: TFindingSeverity): TColor;
 begin
   case Severity of
@@ -81,7 +106,10 @@ function BlendColor(Base, Accent: TColor; Ratio: Single): TColor;
 function SeverityBg(Severity: TFindingSeverity;
   ABase: TColor): TColor;
 begin
-  Result := SeverityBg(Severity, ABase, StyleServices);
+  // Default-Pfad: via ActiveStyleServices — im IDE-Plugin liefert das die
+  // IDE-StyleServices via StyleServicesProvider, im Standalone die VCL-
+  // globale.
+  Result := SeverityBg(Severity, ABase, ActiveStyleServices);
 end;
 
 function SeverityBg(Severity: TFindingSeverity;

StaticCodeAnalyserForm/sources/UI/uIDEHelpPanel.pas

@@ -314,7 +314,7 @@ procedure TFindingHintPanel.ApplyLayout;
 procedure TFindingHintPanel.ShowPlaceholder;
 begin
   FHelpDescLabel.Caption := '  ' + _('Select a row to see the fix hint');
-  FHelpDescLabel.Color   := StyleServices.GetSystemColor(IDE_BG_CHROME);
+  FHelpDescLabel.Color   := ActiveStyleServices.GetSystemColor(IDE_BG_CHROME);
   FHelpBefore.Lines.Text := '';
   FHelpAfter.Lines.Text  := '';
 end;
@@ -324,7 +324,7 @@ procedure TFindingHintPanel.ShowFinding(F: TLeakFinding);
   Hint         : TFixHint;
   ColorDefault : TColor;
 begin
-  ColorDefault := StyleServices.GetSystemColor(IDE_BG_CHROME);
+  ColorDefault := ActiveStyleServices.GetSystemColor(IDE_BG_CHROME);
 
   if not Assigned(F) then
   begin

StaticCodeAnalyserForm/sources/UI/uIDEStatsTiles.pas

@@ -150,7 +150,7 @@       TEntry = record
 implementation
 
 uses
-  Winapi.Windows, uAnalyserPalette, uIDEColors, uLocalization;
+  Winapi.Windows, uAnalyserPalette, uAnalyserTheme, uIDEColors, uLocalization;
 
 type
   // Access-Class zum Lesen/Schreiben von TControl.OnResize (protected).
@@ -236,8 +236,10 @@ procedure TTilePanel.Paint;
   Canvas.Brush.Style := bsClear;
   // BorderColor ist ein System-Color-Index (z. B. cl3DDkShadow). Canvas.Pen
   // resolved nur ueber GetSysColor (Windows nativ), nicht ueber den aktiven
-  // VCL-Style. Daher hier explizit ueber StyleServices aufloesen.
-  Canvas.Pen.Color := StyleServices.GetSystemColor(FBorderColor);
+  // Style. ActiveStyleServices liefert die IDE-StyleServices im Plugin-
+  // Kontext, sonst die VCL-globale — damit folgt der Border-Pen dem
+  // gleichen Theme wie der Rest des Plugins.
+  Canvas.Pen.Color := ActiveStyleServices.GetSystemColor(FBorderColor);
   Canvas.Pen.Width := 1;
   Canvas.Rectangle(ClientRect);
 end;

StaticCodeAnalyserIDE/uIDEAnalyserForm.pas

@@ -3785,6 +3785,21 @@ procedure RegisterAnalyserDockableForm;
   // und der nachfolgende Unregister-Pfad doppel-frees riskieren.
   if not Supports(BorlandIDEServices, INTAServices, NTASvc) then Exit;
 
+  // Globaler Hook: ActiveStyleServices liefert ab jetzt die IDE-Theme-
+  // StyleServices statt der VCL-globalen. Damit folgen alle shared UI-
+  // Komponenten (uAnalyserTheme.SeverityBg, uIDEStatsTiles.TTilePanel.
+  // Paint, uIDEHelpPanel) dem IDE-Theme - kritisch wenn der User einen
+  // anderen VCL-Style aktiv hat als das IDE-Theme.
+  uAnalyserTheme.StyleServicesProvider :=
+    function: TCustomStyleServices
+    var
+      Theming: IOTAIDEThemingServices;
+    begin
+      Result := nil;
+      if Supports(BorlandIDEServices, IOTAIDEThemingServices, Theming) then
+        Result := Theming.StyleServices;
+    end;
+
   GDockableForm := TAnalyserDockableForm.Create;
 
   // Dockable Form registrieren (fuer Desktop-State-Persistenz)

StaticCodeAnalyserIDE/uIDETheme.pas

@@ -263,10 +263,21 @@ procedure TIDEThemeImpl.EnsureNotifier;
 
 procedure TIDEThemeImpl.RebuildCache;
 var
-  Svc : INTACodeEditorServices;
+  Svc     : INTACodeEditorServices;
+  Theming : IOTAIDEThemingServices;
+  Styles  : TCustomStyleServices;
 begin
-  FFrameBg := StyleServices.GetSystemColor(clWindow);
-  FFrameFg := StyleServices.GetSystemColor(clWindowText);
+  // IDE-StyleServices verwenden (folgt IDE-Theme), nicht VCL-globale —
+  // die kann von TStyleManager.ActiveStyle abweichen wenn der User
+  // einen anderen VCL-Style als das IDE-Theme aktiv hat.
+  Styles := nil;
+  if Supports(BorlandIDEServices, IOTAIDEThemingServices, Theming) then
+    Styles := Theming.StyleServices;
+  if not Assigned(Styles) then
+    Styles := Vcl.Themes.StyleServices;
+  FFrameBg := Styles.GetSystemColor(clWindow);
+  FFrameFg := Styles.GetSystemColor(clWindowText);
+
   FEditorBg := clNone;
   try
     if Supports(BorlandIDEServices, INTACodeEditorServices, Svc) then