Skip to content

Commit 8321ae1

Browse files
carloBarazzettacarloBarazzetta
committed
Version 4.3.1
- Added support for Delphi 13 Florence
1 parent fcdf4da commit 8321ae1

File tree

91 files changed

+3986
-1981
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

91 files changed

+3986
-1981
lines changed

‎Demos/PrimerCross/Primer_D12.dproj‎

Lines changed: 3 additions & 24 deletions
Original file line numberDiff line numberDiff line change
@@ -5,12 +5,12 @@
55
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
66
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
77
<DCC_DependencyCheckOutputName>Primer.exe</DCC_DependencyCheckOutputName>
8-
<ProjectVersion>20.3</ProjectVersion>
8+
<ProjectVersion>20.2</ProjectVersion>
99
<Config Condition="'$(Config)'==''">Release</Config>
1010
<Base>True</Base>
1111
<AppType>Application</AppType>
1212
<FrameworkType>VCL</FrameworkType>
13-
<Platform Condition="'$(Platform)'==''">Win32</Platform>
13+
<Platform Condition="'$(Platform)'==''">Win64</Platform>
1414
<TargetedPlatforms>3</TargetedPlatforms>
1515
<ProjectName Condition="'$(ProjectName)'==''">Primer_D12</ProjectName>
1616
</PropertyGroup>
@@ -118,28 +118,7 @@
118118
<Source>
119119
<Source Name="MainSource">Primer_D12.dpr</Source>
120120
</Source>
121-
<Excluded_Packages>
122-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclISFLib8_6290.bpl">Ethea InstantSolutions 8.6 Framework Library</Excluded_Packages>
123-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclISRtl7_7290.bpl">Ethea InstantSolutions 7.7 Rtl Library</Excluded_Packages>
124-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclISVcl7_7290.bpl">Ethea InstantSolutions 7.7 Vcl Library</Excluded_Packages>
125-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclISOpenOffice7_7290.bpl">Ethea InstantSolutions 7.7 LibreOffice/OpenOffice Components</Excluded_Packages>
126-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclISFLib7_7290.bpl">Ethea InstantSolutions 7.7 Framework Library</Excluded_Packages>
127-
<Excluded_Packages Name="$(BDSBIN)\bcbie290.bpl">Embarcadero C++Builder Internet Explorer Components Package</Excluded_Packages>
128-
<Excluded_Packages Name="$(BDSBIN)\bcboffice2k290.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
129-
<Excluded_Packages Name="$(BDSBIN)\bcbofficexp290.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
130-
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
131-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclISReportBuilder8_6290.bpl">Ethea InstantSolutions 8.6 ReportBuilder Components</Excluded_Packages>
132-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclLiscorVCL_D12.bpl">*** Liscor VCL Design Package for D12 ***</Excluded_Packages>
133-
<Excluded_Packages Name="D:\ETHEA\FGX Native\Libs\290\Win32\Release\FGXNative.Registration.290.bpl">FGX Native - Designtime Registration</Excluded_Packages>
134-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\QR506DesignDXE12.bpl">QuickReport 5.06 Components</Excluded_Packages>
135-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclshlctrls290.bpl">Shell Control Property and Component Editors</Excluded_Packages>
136-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\kbmMemDesD120Std.bpl">kbmMemTable Standard Edition - High performance memory table - RAD Studio 12 for Win32 - Designtime - www.Components4Developers.com</Excluded_Packages>
137-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\DCLPsRBD12.bpl">Pragnaan ReportBuilder Export Devices</Excluded_Packages>
138-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\QImport2DTD12.bpl">EMS Advanced Import Component Suite</Excluded_Packages>
139-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\QExport3DTD12.bpl">EMS Advanced Export Component Suite</Excluded_Packages>
140-
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dGXOutD7.bpl">GExperts Outlookbar design time package</Excluded_Packages>
141-
<Excluded_Packages Name="D:\ETHEA\FGX Native\Libs\290\Win32\Release\FGXNative.Extension.Zint.290.bpl">FGX Native Extension - Zint Barcode</Excluded_Packages>
142-
</Excluded_Packages>
121+
<Excluded_Packages/>
143122
</Delphi.Personality>
144123
<ModelSupport>False</ModelSupport>
145124
<Platforms>

