Skip to content

Commit 16eb768

Browse files
landrixlandrix
committed
Delphi 13
1 parent 3dda54c commit 16eb768

File tree

15 files changed

+2139
-364
lines changed

15 files changed

+2139
-364
lines changed

‎Code/DDevExtensions/Bin/Changes.txt‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,7 @@
1+
Version: 2.91
2+
=============
3+
- Added: Support for Delphi 13.0
4+
15
Version: 2.90
26
=============
37
- Added: Support for Delphi 12.0

‎Code/DDevExtensions/Bin/Version.txt‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
DDevExtensions Version 2.90
1+
DDevExtensions Version 2.91

‎Code/DDevExtensions/D_D120/DDevExtensions.dpr‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -89,7 +89,8 @@ uses
8989
DocModuleHandler in '..\Source\Editor\DocModuleHandler.pas',
9090
CodeInsightHandling in '..\Source\Editor\CodeInsightHandling.pas',
9191
DisableAlphaSortClassCompletion in '..\Source\DSUFeatures\DisableAlphaSortClassCompletion.pas',
92-
RemovePixelsPerInchProperty in '..\Source\FormDesignerHelpers\RemovePixelsPerInchProperty.pas';
92+
RemovePixelsPerInchProperty in '..\Source\FormDesignerHelpers\RemovePixelsPerInchProperty.pas',
93+
RemoveTextHeightProperty in '..\Source\FormDesignerHelpers\RemoveTextHeightProperty.pas';
9394

9495
var
9596
AboutBoxServices: IOTAAboutBoxServices = nil;

‎Code/DDevExtensions/D_D120/DDevExtensions.dproj‎

Lines changed: 867 additions & 34 deletions
Large diffs are not rendered by default.

‎Code/DDevExtensions/D_D130/DDevExtensions.dpr‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -93,7 +93,8 @@ uses
9393
DocModuleHandler in '..\Source\Editor\DocModuleHandler.pas',
9494
CodeInsightHandling in '..\Source\Editor\CodeInsightHandling.pas',
9595
DisableAlphaSortClassCompletion in '..\Source\DSUFeatures\DisableAlphaSortClassCompletion.pas',
96-
RemovePixelsPerInchProperty in '..\Source\FormDesignerHelpers\RemovePixelsPerInchProperty.pas';
96+
RemovePixelsPerInchProperty in '..\Source\FormDesignerHelpers\RemovePixelsPerInchProperty.pas',
97+
RemoveTextHeightProperty in '..\Source\FormDesignerHelpers\RemoveTextHeightProperty.pas';
9798

9899
var
99100
AboutBoxServices: IOTAAboutBoxServices = nil;

‎Code/DDevExtensions/D_D130/DDevExtensions.dproj‎

Lines changed: 1194 additions & 310 deletions
Large diffs are not rendered by default.

‎Code/DDevExtensions/Installer/DDevExtensionsReg.dproj‎

