Menu
▾
▴
[GExperts-Checkins] SF.net SVN: gexperts:[4270] branches/dark-mode
|
From: <aka...@us...> - 2024-06-09 16:19:17
|
Revision: 4270
http://sourceforge.net/p/gexperts/code/4270
Author: akalwahome
Date: 2024-06-09 16:19:15 +0000 (Sun, 09 Jun 2024)
Log Message:
-----------
added GX_SUPPORTS_THEMING
Added GX_HotKeyDrawFix fur Delphi 11 and 12
Modified Paths:
--------------
branches/dark-mode/Projects/DelphiXx110Alexandria/GExpertsRS110.dpr
branches/dark-mode/Projects/DelphiXx110Alexandria/GExpertsRS110.dproj
branches/dark-mode/Projects/DelphiXx120/GExpertsRS120.dpr
branches/dark-mode/Projects/DelphiXx120/GExpertsRS120.dproj
branches/dark-mode/Source/Goto/GX_Goto.dfm
branches/dark-mode/Source/Include/GX_CondDefine.inc
Modified: branches/dark-mode/Projects/DelphiXx110Alexandria/GExpertsRS110.dpr
===================================================================
--- branches/dark-mode/Projects/DelphiXx110Alexandria/GExpertsRS110.dpr 2024-06-09 16:17:37 UTC (rev 4269)
+++ branches/dark-mode/Projects/DelphiXx110Alexandria/GExpertsRS110.dpr 2024-06-09 16:19:15 UTC (rev 4270)
@@ -141,6 +141,7 @@
GX_GxUtils in '..\..\source\Utils\GX_GxUtils.pas',
GX_HideNavbar in '..\..\source\Experts\EditorEnhancements\GX_HideNavbar.pas',
GX_HideNonVisualComps in '..\..\source\HideNonvisualComponents\GX_HideNonVisualComps.pas',
+ GX_HotkeyDrawFix in '..\..\source\utils\GX_HotkeyDrawFix.pas',
GX_IconMessageBox in '..\..\source\Framework\GX_IconMessageBox.pas',
GX_IdeApplicationSettingsEnhancer in '..\..\Source\IDE\GX_IdeApplicationSettingsEnhancer.pas',
GX_IdeBuildEventFavoriteEdit in '..\..\Source\IDE\GX_IdeBuildEventFavoriteEdit.pas' {f_IdeBuildEventFavoriteEdit},
Modified: branches/dark-mode/Projects/DelphiXx110Alexandria/GExpertsRS110.dproj
===================================================================
--- branches/dark-mode/Projects/DelphiXx110Alexandria/GExpertsRS110.dproj 2024-06-09 16:17:37 UTC (rev 4269)
+++ branches/dark-mode/Projects/DelphiXx110Alexandria/GExpertsRS110.dproj 2024-06-09 16:19:15 UTC (rev 4270)
@@ -49,13 +49,11 @@
<DCC_UsePackage>rtl;vcl;designide;$(DCC_UsePackage)</DCC_UsePackage>
<GenDll>true</GenDll>
<Manifest_File>(None)</Manifest_File>
- <PreBuildEvent>
- <![CDATA[call ..\..\source\_CreateGExpertsManifest.cmd
+ <PreBuildEvent><![CDATA[call ..\..\source\_CreateGExpertsManifest.cmd
call ..\..\images\_CreateGXIconsRc.cmd
call ..\..\buildtools\prebuild.cmd "$(PROJECTPATH)"
call ..\..\buildtools\movedll.cmd "$(OUTPUTPATH)"
-$(PreBuildEvent)]]>
- </PreBuildEvent>
+$(PreBuildEvent)]]></PreBuildEvent>
<UsePackages>True</UsePackages>
<VerInfo_Keys>FileVersion=1.0.0.0</VerInfo_Keys>
<VerInfo_Locale>2057</VerInfo_Locale>
@@ -80,7 +78,7 @@
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<Debugger_HostApplication>$(BDS)\bin\bds.exe</Debugger_HostApplication>
- <Debugger_RunParams>-ns -np</Debugger_RunParams>
+ <Debugger_RunParams>-rBDSPlain</Debugger_RunParams>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@@ -441,6 +439,7 @@
<DCCReference Include="..\..\source\Utils\GX_GxUtils.pas"/>
<DCCReference Include="..\..\source\Experts\EditorEnhancements\GX_HideNavbar.pas"/>
<DCCReference Include="..\..\source\HideNonvisualComponents\GX_HideNonVisualComps.pas"/>
+ <DCCReference Include="..\..\source\utils\GX_HotkeyDrawFix.pas"/>
<DCCReference Include="..\..\source\Framework\GX_IconMessageBox.pas"/>
<DCCReference Include="..\..\Source\IDE\GX_IdeApplicationSettingsEnhancer.pas"/>
<DCCReference Include="..\..\Source\IDE\GX_IdeBuildEventFavoriteEdit.pas">
@@ -752,6 +751,14 @@
<PostBuildEvent/>
<PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
</PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='Win64'">
+ <PreBuildEvent>call ..\..\source\_CreateGExpertsManifest.cmd&&call ..\..\images\_CreateGXIconsRc.cmd&&call ..\..\buildtools\prebuild.cmd "$(PROJECTPATH)"&&call ..\..\buildtools\movedll.cmd "$(OUTPUTPATH)"</PreBuildEvent>
+ <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
+ <PreLinkEvent/>
+ <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
+ <PostBuildEvent/>
+ <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
+ </PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='Win32'">
<PreBuildEvent>call ..\..\source\_CreateGExpertsManifest.cmd&&call ..\..\images\_CreateGXIconsRc.cmd&&call ..\..\buildtools\prebuild.cmd "$(PROJECTPATH)"&&call ..\..\buildtools\movedll.cmd "$(OUTPUTPATH)"</PreBuildEvent>
<PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
@@ -760,4 +767,12 @@
<PostBuildEvent/>
<PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
</PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='Win64'">
+ <PreBuildEvent>call ..\..\source\_CreateGExpertsManifest.cmd&&call ..\..\images\_CreateGXIconsRc.cmd&&call ..\..\buildtools\prebuild.cmd "$(PROJECTPATH)"&&call ..\..\buildtools\movedll.cmd "$(OUTPUTPATH)"</PreBuildEvent>
+ <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
+ <PreLinkEvent/>
+ <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
+ <PostBuildEvent/>
+ <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
+ </PropertyGroup>
</Project>
Modified: branches/dark-mode/Projects/DelphiXx120/GExpertsRS120.dpr
===================================================================
--- branches/dark-mode/Projects/DelphiXx120/GExpertsRS120.dpr 2024-06-09 16:17:37 UTC (rev 4269)
+++ branches/dark-mode/Projects/DelphiXx120/GExpertsRS120.dpr 2024-06-09 16:19:15 UTC (rev 4270)
@@ -184,6 +184,7 @@
GX_MacroTemplates in '..\..\source\MacroTemplates\GX_MacroTemplates.pas' {fmMacroTemplates},
GX_MacroTemplatesExpert in '..\..\source\MacroTemplates\GX_MacroTemplatesExpert.pas',
GX_MemoEscFix in '..\..\Source\Utils\GX_MemoEscFix.pas',
+ GX_HotkeyDrawFix in '..\..\Source\Utils\GX_HotkeyDrawFix.pas',
GX_MenuActions in '..\..\source\Framework\GX_MenuActions.pas',
GX_MenusForEditorExpert in '..\..\source\Editor\GX_MenusForEditorExpert.pas',
GX_MessageBox in '..\..\source\Framework\GX_MessageBox.pas' {fmGxMessageBox},
Modified: branches/dark-mode/Projects/DelphiXx120/GExpertsRS120.dproj
===================================================================
--- branches/dark-mode/Projects/DelphiXx120/GExpertsRS120.dproj 2024-06-09 16:17:37 UTC (rev 4269)
+++ branches/dark-mode/Projects/DelphiXx120/GExpertsRS120.dproj 2024-06-09 16:19:15 UTC (rev 4270)
@@ -9,6 +9,7 @@
<ProjectGuid>{BB29661E-3FA2-4EA6-96EB-0768940BAAB6}</ProjectGuid>
<ProjectVersion>20.1</ProjectVersion>
<TargetedPlatforms>1</TargetedPlatforms>
+ <ProjectName Condition="'$(ProjectName)'==''">GExpertsRS120</ProjectName>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
@@ -56,13 +57,11 @@
<DCC_UsePackage>rtl;vcl;designide;$(DCC_UsePackage)</DCC_UsePackage>
<GenDll>true</GenDll>
<Manifest_File>(None)</Manifest_File>
- <PreBuildEvent>
- <![CDATA[call ..\..\images\_CreateGXIconsRc.cmd
+ <PreBuildEvent><![CDATA[call ..\..\images\_CreateGXIconsRc.cmd
call ..\..\buildtools\prebuild.cmd "$(PROJECTPATH)"
call ..\..\buildtools\movedll.cmd "$(OUTPUTPATH)"
call ..\..\source\_CreateGExpertsManifest.cmd
-$(PreBuildEvent)]]>
- </PreBuildEvent>
+$(PreBuildEvent)]]></PreBuildEvent>
<UsePackages>True</UsePackages>
<VerInfo_Keys>FileVersion=1.0.0.0</VerInfo_Keys>
<VerInfo_Locale>2057</VerInfo_Locale>
@@ -91,6 +90,7 @@
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<Debugger_HostApplication>$(BDS)\bin\bds.exe</Debugger_HostApplication>
+ <Debugger_RunParams>-rBDSPlain -pDelphi</Debugger_RunParams>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@@ -539,6 +539,7 @@
</DCCReference>
<DCCReference Include="..\..\source\MacroTemplates\GX_MacroTemplatesExpert.pas"/>
<DCCReference Include="..\..\Source\Utils\GX_MemoEscFix.pas"/>
+ <DCCReference Include="..\..\Source\Utils\GX_HotkeyDrawFix.pas"/>
<DCCReference Include="..\..\source\Framework\GX_MenuActions.pas"/>
<DCCReference Include="..\..\source\Editor\GX_MenusForEditorExpert.pas"/>
<DCCReference Include="..\..\source\Framework\GX_MessageBox.pas">
@@ -763,6 +764,14 @@
<PostBuildEvent/>
<PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
</PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='Win64'">
+ <PreBuildEvent>call ..\..\images\_CreateGXIconsRc.cmd&&call ..\..\buildtools\prebuild.cmd "$(PROJECTPATH)"&&call ..\..\buildtools\movedll.cmd "$(OUTPUTPATH)"&&call ..\..\source\_CreateGExpertsManifest.cmd</PreBuildEvent>
+ <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
+ <PreLinkEvent/>
+ <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
+ <PostBuildEvent/>
+ <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
+ </PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='Win32'">
<PreBuildEvent>call ..\..\images\_CreateGXIconsRc.cmd&&call ..\..\buildtools\prebuild.cmd "$(PROJECTPATH)"&&call ..\..\buildtools\movedll.cmd "$(OUTPUTPATH)"&&call ..\..\source\_CreateGExpertsManifest.cmd</PreBuildEvent>
<PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
@@ -771,4 +780,12 @@
<PostBuildEvent/>
<PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
</PropertyGroup>
+ <PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='Win64'">
+ <PreBuildEvent>call ..\..\images\_CreateGXIconsRc.cmd&&call ..\..\buildtools\prebuild.cmd "$(PROJECTPATH)"&&call ..\..\buildtools\movedll.cmd "$(OUTPUTPATH)"&&call ..\..\source\_CreateGExpertsManifest.cmd</PreBuildEvent>
+ <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode>
+ <PreLinkEvent/>
+ <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode>
+ <PostBuildEvent/>
+ <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode>
+ </PropertyGroup>
</Project>
Modified: branches/dark-mode/Source/Goto/GX_Goto.dfm
===================================================================
--- branches/dark-mode/Source/Goto/GX_Goto.dfm 2024-06-09 16:17:37 UTC (rev 4269)
+++ branches/dark-mode/Source/Goto/GX_Goto.dfm 2024-06-09 16:19:15 UTC (rev 4270)
@@ -4,22 +4,24 @@
Caption = 'Go to'
ClientHeight = 219
ClientWidth = 217
+ ParentFont = False
+ Font.Height = -13
+ Font.Name = 'MS Shell Dlg 2'
Position = poMainFormCenter
- PixelsPerInch = 96
- TextHeight = 13
+ PixelsPerInch = 96
+ TextHeight = 16
object l_LineNumber: TLabel
Left = 8
Top = 8
- Width = 59
- Height = 13
+ Width = 72
+ Height = 16
Caption = 'Line Number'
end
object cmb_LineNumber: TComboBox
Left = 8
- Top = 24
+ Top = 27
Width = 201
- Height = 21
- ItemHeight = 13
+ Height = 24
TabOrder = 0
OnChange = cmb_LineNumberChange
OnKeyDown = cmb_LineNumberKeyDown
@@ -26,19 +28,20 @@
end
object lb_UnitPositions: TListBox
Left = 8
- Top = 56
+ Top = 57
Width = 201
- Height = 33
- ItemHeight = 13
+ Height = 123
+ Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 1
OnClick = lb_UnitPositionsClick
OnDblClick = lb_UnitPositionsDblClick
end
object b_OK: TButton
- Left = 56
- Top = 184
+ Left = 53
+ Top = 186
Width = 75
Height = 25
+ Anchors = [akRight, akBottom]
Caption = 'OK'
Default = True
ModalResult = 1
@@ -45,10 +48,11 @@
TabOrder = 2
end
object b_Cancel: TButton
- Left = 136
- Top = 184
+ Left = 134
+ Top = 186
Width = 75
Height = 25
+ Anchors = [akRight, akBottom]
Cancel = True
Caption = 'Cancel'
ModalResult = 2
Modified: branches/dark-mode/Source/Include/GX_CondDefine.inc
===================================================================
--- branches/dark-mode/Source/Include/GX_CondDefine.inc 2024-06-09 16:17:37 UTC (rev 4269)
+++ branches/dark-mode/Source/Include/GX_CondDefine.inc 2024-06-09 16:19:15 UTC (rev 4270)
@@ -254,6 +254,10 @@
{$ENDIF}
{.$DEFINE GX_IDE_IS_HIDPI_AWARE}
+{$IFDEF GX_DELPHI11_UP}
+ {$DEFINE GX_SUPPORTS_THEMING}
+{$ENDIF}
+
// Define UniSynEdit if SynEdit is available
{$IFDEF SYNEDIT}
{$DEFINE UniSynEdit}
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|