FontTest added

.gitignore

@@ -0,0 +1,3 @@
+obj
+bin
+/TestFont/.vs/TestFont/v16/*.suo

TestFont/App.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup> 
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+    </startup>
+</configuration>

TestFont/Program.cs

@@ -0,0 +1,69 @@
+using System;
+
+using CorelDRAWApplication     = Corel.Interop.VGCore.Application;
+using CdrAlignment             = Corel.Interop.VGCore.cdrAlignment;
+using CdrTriState              = Corel.Interop.VGCore.cdrTriState;
+using CdrFontLine              = Corel.Interop.VGCore.cdrFontLine;
+using CdrTextLanguage          = Corel.Interop.VGCore.cdrTextLanguage;
+using CdrTextCharSet           = Corel.Interop.VGCore.cdrTextCharSet;
+using CdrFileVersion           = Corel.Interop.VGCore.cdrFileVersion;
+using CdrUnit                  = Corel.Interop.VGCore.cdrUnit;
+using CorelStructCreateOptions = Corel.Interop.VGCore.StructCreateOptions;
+using CorelStructSaveAsOptions = Corel.Interop.VGCore.StructSaveAsOptions;
+using System.IO;
+
+namespace TestFont
+{
+  class Program
+  {
+    static void Main(string[] args)
+    {
+      string lFontName = args.Length > 0 ? args[0] : "Winter Story";
+
+      CreateText(lFontName);
+    }
+
+    static void CreateText( string aFontName )
+    {
+      Type lPiaType = Type.GetTypeFromProgID("CorelDRAW.Application.22");
+
+      var lApp = Activator.CreateInstance(lPiaType) as CorelDRAWApplication;
+
+      CorelStructCreateOptions lCreateOptions = new CorelStructCreateOptions();
+
+      lCreateOptions.Units = CdrUnit.cdrInch ;
+      lCreateOptions.Name  = $"TestFont_{aFontName}";
+
+      var lDoc = lApp.CreateDocumentEx(lCreateOptions);
+
+      Console.WriteLine($"Creating Artistic Text using font: [{aFontName}]");
+
+      var lText = lDoc.ActiveLayer.CreateArtisticTextWide( 0.0, 0.0
+                                                         , aFontName
+                                                         , CdrTextLanguage.cdrLanguageNone
+                                                         , CdrTextCharSet.cdrCharSetMixed
+                                                         , aFontName
+                                                         , 72
+                                                         , CdrTriState.cdrFalse
+                                                         , CdrTriState.cdrFalse
+                                                         , CdrFontLine.cdrMixedFontLine
+                                                         , CdrAlignment.cdrCenterAlignment
+                                                         ) ;
+
+      if (  lText.Text.Story.Font != aFontName )
+        Console.WriteLine($"ERROR: Text Font changed to [{lText.Text.Story.Font}]");
+
+      string lFileName = $"{Directory.GetCurrentDirectory()}\\TestFont_{aFontName}.cdr";
+
+      Console.WriteLine($"CDR created: [{lFileName}]");
+
+      CorelStructSaveAsOptions lOptions = lApp.CreateStructSaveAsOptions();
+      lOptions.Overwrite = true ;
+      lOptions.Version = CdrFileVersion.cdrCurrentVersion ;
+      lDoc.SaveAs(lFileName, lOptions) ; 
+      lDoc.Dirty = false ;
+      lDoc.Close();
+
+    }
+  }
+}

TestFont/Properties/AssemblyInfo.cs

@@ -0,0 +1,36 @@
+using System.Reflection;
+using System.Runtime.CompilerServices;
+using System.Runtime.InteropServices;
+
+// General Information about an assembly is controlled through the following
+// set of attributes. Change these attribute values to modify the information
+// associated with an assembly.
+[assembly: AssemblyTitle("TestTextCreation")]
+[assembly: AssemblyDescription("")]
+[assembly: AssemblyConfiguration("")]
+[assembly: AssemblyCompany("")]
+[assembly: AssemblyProduct("TestTextCreation")]
+[assembly: AssemblyCopyright("Copyright ©  2020")]
+[assembly: AssemblyTrademark("")]
+[assembly: AssemblyCulture("")]
+
+// Setting ComVisible to false makes the types in this assembly not visible
+// to COM components.  If you need to access a type in this assembly from
+// COM, set the ComVisible attribute to true on that type.
+[assembly: ComVisible(false)]
+
+// The following GUID is for the ID of the typelib if this project is exposed to COM
+[assembly: Guid("9846bc63-05c3-49ce-a844-85f537bd47bc")]
+
+// Version information for an assembly consists of the following four values:
+//
+//      Major Version
+//      Minor Version
+//      Build Number
+//      Revision
+//
+// You can specify all the values or you can default the Build and Revision Numbers
+// by using the '*' as shown below:
+// [assembly: AssemblyVersion("1.0.*")]
+[assembly: AssemblyVersion("1.0.0.0")]
+[assembly: AssemblyFileVersion("1.0.0.0")]

TestFont/TestFont.csproj

@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{9846BC63-05C3-49CE-A844-85F537BD47BC}</ProjectGuid>
+    <OutputType>Exe</OutputType>
+    <RootNamespace>TestFont</RootNamespace>
+    <AssemblyName>TestFont</AssemblyName>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
+    <FileAlignment>512</FileAlignment>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <Deterministic>true</Deterministic>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <Optimize>false</Optimize>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DefineConstants>DEBUG;TRACE</DefineConstants>
+    <ErrorReport>prompt</ErrorReport>
+    <WarningLevel>4</WarningLevel>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DefineConstants>TRACE</DefineConstants>
+    <ErrorReport>prompt</ErrorReport>
+    <WarningLevel>4</WarningLevel>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="Corel.Interop.VGCore, Version=22.1.0.517, Culture=neutral, PublicKeyToken=e4835428e22ad6f9, processorArchitecture=MSIL">
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Net.Http" />
+    <Reference Include="System.Xml" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Program.cs" />
+    <Compile Include="Properties\AssemblyInfo.cs" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="App.config" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.CSharp.targets" />
+</Project>

TestFont/TestFont.csproj.user

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
+    <StartArguments>"Winter Story"</StartArguments>
+  </PropertyGroup>
+</Project>

TestFont/TestFont.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Version 16
+VisualStudioVersion = 16.0.30611.23
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "TestFont", "TestFont.csproj", "{9846BC63-05C3-49CE-A844-85F537BD47BC}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{9846BC63-05C3-49CE-A844-85F537BD47BC}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{9846BC63-05C3-49CE-A844-85F537BD47BC}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{9846BC63-05C3-49CE-A844-85F537BD47BC}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{9846BC63-05C3-49CE-A844-85F537BD47BC}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {170B8526-8112-4B82-9761-D1C980FEE337}
+	EndGlobalSection
+EndGlobal