Lines changed: 28 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
1+
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
22
<PropertyGroup>
33
<ProjectGuid>{2BAF01A7-5596-444B-89D1-47A1A4550C45}</ProjectGuid>
44
<MainSource>DDevExtensionsReg.dpr</MainSource>
@@ -10,7 +10,7 @@
1010
<FrameworkType>VCL</FrameworkType>
1111
<Base>True</Base>
1212
<Platform Condition="'$(Platform)'==''">Win32</Platform>
13-
<TargetedPlatforms>1</TargetedPlatforms>
13+
<TargetedPlatforms>3</TargetedPlatforms>
1414
<Platform>Win32</Platform>
1515
<ProjectName Condition="'$(ProjectName)'==''">DDevExtensionsReg</ProjectName>
1616
</PropertyGroup>
@@ -38,6 +38,12 @@
3838
<Cfg_1>true</Cfg_1>
3939
<Base>true</Base>
4040
</PropertyGroup>
41+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
42+
<Cfg_1_Win64>true</Cfg_1_Win64>
43+
<CfgParent>Cfg_1</CfgParent>
44+
<Cfg_1>true</Cfg_1>
45+
<Base>true</Base>
46+
</PropertyGroup>
4147
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
4248
<Cfg_2>true</Cfg_2>
4349
<CfgParent>Base</CfgParent>
@@ -49,6 +55,12 @@
4955
<Cfg_2>true</Cfg_2>
5056
<Base>true</Base>
5157
</PropertyGroup>
58+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
59+
<Cfg_2_Win64>true</Cfg_2_Win64>
60+
<CfgParent>Cfg_2</CfgParent>
61+
<Cfg_2>true</Cfg_2>
62+
<Base>true</Base>
63+
</PropertyGroup>
5264
<PropertyGroup Condition="'$(Base)'!=''">
5365
<VerInfo_Build>575</VerInfo_Build>
5466
<VerInfo_Locale>1031</VerInfo_Locale>
@@ -82,6 +94,11 @@
8294
<PropertyGroup Condition="'$(Base_Win64)'!=''">
8395
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
8496
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
97+
<DCC_Namespace>Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
98+
<BT_BuildType>Debug</BT_BuildType>
99+
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
100+
<VerInfo_Locale>1033</VerInfo_Locale>
101+
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
85102
</PropertyGroup>
86103
<PropertyGroup Condition="'$(Cfg_1)'!=''">
87104
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
@@ -95,6 +112,9 @@
95112
<DCC_MapFile>0</DCC_MapFile>
96113
<AppDPIAwarenessMode>none</AppDPIAwarenessMode>
97114
</PropertyGroup>
115+
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
116+
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
117+
</PropertyGroup>
98118
<PropertyGroup Condition="'$(Cfg_2)'!=''">
99119
<VerInfo_MinorVer>7</VerInfo_MinorVer>
100120
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
@@ -103,6 +123,9 @@
103123
<BT_BuildType>Debug</BT_BuildType>
104124
<Manifest_File>(Ohne)</Manifest_File>
105125
</PropertyGroup>
126+
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
127+
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
128+
</PropertyGroup>
106129
<ItemGroup>
107130
<DelphiCompile Include="$(MainSource)">
108131
<MainSource>MainSource</MainSource>
@@ -165,13 +188,13 @@
165188
<VersionInfoKeys Name="Comments"/>
166189
</VersionInfoKeys>
167190
<Excluded_Packages>
168-
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automatisierungsserver</Excluded_Packages>
169-
<Excluded_Packages Name="$(BDSBIN)\dclofficexp290.bpl">Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages>
191+
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k370.bpl">Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automatisierungsserver</Excluded_Packages>
192+
<Excluded_Packages Name="$(BDSBIN)\dclofficexp370.bpl">Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages>
170193
</Excluded_Packages>
171194
</Delphi.Personality>
172195
<Platforms>
173196
<Platform value="Win32">True</Platform>
174-
<Platform value="Win64">False</Platform>
197+
<Platform value="Win64">True</Platform>
175198
</Platforms>
176199
</BorlandProject>
177200
<ProjectFileVersion>12</ProjectFileVersion>

‎Code/DDevExtensions/Installer/DDevExtensionsReg.res‎

0 Bytes
Binary file not shown.

‎Code/DDevExtensions/Source/EditPopupCtrl.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -83,7 +83,7 @@ TDropDownEditSearchBase = class(TDropDownEditBase)
8383
FImages: TCustomImageList;
8484
FImageIndex: Integer;
8585
procedure SetImages(const Value: TCustomImageList);
86-
function UpdateEditMargins: Boolean; reintroduce;
86+
function PrivUpdateEditMargins: Boolean;
8787
protected
8888
procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
8989
procedure Notification(AComponent: TComponent; Operation: TOperation); override;

‎Code/DDevExtensions/Source/FormDesignerHelpers/FrmeOptionPageFormDesigner.dfm‎

Lines changed: 10 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,9 @@
11
inherited FrameOptionPageFormDesigner: TFrameOptionPageFormDesigner
22
Width = 372
3-
Height = 175
3+
Height = 188
44
inherited pnlClient: TPanel
55
Width = 372
6-
Height = 126
6+
Height = 139
77
object cbxActive: TCheckBox
88
Left = 8
99
Top = 8
@@ -35,6 +35,14 @@ inherited FrameOptionPageFormDesigner: TFrameOptionPageFormDesigner
3535
Width = 330
3636
Height = 17
3737
Caption = 'Don'#39't store "TDataModule.PixelsPerInch" property in DFM'
38+
TabOrder = 4
39+
end
40+
object chkRemoveTextHeightProperty: TCheckBox
41+
Left = 24
42+
Top = 100
43+
Width = 330
44+
Height = 17
45+
Caption = 'Do not store the TForm.TextHeight property into the DFM'
3846
TabOrder = 3
3947
end
4048
end

0 commit comments

Comments
 (0)