Skip to content

Commit 003466a

Browse files
lmbelolmbelo
committed
Registering TPythonGUIInputOutput in VCL design-time package
1 parent fa90bb5 commit 003466a

File tree

5 files changed

+69
-3
lines changed

5 files changed

+69
-3
lines changed

‎Packages/Delphi/Delphi 10.4+/VclP4DEngine.dpk

+3
Original file line numberDiff line numberDiff line change
@@ -34,4 +34,7 @@ requires
3434
rtl,
3535
P4DEngine;
3636

37+
contains
38+
PythonGUIInputOutput in '..\..\..\Source\vcl\PythonGUIInputOutput.pas';
39+
3740
end.

‎Packages/Delphi/Delphi 10.4+/VclP4DEngine.dproj

+9-2
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
<ProjectGuid>{D8908301-393C-4CFA-8842-4948A9935E21}</ProjectGuid>
44
<MainSource>VclP4DEngine.dpk</MainSource>
55
<ProjectVersion>19.1</ProjectVersion>
6-
<FrameworkType>None</FrameworkType>
6+
<FrameworkType>VCL</FrameworkType>
77
<Base>True</Base>
88
<Config Condition="'$(Config)'==''">Debug</Config>
99
<Platform Condition="'$(Platform)'==''">Win32</Platform>
@@ -64,7 +64,7 @@
6464
<DCC_K>false</DCC_K>
6565
<GenDll>true</GenDll>
6666
<GenPackage>true</GenPackage>
67-
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;$(DCC_Namespace)</DCC_Namespace>
67+
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
6868
<DCC_CBuilderOutput>All</DCC_CBuilderOutput>
6969
<SanitizedProjectName>VclP4DEngine</SanitizedProjectName>
7070
<VerInfo_Locale>1033</VerInfo_Locale>
@@ -119,6 +119,7 @@
119119
</DelphiCompile>
120120
<DCCReference Include="rtl.dcp"/>
121121
<DCCReference Include="P4DEngine.dcp"/>
122+
<DCCReference Include="..\..\..\Source\vcl\PythonGUIInputOutput.pas"/>
122123
<BuildConfiguration Include="Release">
123124
<Key>Cfg_2</Key>
124125
<CfgParent>Base</CfgParent>
@@ -168,6 +169,12 @@
168169
<Overwrite>true</Overwrite>
169170
</Platform>
170171
</DeployFile>
172+
<DeployFile LocalName="..\..\..\..\..\..\..\..\..\..\Public\Documents\Embarcadero\Studio\21.0\Bpl\VclP4DEngine270.bpl" Configuration="Debug" Class="ProjectOutput">
173+
<Platform Name="Win32">
174+
<RemoteName>VclP4DEngine.bpl</RemoteName>
175+
<Overwrite>true</Overwrite>
176+
</Platform>
177+
</DeployFile>
171178
<DeployClass Name="AdditionalDebugSymbols">
172179
<Platform Name="OSX32">
173180
<Operation>1</Operation>

‎Packages/Delphi/Delphi 10.4+/dclVclP4DEngine.dpk

+3
Original file line numberDiff line numberDiff line change
@@ -34,4 +34,7 @@ requires
3434
rtl,
3535
VclP4DEngine;
3636

37+
contains
38+
Vcl.PythonRegistration in '..\..\..\Source\vcl\Vcl.PythonRegistration.pas';
39+
3740
end.

‎Packages/Delphi/Delphi 10.4+/dclVclP4DEngine.dproj

