Ver.3.9.1:

Added support for Delphi 10 Seattle
EtheaDev · Jun 21, 2022 · addd1d2 · addd1d2
1 parent 884a602
commit addd1d2
Show file tree

Hide file tree

Showing 28 changed files with 2,796 additions and 21 deletions.
diff --git a/Demo/D10/SVGIconImageListDemo.dpr b/Demo/D10/SVGIconImageListDemo.dpr
@@ -0,0 +1,20 @@
+program SVGIconImageListDemo;
+
+uses
+  Vcl.Forms,
+  Vcl.Themes,
+  Vcl.Styles,
+  UMain in '..\Source\UMain.pas' {MainForm},
+  SVGIconImageListEditorUnit in '..\..\Packages\SVGIconImageListEditorUnit.pas' {SVGIconImageListEditor},
+  SVGIconImageList in '..\..\source\SVGIconImageList.pas',
+  UDataModule in '..\Source\UDataModule.pas' {ImageDataModule: TDataModule};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TImageDataModule, ImageDataModule);
+  Application.CreateForm(TMainForm, MainForm);
+  Application.Run;
+end.
diff --git a/Demo/D10/SVGIconImageListDemo.dproj b/Demo/D10/SVGIconImageListDemo.dproj
diff --git a/Demo/D10/SVGIconImageListDemo.res b/Demo/D10/SVGIconImageListDemo.res
diff --git a/Demo/Source/UDataModule.pas b/Demo/Source/UDataModule.pas
@@ -31,7 +31,7 @@ interface
 
 uses
   System.SysUtils, System.Classes,
-  SVGIconImageCollection, Vcl.BaseImageCollection;
+  SVGIconImageCollection;
 
 type
   TImageDataModule = class(TDataModule)

