Imports DevExpress.XtraSplashScreen
Imports EnvelopeGenerator.Common
Imports DigitalData.Modules.Logging
Imports GdPicture14
Public Class frmChooseDocVariant
    Private TempFiles As TempFiles
    Public Property State As State
    Private Logger As Logger
    Private Sub frmChooseDocVariant_Load(sender As Object, e As EventArgs) Handles Me.Load
        ENVELOPE_TEMP_DOCUMENT = ""
        TempFiles = New TempFiles(State.LogConfig)
        TempFiles.Create()
        Logger = State.LogConfig.GetLogger()
    End Sub

    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs)
        OpenFileDialog1.Multiselect = False
        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)

        Try
            If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
                ENVELOPE_TEMP_DOCUMENT = OpenFileDialog1.FileName
            End If

        Catch ex As Exception
            Logger.Error(ex)
        Finally
            SplashScreenManager.CloseOverlayForm(oHandle)
        End Try
        ' Else
        ' SplashScreenManager.CloseOverlayForm(oHandle)
        ' End If
    End Sub

    Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
        OpenFileDialog1.Multiselect = True
        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
        Try
            Dim oErr As Boolean = False
            If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
                Dim oIDX As Integer = 0
                For Each oFile As String In OpenFileDialog1.FileNames
                    oIDX += 1
                Next

                Dim arPDF As GdPicturePDF() = New GdPicturePDF(oIDX) {}
                oIDX = 0
                For Each oFile As String In OpenFileDialog1.FileNames
                    arPDF(oIDX) = New GdPicturePDF()
                    If arPDF(oIDX).LoadFromFile(oFile) <> GdPictureStatus.OK Then
                        MsgBox($"PDF Statsu of file {oFile} is not OK. Please check PDF-conformity!", MsgBoxStyle.Critical)
                        oErr = True
                        Exit For
                    End If
                    oIDX += 1
                Next
                If oErr = False Then

                    Dim dstPDF As GdPicturePDF = arPDF(0).MergeDocuments(arPDF)
                    Dim oStatus As GdPictureStatus = arPDF(0).GetStat()
                    If oStatus = GdPictureStatus.OK Then
                        MsgBox("All documents have been successfully merged.", MsgBoxStyle.Information)
                        Dim oTempFolder = TempFiles.TempPath
                        Dim oTempFilename = String.Concat(oTempFolder, "\", $"MergedDoc.pdf")
                        If System.IO.File.Exists(oTempFilename) Then
                            System.IO.File.Delete(oTempFilename)
                        End If
                        If dstPDF.SaveToFile(oTempFilename) = GdPictureStatus.OK Then
                            MessageBox.Show("Merged document has been successfully saved.", "Example: MergeDocuments")
                            ENVELOPE_TEMP_DOCUMENT = oTempFilename
                            dstPDF.CloseDocument()
                        End If
                    Else
                        MessageBox.Show("The MergeDocuments() method has failed with the status: " + oStatus.ToString(), "Example: MergeDocuments")
                    End If
                    dstPDF.Dispose()
                    oIDX = 0
                    For Each oFile As String In OpenFileDialog1.FileNames
                        arPDF(oIDX).CloseDocument()
                        oIDX += 1
                    Next
                End If

            End If

        Catch ex As Exception
            Logger.Error(ex)
        Finally
            SplashScreenManager.CloseOverlayForm(oHandle)
        End Try
    End Sub

    Private Sub LabelControl1_Click(sender As Object, e As EventArgs) Handles LabelControl1.Click

    End Sub
End Class