+37-1
Original file line numberDiff line numberDiff line change
@@ -33,11 +33,26 @@
3333
<CfgParent>Base</CfgParent>
3434
<Base>true</Base>
3535
</PropertyGroup>
36+
<PropertyGroup Condition="('$(Platform)'=='Linux64' and '$(Base)'=='true') or '$(Base_Linux64)'!=''">
37+
<Base_Linux64>true</Base_Linux64>
38+
<CfgParent>Base</CfgParent>
39+
<Base>true</Base>
40+
</PropertyGroup>
41+
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Base)'=='true') or '$(Base_OSX64)'!=''">
42+
<Base_OSX64>true</Base_OSX64>
43+
<CfgParent>Base</CfgParent>
44+
<Base>true</Base>
45+
</PropertyGroup>
3646
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
3747
<Base_Win32>true</Base_Win32>
3848
<CfgParent>Base</CfgParent>
3949
<Base>true</Base>
4050
</PropertyGroup>
51+
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
52+
<Base_Win64>true</Base_Win64>
53+
<CfgParent>Base</CfgParent>
54+
<Base>true</Base>
55+
</PropertyGroup>
4156
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
4257
<Cfg_1>true</Cfg_1>
4358
<CfgParent>Base</CfgParent>
@@ -64,7 +79,7 @@
6479
<DCC_K>false</DCC_K>
6580
<GenDll>true</GenDll>
6681
<GenPackage>true</GenPackage>
67-
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
82+
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;$(DCC_Namespace)</DCC_Namespace>
6883
<DCC_CBuilderOutput>All</DCC_CBuilderOutput>
6984
<SanitizedProjectName>dclVclP4DEngine</SanitizedProjectName>
7085
<VerInfo_Locale>1033</VerInfo_Locale>
@@ -76,23 +91,37 @@
7691
<PropertyGroup Condition="'$(Base_Android)'!=''">
7792
<DCC_CBuilderOutput>None</DCC_CBuilderOutput>
7893
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
94+
<DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
7995
</PropertyGroup>
8096
<PropertyGroup Condition="'$(Base_Android64)'!=''">
8197
<DCC_CBuilderOutput>None</DCC_CBuilderOutput>
8298
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
99+
<DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
83100
</PropertyGroup>
84101
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
85102
<DCC_CBuilderOutput>None</DCC_CBuilderOutput>
103+
<DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
86104
</PropertyGroup>
87105
<PropertyGroup Condition="'$(Base_iOSSimulator)'!=''">
88106
<DCC_CBuilderOutput>None</DCC_CBuilderOutput>
107+
<DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
108+
</PropertyGroup>
109+
<PropertyGroup Condition="'$(Base_Linux64)'!=''">
110+
<DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
111+
</PropertyGroup>
112+
<PropertyGroup Condition="'$(Base_OSX64)'!=''">
113+
<DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
89114
</PropertyGroup>
90115
<PropertyGroup Condition="'$(Base_Win32)'!=''">
91116
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
92117
<BT_BuildType>Debug</BT_BuildType>
93118
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
94119
<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>
95120
<VerInfo_Locale>1033</VerInfo_Locale>
121+
<DCC_UsePackage>rtl;VclP4DEngine;$(DCC_UsePackage)</DCC_UsePackage>
122+
</PropertyGroup>
123+
<PropertyGroup Condition="'$(Base_Win64)'!=''">
124+
<DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
96125
</PropertyGroup>
97126
<PropertyGroup Condition="'$(Cfg_1)'!=''">
98127
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
@@ -119,6 +148,7 @@
119148
</DelphiCompile>
120149
<DCCReference Include="rtl.dcp"/>
121150
<DCCReference Include="VclP4DEngine.dcp"/>
151+
<DCCReference Include="..\..\..\Source\vcl\Vcl.PythonRegistration.pas"/>
122152
<BuildConfiguration Include="Release">
123153
<Key>Cfg_2</Key>
124154
<CfgParent>Base</CfgParent>
@@ -168,6 +198,12 @@
168198
<Overwrite>true</Overwrite>
169199
</Platform>
170200
</DeployFile>
201+
<DeployFile LocalName="..\..\..\..\..\..\..\..\..\..\Public\Documents\Embarcadero\Studio\21.0\Bpl\dclVclP4DEngine270.bpl" Configuration="Debug" Class="ProjectOutput">
202+
<Platform Name="Win32">
203+
<RemoteName>dclVclP4DEngine.bpl</RemoteName>
204+
<Overwrite>true</Overwrite>
205+
</Platform>
206+
</DeployFile>
171207
<DeployClass Name="AdditionalDebugSymbols">
172208
<Platform Name="OSX32">
173209
<Operation>1</Operation>

‎Source/vcl/Vcl.PythonRegistration.pas

+17
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,17 @@
1+
unit Vcl.PythonRegistration;
2+
3+
interface
4+
5+
procedure Register();
6+
7+
implementation
8+
9+
uses
10+
Classes, Controls, PythonGUIInputOutput;
11+
12+
procedure Register();
13+
begin
14+
GroupDescendentsWith(TPythonGUIInputOutput, TControl);
15+
RegisterComponents('Python', [TPythonGUIInputOutput]);
16+
end;
17+
end.

0 commit comments

Comments
 (0)