[GExperts-Checkins] SF.net SVN: gexperts:[4819] trunk/Source

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

Revision: 4819
          http://sourceforge.net/p/gexperts/code/4819
Author:   akalwahome
Date:     2025-10-03 13:01:21 +0000 (Fri, 03 Oct 2025)
Log Message:
-----------
GUI adjustmensts for themed IDE.

Modified Paths:
--------------
    trunk/Source/ClassBrowser/GX_ClassBrowser.pas
    trunk/Source/ClassBrowser/GX_ClassOptions.pas
    trunk/Source/OpenFile/GX_OpenFileConfig.pas
    trunk/Source/RenameComponents/GX_CompRenameConfig.pas

Modified: trunk/Source/ClassBrowser/GX_ClassBrowser.pas
===================================================================
--- trunk/Source/ClassBrowser/GX_ClassBrowser.pas	2025-10-03 13:01:11 UTC (rev 4818)
+++ trunk/Source/ClassBrowser/GX_ClassBrowser.pas	2025-10-03 13:01:21 UTC (rev 4819)
@@ -1689,6 +1689,18 @@
       LService.ApplyTheme(MainMenu);
     end;
 *)
+    Splitter1.Color := GetThemedColor(clBtnFace);
+    Splitter2.Color := GetThemedColor(clBtnFace);
+
+    FMethodText.Highlighter := gxpPas;
+    FMethodText.Color := GetThemedColor(clWindow);
+    FMethodText.Font.Color := GetThemedColor(clWindowText);
+
+    GxOtaGetEditorFont(FCodeText.Font, -1);
+    FCodeText.Highlighter := gxpPas;
+    FCodeText.Color := GetThemedColor(clWindow);
+    FCodeText.Font.Color := GetThemedColor(clWindowText);
+    FCodeText.ActiveLineColor := GetThemedColor(clInfoBk);
   end;
 end;
 {$ENDIF GX_SUPPORTS_THEMING}

Modified: trunk/Source/ClassBrowser/GX_ClassOptions.pas
===================================================================
--- trunk/Source/ClassBrowser/GX_ClassOptions.pas	2025-10-03 13:01:11 UTC (rev 4818)
+++ trunk/Source/ClassBrowser/GX_ClassOptions.pas	2025-10-03 13:01:21 UTC (rev 4819)
@@ -115,6 +115,7 @@
 
 uses
   Dialogs,
+  GX_IdeUtils,
   u_dzVclUtils;
 
 constructor TfmClassOptions.Create(_Owner: TComponent);
@@ -129,6 +130,8 @@
   cbEditor.Items.Assign(Screen.Fonts);
   cbReportFont.Items.assign(Screen.Fonts);
 
+  TPageControl_AdjustForTheme(pcClassOptions);
+
   InitDpiScaler;
 end;
 

Modified: trunk/Source/OpenFile/GX_OpenFileConfig.pas
===================================================================
--- trunk/Source/OpenFile/GX_OpenFileConfig.pas	2025-10-03 13:01:11 UTC (rev 4818)
+++ trunk/Source/OpenFile/GX_OpenFileConfig.pas	2025-10-03 13:01:21 UTC (rev 4819)
@@ -158,7 +158,7 @@
 implementation
 
 uses
-  SysUtils, Dialogs, GX_GenericUtils, GX_GxUtils, u_dzVclUtils;
+  SysUtils, Dialogs, GX_GenericUtils, GX_GxUtils, GX_IdeUtils, u_dzVclUtils;
 
 {$R *.dfm}
 
@@ -559,6 +559,7 @@
   btnTypeAdd.Top := ch - h - Spacing;
   btnTypeDelete.Top := ch - h - Spacing;
   lbxTypeList.Height := ch - h - 2 * Spacing - lbxTypeList.Top;
+  TButton_AlignVerticallyTo(btnDirectory, edtDirectory);
 end;
 {$ENDIF GX_IDE_IS_HIDPI_AWARE}
 
@@ -642,7 +643,7 @@
   SetParentBackgroundValue(gbxGeneralSettings, True);
   SetParentBackgroundValue(gbxIDEMenuItems, True);
   TWinControl_ActivateDropFiles(lbxDirectoryList, lbxDirectoryListFilesDropped);
-
+  TPageControl_AdjustForTheme(pcConfigPages);
   InitDpiScaler;
 
   Self.OnResize := FormResize;

Modified: trunk/Source/RenameComponents/GX_CompRenameConfig.pas
===================================================================
--- trunk/Source/RenameComponents/GX_CompRenameConfig.pas	2025-10-03 13:01:11 UTC (rev 4818)
+++ trunk/Source/RenameComponents/GX_CompRenameConfig.pas	2025-10-03 13:01:21 UTC (rev 4819)
@@ -173,7 +173,7 @@
 uses
   Math, StrUtils,
   u_dzClassUtils, u_dzVclUtils, u_dzStringUtils, u_dzMiscUtils,
-  GX_GenericUtils, GX_OtaUtils, GX_GxUtils, GX_CompRenameAdvanced,
+  GX_GenericUtils, GX_OtaUtils, GX_IdeUtils, GX_GxUtils, GX_CompRenameAdvanced,
   GX_MessageBox, GX_GExperts;
 
 function CompareClassFunc(List: TStringList; Index1, Index2: Integer): Integer;
@@ -398,6 +398,7 @@
   TControl_SetMinConstraints(Self);
 
   TPanel_BevelNone([pnlRules, pnlRight, pnlIncSearch, pnlNames]);
+  TPageControl_AdjustForTheme(pc_Names);
 
   FGridVcl := CreateGrid(ts_NamesVcl, 'GridVcl');
   FGridFmx := CreateGrid(ts_NamesFmx, 'GridFmx');

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