‎Demos/PrimerCross/Primer_D13.dpr‎

Lines changed: 83 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,83 @@
1+
(*
2+
* InstantObjects
3+
* Primer Demo - with "internal storage" of Part and Parts
4+
* Model.pas unit is located in Model folder
5+
*
6+
*)
7+
8+
(* ***** BEGIN LICENSE BLOCK *****
9+
* Version: MPL 1.1
10+
*
11+
* The contents of this file are subject to the Mozilla Public License Version
12+
* 1.1 (the "License"); you may not use this file except in compliance with
13+
* the License. You may obtain a copy of the License at
14+
* http://www.mozilla.org/MPL/
15+
*
16+
* Software distributed under the License is distributed on an "AS IS" basis,
17+
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
18+
* for the specific language governing rights and limitations under the
19+
* License.
20+
*
21+
* The Original Code is: Seleqt InstantObjects
22+
*
23+
* The Initial Developer of the Original Code is: Seleqt
24+
*
25+
* Portions created by the Initial Developer are Copyright (C) 2001-2003
26+
* the Initial Developer. All Rights Reserved.
27+
*
28+
* Contributor(s):
29+
* Carlo Barazzetta, Nando Dessena
30+
*
31+
* ***** END LICENSE BLOCK ***** *)
32+
33+
program Primer_D13;
34+
35+
{$IFDEF LINUX64}
36+
{$I '../../Source/InstantDefines.inc'}
37+
{$ELSE}
38+
{$I '..\..\Source\InstantDefines.inc'}
39+
{$ENDIF}
40+
41+
uses
42+
Vcl.Forms,
43+
Vcl.Themes,
44+
Vcl.Styles,
45+
Main in 'Main.pas' {MainForm},
46+
Model in 'Model\Model.pas',
47+
ContactView in 'ContactView.pas' {ContactViewForm: TFrame},
48+
BasicView in 'BasicView.pas' {BasicViewFrame: TFrame},
49+
BasicEdit in 'BasicEdit.pas' {BasicEditForm},
50+
ContactEdit in 'ContactEdit.pas' {ContactEditForm},
51+
PersonEdit in 'PersonEdit.pas' {PersonEditForm},
52+
CompanyEdit in 'CompanyEdit.pas' {CompanyEditForm},
53+
DemoData in 'DemoData.pas',
54+
ContactFilterEdit in 'ContactFilterEdit.pas' {ContactFilterEditForm},
55+
MainData in 'MainData.pas' {MainDataModule: TDataModule},
56+
ContactBrowse in 'ContactBrowse.pas' {ContactBrowseForm},
57+
CompanyBrowse in 'CompanyBrowse.pas' {CompanyBrowseForm},
58+
PerformanceView in 'PerformanceView.pas' {PerformanceViewForm: TFrame},
59+
Welcome in 'Welcome.pas' {WelcomeForm},
60+
PersonBrowse in 'PersonBrowse.pas' {PersonBrowseForm},
61+
BasicBrowse in 'BasicBrowse.pas' {BasicBrowseForm},
62+
CountryBrowse in 'CountryBrowse.pas' {CountryBrowseForm},
63+
DemoDataRequest in 'DemoDataRequest.pas' {DemoDataRequestForm},
64+
ContactSort in 'ContactSort.pas' {ContactSortForm},
65+
CategoryBrowse in 'CategoryBrowse.pas' {CategoryBrowseForm},
66+
HelpView in 'HelpView.pas' {HelpViewForm: TFrame},
67+
QueryView in 'QueryView.pas' {QueryViewForm: TFrame},
68+
RandomData in 'RandomData.pas',
69+
Stopwatch in 'Stopwatch.pas',
70+
Utility in 'Utility.pas';
71+
72+
{$R *.res}
73+
{$R *.mdr} {Model}
74+
75+
begin
76+
Application.Initialize;
77+
Application.Title := 'InstantObjects Primer Demo '+sLineBreak+
78+
{$IFDEF WINLINUX64}'(64 Bit'{$ELSE}'(32 Bit'{$ENDIF}+
79+
' - Delphi 13 version)';
80+
Application.CreateForm(TMainForm, MainForm);
81+
Application.CreateForm(TMainDataModule, MainDataModule);
82+
Application.Run;
83+
end.

