clean up

GUIs.Test.TestGUI/TestGUI.vbproj

@@ -82,6 +82,10 @@
     <Reference Include="DigitalData.Modules.Filesystem">
       <HintPath>..\..\DDModules\Filesystem\bin\Debug\DigitalData.Modules.Filesystem.dll</HintPath>
     </Reference>
+    <Reference Include="DigitalData.Modules.Interfaces, Version=1.12.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\DDModules\Interfaces\bin\Debug\DigitalData.Modules.Interfaces.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Logging">
       <HintPath>..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>

GUIs.Test.TestGUI/frmDocView.Designer.vb

@@ -24,18 +24,20 @@ Partial Class frmDocView
     Private Sub InitializeComponent()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
         Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
-        Me.Button4 = New System.Windows.Forms.Button()
         Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         'Panel1
         '
         Me.Panel1.Controls.Add(Me.Button2)
+        Me.Panel1.Controls.Add(Me.Button5)
         Me.Panel1.Controls.Add(Me.Button4)
         Me.Panel1.Controls.Add(Me.Button3)
         Me.Panel1.Controls.Add(Me.Button1)
@@ -55,6 +57,24 @@ Partial Class frmDocView
         Me.Button2.Text = "Unload File"
         Me.Button2.UseVisualStyleBackColor = True
         '
+        'Button5
+        '
+        Me.Button5.Location = New System.Drawing.Point(749, 10)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(75, 23)
+        Me.Button5.TabIndex = 1
+        Me.Button5.Text = "Clone"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.Location = New System.Drawing.Point(830, 10)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(75, 23)
+        Me.Button4.TabIndex = 1
+        Me.Button4.Text = "Save"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
         'Button3
         '
         Me.Button3.Location = New System.Drawing.Point(911, 10)
@@ -93,15 +113,6 @@ Partial Class frmDocView
         Me.DocumentViewer1.Size = New System.Drawing.Size(1079, 463)
         Me.DocumentViewer1.TabIndex = 0
         '
-        'Button4
-        '
-        Me.Button4.Location = New System.Drawing.Point(830, 10)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(75, 23)
-        Me.Button4.TabIndex = 1
-        Me.Button4.Text = "Save"
-        Me.Button4.UseVisualStyleBackColor = True
-        '
         'frmDocView
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -125,4 +136,5 @@ Partial Class frmDocView
     Friend WithEvents Button2 As Button
     Friend WithEvents Button3 As Button
     Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
 End Class

GUIs.Test.TestGUI/frmDocView.vb

@@ -1,8 +1,12 @@
 Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Interfaces
+Imports GdPicture14
 
 Public Class frmDocView
     Private LogConfig As LogConfig
 
+    Private Const GDPICTURE_KEY = "21182889975216572111813147150675976632"
+
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         If String.IsNullOrEmpty(TextBox1.Text) Then
             If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
@@ -17,7 +21,7 @@ Public Class frmDocView
 
     Private Sub frmDocView_Load(sender As Object, e As EventArgs) Handles Me.Load
         LogConfig = New LogConfig(LogConfig.PathType.Temp)
-        DocumentViewer1.Init(LogConfig, "21182889975216572111813147150675976632")
+        DocumentViewer1.Init(LogConfig, GDPICTURE_KEY)
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
@@ -32,4 +36,16 @@ Public Class frmDocView
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
         DocumentViewer1.Save()
     End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        Dim licenseManager As New GdPicture14.LicenseManager()
+        licenseManager.RegisterKEY(GDPICTURE_KEY)
+
+        Dim oPDFConverter = New PDFConverter(LogConfig)
+        Dim oResult = oPDFConverter.ConvertPDFADocumentToPDFDocument(TextBox1.Text, TextBox1.Text & ".cloned.pdf")
+
+        If oResult = True Then
+            MsgBox("Document was successfully cloned!")
+        End If
+    End Sub
 End Class