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
                TextBox1.Text = OpenFileDialog1.FileName
                DocumentViewer1.LoadFile(TextBox1.Text)
            End If
        Else
            DocumentViewer1.LoadFile(TextBox1.Text)
        End If

    End Sub

    Private Sub frmDocView_Load(sender As Object, e As EventArgs) Handles Me.Load
        LogConfig = New LogConfig(LogConfig.PathType.Temp)
        DocumentViewer1.Init(LogConfig, GDPICTURE_KEY, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings() With {
            .ShowPrintButton = False,
            .ShowRotateButton = False,
            .ShowFlipButton = False,
            .ShowSettingButton = False
        })
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        DocumentViewer1.Done()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If DocumentViewer1.AddAnnotation("Some Text") Then
        End If
    End Sub

    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