Thanks to visit codestin.com
Credit goes to github.com

Skip to content

CreateAsInterface proposal #408

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 6 commits into
base: main
Choose a base branch
from
Open

CreateAsInterface proposal #408

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
dc611f0
proposal - see readme.md
jimmckeeth Apr 3, 2025
3c42803
proposal - see CreateAsInterface sample
jimmckeeth Apr 3, 2025
af9123b
proposal - see CreateAsInterface sample
jimmckeeth Apr 3, 2025
83f3e96
Removed unauthorized units
viniciusfbb Apr 8, 2025
af209c5
updated based on feedback
jimmckeeth Apr 9, 2025
3f84ae1
added `inline` as suggested by Bruneau Babet
jimmckeeth Apr 9, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions .gitignore
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -65,3 +65,5 @@ dunitx-results.xml
!/Binary/**
!/Tools/Setup/Style/*.dll
!/Tools/*.exe
unins*.dat
*.delphilsp.json
24 changes: 24 additions & 0 deletions Samples/CreateAsInterface/CreateAsInterfaceFmxDemo.dpr
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,24 @@
program CreateAsInterfaceFmxDemo;

uses
System.StartUpCopy,
FMX.Forms,
CreateAsInterfaceFmxMain in 'CreateAsInterfaceFmxMain.pas' {Form32},
System.Skia.API in '..\..\Source\System.Skia.API.pas',
System.Skia in '..\..\Source\System.Skia.pas',
FMX.Skia.AnimatedCodec in '..\..\Source\FMX\FMX.Skia.AnimatedCodec.pas',
FMX.Skia.Canvas.GL in '..\..\Source\FMX\FMX.Skia.Canvas.GL.pas',
FMX.Skia.Canvas.Metal in '..\..\Source\FMX\FMX.Skia.Canvas.Metal.pas',
FMX.Skia.Canvas in '..\..\Source\FMX\FMX.Skia.Canvas.pas',
FMX.Skia.Filter in '..\..\Source\FMX\FMX.Skia.Filter.pas',
FMX.Skia in '..\..\Source\FMX\FMX.Skia.pas',
FMX.Skia.Printer in '..\..\Source\FMX\FMX.Skia.Printer.pas',
FMX.Skia.Canvas.Vulkan in 'C:\Program Files (x86)\Embarcadero\Studio\23.0\source\fmx\FMX.Skia.Canvas.Vulkan.pas';

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm32, Form32);
Application.Run;
end.
358 changes: 358 additions & 0 deletions Samples/CreateAsInterface/CreateAsInterfaceFmxDemo.dproj
View file
Open in desktop

Large diffs are not rendered by default.

19 changes: 19 additions & 0 deletions Samples/CreateAsInterface/CreateAsInterfaceFmxMain.fmx
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,19 @@
object Form32: TForm32
Left = 0
Top = 0
Caption = 'Skia4Delphi Proposal'
ClientHeight = 366
ClientWidth = 570
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
DesignerMasterStyle = 0
object SkPaintBox1: TSkPaintBox
Position.X = 96.000000000000000000
Position.Y = 48.000000000000000000
Size.Width = 281.000000000000000000
Size.Height = 217.000000000000000000
Size.PlatformDefault = False
OnDraw = SkPaintBox1Draw
end
end
38 changes: 38 additions & 0 deletions Samples/CreateAsInterface/CreateAsInterfaceFmxMain.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,38 @@
unit CreateAsInterfaceFmxMain;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
System.Skia, FMX.Skia, FMX.Controls.Presentation, FMX.StdCtrls;

type
TForm32 = class(TForm)
SkPaintBox1: TSkPaintBox;
procedure SkPaintBox1Draw(ASender: TObject; const ACanvas: ISkCanvas;
const ADest: TRectF; const AOpacity: Single);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form32: TForm32;

implementation

{$R *.fmx}

procedure TForm32.SkPaintBox1Draw(ASender: TObject;
const ACanvas: ISkCanvas; const ADest: TRectF; const AOpacity: Single);
begin
var family := TSkTypeface.MakeFromName('Segoe Script', TSkFontStyle.Italic);
var font := TSkFont.Make(family, 24);
var paint := TSkPaint.Make();
paint.Color := TAlphaColors.Blueviolet;
ACanvas.DrawSimpleText('.Make',2,30,font,paint);
end;

end.
17 changes: 17 additions & 0 deletions Samples/CreateAsInterface/CreateAsInterfaceVclDemo.dpr
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,17 @@
program CreateAsInterfaceVclDemo;

uses
Vcl.Forms,
CreateAsInterfaceVclMain in 'CreateAsInterfaceVclMain.pas' {SkIntfDemoMain},
System.Skia.API in '..\..\Source\System.Skia.API.pas',
System.Skia in '..\..\Source\System.Skia.pas',
Vcl.Skia in '..\..\Source\VCL\Vcl.Skia.pas';

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TSkIntfDemoMain, SkIntfDemoMain);
Application.Run;
end.
158 changes: 158 additions & 0 deletions Samples/CreateAsInterface/CreateAsInterfaceVclDemo.dproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,158 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Base>True</Base>
<AppType>Application</AppType>
<Config Condition="'$(Config)'==''">Debug</Config>
<FrameworkType>VCL</FrameworkType>
<MainSource>CreateAsInterfaceVclDemo.dpr</MainSource>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<ProjectGuid>{FCB99591-6739-45CE-9331-E46C62D778C0}</ProjectGuid>
<ProjectName Condition="'$(ProjectName)'==''">CreateAsInterfaceVclDemo</ProjectName>
<ProjectVersion>20.3</ProjectVersion>
<TargetedPlatforms>3</TargetedPlatforms>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
<Cfg_1_Win64>true</Cfg_1_Win64>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
<Cfg_2_Win64>true</Cfg_2_Win64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<SanitizedProjectName>CreateAsInterfaceVclDemo</SanitizedProjectName>
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<BT_BuildType>Debug</BT_BuildType>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<DCC_UsePackage>soapserver;vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;Skia.Package.RTL;RadiantShapesFmx_Design;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;VCLColorTrackers;inetdb;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;Skia.Package.FMX;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;RadiantShapesFmx;FireDACTDataDriver;Skia.Package.VCL;vcldb;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;DOSCommandDR;RESTBackendComponents;IndyCore;bindcompdbx;rtl;FireDACMySQLDriver;RaizeComponentsVclDb;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;VirtualTreesDR;DataSnapClient;dsnapcon;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;fmxobj;FMXTee;bindcompvclsmp;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;RaizeComponentsVcl;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<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>
<VerInfo_Locale>1033</VerInfo_Locale>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
<DCC_UsePackage>soapserver;vclwinx;DataSnapServer;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;RadiantShapesFmx_Design;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;VCLColorTrackers;inetdb;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;RadiantShapesFmx;FireDACTDataDriver;Skia.Package.VCL;vcldb;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;DOSCommandDR;RESTBackendComponents;IndyCore;bindcompdbx;rtl;FireDACMySQLDriver;RaizeComponentsVclDb;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;VirtualTreesDR;DataSnapClient;dsnapcon;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;fmxobj;FMXTee;bindcompvclsmp;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;RaizeComponentsVcl;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<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>
<VerInfo_Locale>1033</VerInfo_Locale>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
<DCC_Optimize>false</DCC_Optimize>
<DCC_RangeChecking>true</DCC_RangeChecking>
<DCC_RemoteDebug>true</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<DCC_RemoteDebug>false</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_DebugInformation>0</DCC_DebugInformation>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="CreateAsInterfaceVclMain.pas">
<Form>SkIntfDemoMain</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\Source\System.Skia.API.pas"/>
<DCCReference Include="..\..\Source\System.Skia.pas"/>
<DCCReference Include="..\..\Source\VCL\Vcl.Skia.pas"/>
<None Include="readme.md"/>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Application</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">CreateAsInterfaceVclDemo.dpr</Source>
</Source>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">True</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>
30 changes: 30 additions & 0 deletions Samples/CreateAsInterface/CreateAsInterfaceVclMain.dfm
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,30 @@
object SkIntfDemoMain: TSkIntfDemoMain
Left = 0
Top = 0
Margins.Left = 5
Margins.Top = 5
Margins.Right = 5
Margins.Bottom = 5
Caption = 'Skia4Delphi Proposal'
ClientHeight = 405
ClientWidth = 532
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = 'Segoe UI'
Font.Style = []
PixelsPerInch = 144
TextHeight = 25
object SkPaintBox1: TSkPaintBox
Left = 10
Top = 10
Width = 385
Height = 277
Margins.Left = 5
Margins.Top = 5
Margins.Right = 5
Margins.Bottom = 5
OnDraw = SkPaintBox1Draw
end
end
37 changes: 37 additions & 0 deletions Samples/CreateAsInterface/CreateAsInterfaceVclMain.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,37 @@
unit CreateAsInterfaceVclMain;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Skia, Vcl.Skia, System.Types, System.UITypes;

type
TSkIntfDemoMain = class(TForm)
SkPaintBox1: TSkPaintBox;
procedure SkPaintBox1Draw(ASender: TObject; const ACanvas: ISkCanvas;
const ADest: TRectF; const AOpacity: Single);
private
{ Private declarations }
public
{ Public declarations }
end;

var
SkIntfDemoMain: TSkIntfDemoMain;

implementation

{$R *.dfm}

procedure TSkIntfDemoMain.SkPaintBox1Draw(ASender: TObject;
const ACanvas: ISkCanvas; const ADest: TRectF; const AOpacity: Single);
begin
var family := TSkTypeface.MakeFromName('Segoe Script', TSkFontStyle.Italic);
var font := TSkFont.Make(family, 24);
var paint := TSkPaint.Make();
paint.Color := TAlphaColors.Blueviolet;
ACanvas.DrawSimpleText('.Make',2,30,font,paint);
end;

end.
48 changes: 48 additions & 0 deletions Samples/CreateAsInterface/CreateAsInterfaces.groupproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,48 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{36AB3BD2-8480-405E-9C0C-C24E62C7DB4F}</ProjectGuid>
</PropertyGroup>
<ItemGroup>
<Projects Include="CreateAsInterfaceVclDemo.dproj">
<Dependencies/>
</Projects>
<Projects Include="CreateAsInterfaceFmxDemo.dproj">
<Dependencies/>
</Projects>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Default.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Default.Personality/>
</BorlandProject>
</ProjectExtensions>
<Target Name="CreateAsInterfaceVclDemo">
<MSBuild Projects="CreateAsInterfaceVclDemo.dproj"/>
</Target>
<Target Name="CreateAsInterfaceVclDemo:Clean">
<MSBuild Projects="CreateAsInterfaceVclDemo.dproj" Targets="Clean"/>
</Target>
<Target Name="CreateAsInterfaceVclDemo:Make">
<MSBuild Projects="CreateAsInterfaceVclDemo.dproj" Targets="Make"/>
</Target>
<Target Name="CreateAsInterfaceFmxDemo">
<MSBuild Projects="CreateAsInterfaceFmxDemo.dproj"/>
</Target>
<Target Name="CreateAsInterfaceFmxDemo:Clean">
<MSBuild Projects="CreateAsInterfaceFmxDemo.dproj" Targets="Clean"/>
</Target>
<Target Name="CreateAsInterfaceFmxDemo:Make">
<MSBuild Projects="CreateAsInterfaceFmxDemo.dproj" Targets="Make"/>
</Target>
<Target Name="Build">
<CallTarget Targets="CreateAsInterfaceVclDemo;CreateAsInterfaceFmxDemo"/>
</Target>
<Target Name="Clean">
<CallTarget Targets="CreateAsInterfaceVclDemo:Clean;CreateAsInterfaceFmxDemo:Clean"/>
</Target>
<Target Name="Make">
<CallTarget Targets="CreateAsInterfaceVclDemo:Make;CreateAsInterfaceFmxDemo:Make"/>
</Target>
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
</Project>
Loading