[GExperts-Checkins] SF.net SVN: gexperts:[4303] branches/dark-mode/Source /Framework/GX_SynMemoUtils.pas

[<aka...@us...>]

Revision: 4303
          http://sourceforge.net/p/gexperts/code/4303
Author:   akalwahome
Date:     2024-08-27 18:33:39 +0000 (Tue, 27 Aug 2024)
Log Message:
-----------
Dark Mode: Register TScrollingStyleHook for TCustomSynEdit (dark scroll bars).

Modified Paths:
--------------
    branches/dark-mode/Source/Framework/GX_SynMemoUtils.pas

Modified: branches/dark-mode/Source/Framework/GX_SynMemoUtils.pas
===================================================================
--- branches/dark-mode/Source/Framework/GX_SynMemoUtils.pas	2024-08-27 18:27:25 UTC (rev 4302)
+++ branches/dark-mode/Source/Framework/GX_SynMemoUtils.pas	2024-08-27 18:33:39 UTC (rev 4303)
@@ -6,7 +6,12 @@
 
 uses  // If you get errors here, add SynEdit to your library path
   SynEdit,
-  GX_GenericUtils, GX_IDEUtils;
+{$IFDEF GX_SUPPORTS_THEMING}
+  Vcl.Themes,
+  Vcl.Forms,
+{$ENDIF}
+  GX_GenericUtils,
+  GX_IDEUtils;
 
 function GetGXHighlighterForCurrentSourceEditor: TGXSyntaxHighlighter;
 
@@ -114,5 +119,13 @@
   Result := GxOtaGetCurrentSyntaxHighlighter(SourceEditor);
 end;
 
+{$IFDEF GX_SUPPORTS_THEMING}
+Initialization
+  TCustomStyleEngine.RegisterStyleHook(TCustomSynEdit, TScrollingStyleHook);
+
+Finalization
+  TCustomStyleEngine.UnRegisterStyleHook(TCustomSynEdit, TScrollingStyleHook);
+{$ENDIF}
+
 end.
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.