|
From: <aka...@us...> - 2025-10-03 13:01:25
|
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.
|