‎Demos/PrimerCross/Primer_D13.dproj‎

Lines changed: 223 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,223 @@
1+
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2+
<PropertyGroup>
3+
<ProjectGuid>{15FF708D-1A2A-4485-9C41-C52AE847AD4B}</ProjectGuid>
4+
<MainSource>Primer_D13.dpr</MainSource>
5+
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
6+
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
7+
<DCC_DependencyCheckOutputName>Primer.exe</DCC_DependencyCheckOutputName>
8+
<ProjectVersion>20.3</ProjectVersion>
9+
<Config Condition="'$(Config)'==''">Release</Config>
10+
<Base>True</Base>
11+
<AppType>Application</AppType>
12+
<FrameworkType>VCL</FrameworkType>
13+
<Platform Condition="'$(Platform)'==''">Win64</Platform>
14+
<TargetedPlatforms>3</TargetedPlatforms>
15+
<ProjectName Condition="'$(ProjectName)'==''">Primer_D13</ProjectName>
16+
</PropertyGroup>
17+
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
18+
<Base>true</Base>
19+
</PropertyGroup>
20+
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
21+
<Base_Win32>true</Base_Win32>
22+
<CfgParent>Base</CfgParent>
23+
<Base>true</Base>
24+
</PropertyGroup>
25+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
26+
<Base_Win64>true</Base_Win64>
27+
<CfgParent>Base</CfgParent>
28+
<Base>true</Base>
29+
</PropertyGroup>
30+
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
31+
<Cfg_1>true</Cfg_1>
32+
<CfgParent>Base</CfgParent>
33+
<Base>true</Base>
34+
</PropertyGroup>
35+
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
36+
<Cfg_1_Win32>true</Cfg_1_Win32>
37+
<CfgParent>Cfg_1</CfgParent>
38+
<Cfg_1>true</Cfg_1>
39+
<Base>true</Base>
40+
</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>
47+
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
48+
<Cfg_2>true</Cfg_2>
49+
<CfgParent>Base</CfgParent>
50+
<Base>true</Base>
51+
</PropertyGroup>
52+
<PropertyGroup Condition="'$(Base)'!=''">
53+
<Icon_MainIcon>PrimerIcon.ico</Icon_MainIcon>
54+
<SanitizedProjectName>Primer_D13</SanitizedProjectName>
55+
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
56+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
57+
<VerInfo_MajorVer>2</VerInfo_MajorVer>
58+
<VerInfo_Locale>1033</VerInfo_Locale>
59+
<VerInfo_Keys>CompanyName=InstantObjects.org;FileDescription=Primer Demo;FileVersion=2.0.0.0;InternalName=;LegalCopyright=MPL public license;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=2.0;Comments=</VerInfo_Keys>
60+
<DCC_UnitSearchPath>..\..\Source\Core;..\..\Source\Brokers\ADO;..\..\Source\Brokers\DBX;..\..\Source\Brokers\IBX;..\..\Source\Brokers\XML;..\..\Source\Brokers\FireDAC;..\..\Source\Catalogs\IBFb;..\..\Source\Catalogs\MSSql;..\..\Source\Catalogs\MySql;..\..\Source\Catalogs\Oracle;..\..\Source\Catalogs\DB2;..\..\Source\Brokers\JSON;..\..\..\ext\delphi-neon\Source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
61+
<DCC_DcuOutput>..\Dcu\$(Platform)</DCC_DcuOutput>
62+
<DCC_Define>DELPHI_NEON;$(DCC_Define)</DCC_Define>
63+
</PropertyGroup>
64+
<PropertyGroup Condition="'$(Base_Win32)'!=''">
65+
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
66+
</PropertyGroup>
67+
<PropertyGroup Condition="'$(Base_Win64)'!=''">
68+
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
69+
</PropertyGroup>
70+
<PropertyGroup Condition="'$(Cfg_1)'!=''">
71+
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
72+
</PropertyGroup>
73+
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
74+
<BT_BuildType>Debug</BT_BuildType>
75+
</PropertyGroup>
76+
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
77+
<BT_BuildType>Debug</BT_BuildType>
78+
</PropertyGroup>
79+
<PropertyGroup Condition="'$(Cfg_2)'!=''">
80+
<DCC_Define>DEBUG;NO_IO_STATEMENT_LOGGING;$(DCC_Define)</DCC_Define>
81+
<DCC_DebugDCUs>true</DCC_DebugDCUs>
82+
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
83+
<DCC_RangeChecking>true</DCC_RangeChecking>
84+
</PropertyGroup>
85+
<ProjectExtensions>
86+
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
87+
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
88+
<BorlandProject>
89+
<Delphi.Personality>
90+
<Parameters/>
91+
<VersionInfo>
92+
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
93+
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
94+
<VersionInfo Name="MajorVer">2</VersionInfo>
95+
<VersionInfo Name="MinorVer">0</VersionInfo>
96+
<VersionInfo Name="Release">0</VersionInfo>
97+
<VersionInfo Name="Build">0</VersionInfo>
98+
<VersionInfo Name="Debug">False</VersionInfo>
99+
<VersionInfo Name="PreRelease">False</VersionInfo>
100+
<VersionInfo Name="Special">False</VersionInfo>
101+
<VersionInfo Name="Private">False</VersionInfo>
102+
<VersionInfo Name="DLL">False</VersionInfo>
103+
<VersionInfo Name="Locale">1030</VersionInfo>
104+
<VersionInfo Name="CodePage">1252</VersionInfo>
105+
</VersionInfo>
106+
<VersionInfoKeys>
107+
<VersionInfoKeys Name="CompanyName">Ethea S.r.l.</VersionInfoKeys>
108+
<VersionInfoKeys Name="FileDescription">Primer Demo</VersionInfoKeys>
109+
<VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys>
110+
<VersionInfoKeys Name="InternalName"/>
111+
<VersionInfoKeys Name="LegalCopyright">MPL public license</VersionInfoKeys>
112+
<VersionInfoKeys Name="LegalTrademarks"/>
113+
<VersionInfoKeys Name="OriginalFilename"/>
114+
<VersionInfoKeys Name="ProductName">InstantObjects</VersionInfoKeys>
115+
<VersionInfoKeys Name="ProductVersion">2.0</VersionInfoKeys>
116+
<VersionInfoKeys Name="Comments"/>
117+
</VersionInfoKeys>
118+
<Source>
119+
<Source Name="MainSource">Primer_D13.dpr</Source>
120+
</Source>
121+
<Excluded_Packages/>
122+
</Delphi.Personality>
123+
<ModelSupport>False</ModelSupport>
124+
<Platforms>
125+
<Platform value="Win32">True</Platform>
126+
<Platform value="Win64">True</Platform>
127+
</Platforms>
128+
</BorlandProject>
129+
<ProjectFileVersion>12</ProjectFileVersion>
130+
</ProjectExtensions>
131+
<ItemGroup>
132+
<DelphiCompile Include="$(MainSource)">
133+
<MainSource>MainSource</MainSource>
134+
</DelphiCompile>
135+
<DCCReference Include="Main.pas">
136+
<Form>MainForm</Form>
137+
</DCCReference>
138+
<DCCReference Include="Model\Model.pas"/>
139+
<DCCReference Include="ContactView.pas">
140+
<Form>ContactViewForm</Form>
141+
<DesignClass>TFrame</DesignClass>
142+
</DCCReference>
143+
<DCCReference Include="BasicView.pas">
144+
<Form>BasicViewFrame</Form>
145+
<DesignClass>TFrame</DesignClass>
146+
</DCCReference>
147+
<DCCReference Include="BasicEdit.pas">
148+
<Form>BasicEditForm</Form>
149+
</DCCReference>
150+
<DCCReference Include="ContactEdit.pas">
151+
<Form>ContactEditForm</Form>
152+
</DCCReference>
153+
<DCCReference Include="PersonEdit.pas">
154+
<Form>PersonEditForm</Form>
155+
</DCCReference>
156+
<DCCReference Include="CompanyEdit.pas">
157+
<Form>CompanyEditForm</Form>
158+
</DCCReference>
159+
<DCCReference Include="DemoData.pas"/>
160+
<DCCReference Include="ContactFilterEdit.pas">
161+
<Form>ContactFilterEditForm</Form>
162+
</DCCReference>
163+
<DCCReference Include="MainData.pas">
164+
<Form>MainDataModule</Form>
165+
<DesignClass>TDataModule</DesignClass>
166+
</DCCReference>
167+
<DCCReference Include="ContactBrowse.pas">
168+
<Form>ContactBrowseForm</Form>
169+
</DCCReference>
170+
<DCCReference Include="CompanyBrowse.pas">
171+
<Form>CompanyBrowseForm</Form>
172+
</DCCReference>
173+
<DCCReference Include="PerformanceView.pas">
174+
<Form>PerformanceViewForm</Form>
175+
<DesignClass>TFrame</DesignClass>
176+
</DCCReference>
177+
<DCCReference Include="Welcome.pas">
178+
<Form>WelcomeForm</Form>
179+
</DCCReference>
180+
<DCCReference Include="PersonBrowse.pas">
181+
<Form>PersonBrowseForm</Form>
182+
</DCCReference>
183+
<DCCReference Include="BasicBrowse.pas">
184+
<Form>BasicBrowseForm</Form>
185+
</DCCReference>
186+
<DCCReference Include="CountryBrowse.pas">
187+
<Form>CountryBrowseForm</Form>
188+
</DCCReference>
189+
<DCCReference Include="DemoDataRequest.pas">
190+
<Form>DemoDataRequestForm</Form>
191+
</DCCReference>
192+
<DCCReference Include="ContactSort.pas">
193+
<Form>ContactSortForm</Form>
194+
</DCCReference>
195+
<DCCReference Include="CategoryBrowse.pas">
196+
<Form>CategoryBrowseForm</Form>
197+
</DCCReference>
198+
<DCCReference Include="HelpView.pas">
199+
<Form>HelpViewForm</Form>
200+
<DesignClass>TFrame</DesignClass>
201+
</DCCReference>
202+
<DCCReference Include="QueryView.pas">
203+
<Form>QueryViewForm</Form>
204+
<DesignClass>TFrame</DesignClass>
205+
</DCCReference>
206+
<DCCReference Include="RandomData.pas"/>
207+
<DCCReference Include="Stopwatch.pas"/>
208+
<DCCReference Include="Utility.pas"/>
209+
<BuildConfiguration Include="Base">
210+
<Key>Base</Key>
211+
</BuildConfiguration>
212+
<BuildConfiguration Include="Release">
213+
<Key>Cfg_1</Key>
214+
<CfgParent>Base</CfgParent>
215+
</BuildConfiguration>
216+
<BuildConfiguration Include="Debug">
217+
<Key>Cfg_2</Key>
218+
<CfgParent>Base</CfgParent>
219+
</BuildConfiguration>
220+
</ItemGroup>
221+
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
222+
<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
223+
</Project>

‎Demos/PrimerCross/Primer_D13.mdr‎

5.88 KB
Binary file not shown.

0 commit comments

Comments
 (0)