diff --git a/Packages/D10/SVGIconImageList.dpk b/Packages/D10/SVGIconImageList.dpk
@@ -0,0 +1,55 @@
+package SVGIconImageList;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE RELEASE}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'Ethea SVGIconImageList VCL components'}
+{$LIBSUFFIX '_D10'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  vcl,
+  VclSmp,
+  SVGIconPackage,
+  SVGImage32Package,
+  vclimg;
+
+contains
+  SVGIconImage in '..\..\Source\SVGIconImage.pas',
+  SVGIconImageList in '..\..\Source\SVGIconImageList.pas',
+  SVGIconUtils in '..\..\Source\SVGIconUtils.pas',
+  SVGIconImageCollection in '..\..\Source\SVGIconImageCollection.pas',
+  SVGIconItems in '..\..\Source\SVGIconItems.pas',
+  SVGIconVirtualImageList in '..\..\Source\SVGIconVirtualImageList.pas',
+  SVGIconImageListBase in '..\..\Source\SVGIconImageListBase.pas',
+  D2DSVGFactory in '..\..\Source\D2DSVGFactory.pas',
+  Winapi.D2DMissing in '..\..\Source\Winapi.D2DMissing.pas',
+  PasSVGFactory in '..\..\Source\PasSVGFactory.pas',
+  Image32SVGFactory in '..\..\Source\Image32SVGFactory.pas',
+  SVGInterfaces in '..\..\Source\SVGInterfaces.pas',
+  dlgExportPNG in '..\..\Source\dlgExportPNG.pas' {ExportToPNGDialog};
+
+end.
diff --git a/Packages/D10/SVGIconImageList.dproj b/Packages/D10/SVGIconImageList.dproj
@@ -0,0 +1,154 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{85171451-55E6-43E5-8241-572342FA535C}</ProjectGuid>
+        <MainSource>SVGIconImageList.dpk</MainSource>
+        <ProjectVersion>18.8</ProjectVersion>
+        <FrameworkType>VCL</FrameworkType>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Release</Config>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <TargetedPlatforms>3</TargetedPlatforms>
+        <AppType>Package</AppType>
+    </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="'$(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="'$(Base)'!=''">
+        <VerInfo_Locale>1040</VerInfo_Locale>
+        <DCC_DcuOutput>..\..\Lib\D10\$(Platform)\$(Config)</DCC_DcuOutput>
+        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <DCC_E>false</DCC_E>
+        <DCC_N>false</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+        <GenDll>true</GenDll>
+        <GenPackage>true</GenPackage>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
+        <DCC_CBuilderOutput>All</DCC_CBuilderOutput>
+        <SanitizedProjectName>SVGIconImageList</SanitizedProjectName>
+        <DCC_Description>Ethea SVGIconImageList VCL components</DCC_Description>
+        <DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
+        <DllSuffix>_D10</DllSuffix>
+        <DCC_UnitSearchPath>..\..\svg;..\..\Image32\Source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+        <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <DCC_RemoteDebug>false</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <VerInfo_Locale>1040</VerInfo_Locale>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="vcl.dcp"/>
+        <DCCReference Include="VclSmp.dcp"/>
+        <DCCReference Include="SVGIconPackage.dcp"/>
+        <DCCReference Include="SVGImage32Package.dcp"/>
+        <DCCReference Include="vclimg.dcp"/>
+        <DCCReference Include="..\..\Source\SVGIconImage.pas"/>
+        <DCCReference Include="..\..\Source\SVGIconImageList.pas"/>
+        <DCCReference Include="..\..\Source\SVGIconUtils.pas"/>
+        <DCCReference Include="..\..\Source\SVGIconImageCollection.pas"/>
+        <DCCReference Include="..\..\Source\SVGIconItems.pas"/>
+        <DCCReference Include="..\..\Source\SVGIconVirtualImageList.pas"/>
+        <DCCReference Include="..\..\Source\SVGIconImageListBase.pas"/>
+        <DCCReference Include="..\..\Source\D2DSVGFactory.pas"/>
+        <DCCReference Include="..\..\Source\Winapi.D2DMissing.pas"/>
+        <DCCReference Include="..\..\Source\PasSVGFactory.pas"/>
+        <DCCReference Include="..\..\Source\Image32SVGFactory.pas"/>
+        <DCCReference Include="..\..\Source\SVGInterfaces.pas"/>
+        <DCCReference Include="..\..\Source\dlgExportPNG.pas">
+            <Form>ExportToPNGDialog</Form>
+        </DCCReference>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType>Package</Borland.ProjectType>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">SVGIconImageList.dpk</Source>
+                </Source>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k230.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp230.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                </Excluded_Packages>
+            </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')"/>
+</Project>
diff --git a/Packages/D10/SVGIconImageList.res b/Packages/D10/SVGIconImageList.res
diff --git a/Packages/D10/SVGIconImageListGroupPackages.groupproj b/Packages/D10/SVGIconImageListGroupPackages.groupproj
@@ -0,0 +1,72 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{43558AC6-3EF5-4323-9448-1656FF056E82}</ProjectGuid>
+    </PropertyGroup>
+    <ItemGroup>
+        <Projects Include="SVGImage32Package.dproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="SVGIconPackage.dproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="SVGIconImageList.dproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="dclSVGIconImageList.dproj">
+            <Dependencies/>
+        </Projects>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Default.Personality.12</Borland.Personality>
+        <Borland.ProjectType/>
+        <BorlandProject>
+            <Default.Personality/>
+        </BorlandProject>
+    </ProjectExtensions>
+    <Target Name="SVGImage32Package">
+        <MSBuild Projects="SVGImage32Package.dproj"/>
+    </Target>
+    <Target Name="SVGImage32Package:Clean">
+        <MSBuild Projects="SVGImage32Package.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="SVGImage32Package:Make">
+        <MSBuild Projects="SVGImage32Package.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="SVGIconPackage">
+        <MSBuild Projects="SVGIconPackage.dproj"/>
+    </Target>
+    <Target Name="SVGIconPackage:Clean">
+        <MSBuild Projects="SVGIconPackage.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="SVGIconPackage:Make">
+        <MSBuild Projects="SVGIconPackage.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="SVGIconImageList">
+        <MSBuild Projects="SVGIconImageList.dproj"/>
+    </Target>
+    <Target Name="SVGIconImageList:Clean">
+        <MSBuild Projects="SVGIconImageList.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="SVGIconImageList:Make">
+        <MSBuild Projects="SVGIconImageList.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="dclSVGIconImageList">
+        <MSBuild Projects="dclSVGIconImageList.dproj"/>
+    </Target>
+    <Target Name="dclSVGIconImageList:Clean">
+        <MSBuild Projects="dclSVGIconImageList.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="dclSVGIconImageList:Make">
+        <MSBuild Projects="dclSVGIconImageList.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="Build">
+        <CallTarget Targets="SVGImage32Package;SVGIconPackage;SVGIconImageList;dclSVGIconImageList"/>
+    </Target>
+    <Target Name="Clean">
+        <CallTarget Targets="SVGImage32Package:Clean;SVGIconPackage:Clean;SVGIconImageList:Clean;dclSVGIconImageList:Clean"/>
+    </Target>
+    <Target Name="Make">
+        <CallTarget Targets="SVGImage32Package:Make;SVGIconPackage:Make;SVGIconImageList:Make;dclSVGIconImageList:Make"/>
+    </Target>
+    <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
+</Project>
diff --git a/Packages/D10/SVGIconPackage.dpk b/Packages/D10/SVGIconPackage.dpk
@@ -0,0 +1,52 @@
+package SVGIconPackage;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS OFF}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE RELEASE}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'Ethea SVGIconImageList VCL components'}
+{$LIBSUFFIX '_D10'}
+{$RUNONLY}
+{$IMPLICITBUILD OFF}
+
+requires
+  rtl,
+  xmlrtl,
+  vcl;
+
+contains
+  SVG in '..\..\svg\SVG.pas',
+  SVGColor in '..\..\Svg\SVGColor.pas',
+  SVGCommon in '..\..\Svg\SVGCommon.pas',
+  SVGPaint in '..\..\Svg\SVGPaint.pas',
+  SVGParse in '..\..\Svg\SVGParse.pas',
+  SVGPath in '..\..\Svg\SVGPath.pas',
+  XmlLite in '..\..\Svg\XmlLite.pas',
+  SVGStyle in '..\..\Svg\SVGStyle.pas',
+  SVGTypes in '..\..\Svg\SVGTypes.pas',
+  GDIPKerning in '..\..\Svg\GDIPKerning.pas',
+  GDIPOBJ2 in '..\..\Svg\GDIPOBJ2.pas',
+  GDIPPathText in '..\..\Svg\GDIPPathText.pas';
+
+end.