AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
Developer01
2025-03-27 17:16:50 +01:00
parent deda2480b0
commit fb069d0ee2
7 changed files with 62 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
EnvelopeGenerator.Form/frmFieldEditor.vb
View File

@@ -74,25 +74,32 @@ Partial Public Class frmFieldEditor
End Sub
Private Sub InitializeViewer()
DocumentViewer1.Init(LogConfig, MS_GDPICTUREKEY, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings With {
.ShowFlipButton = False,
.ShowPrintButton = False,
.ShowRotateButton = False,
.ShowSettingButton = False
})
DocumentViewer1.LoadFile(Document.Filepath)
Try
DocumentViewer1.Init(LogConfig, MS_GDPICTUREKEY, New DigitalData.Controls.DocumentViewer.DocumentViewer.ToolbarSettings With {
.ShowFlipButton = False,
.ShowPrintButton = False,
.ShowRotateButton = False,
.ShowSettingButton = False
})
DocumentViewer1.LoadFile(Document.Filepath)
If DocumentViewer1.PdfViewer IsNot Nothing Then
GDViewer = DocumentViewer1.PdfViewer
AddHandler GDViewer.BeforeAnnotationAddedByUser, AddressOf Viewer_BeforeAnnotationAddedByUser
AddHandler GDViewer.AnnotationAddedByUser, AddressOf Viewer_AnnotationAddedByUser
AddHandler GDViewer.AnnotationMoved, AddressOf Viewer_AnnotationMoved
If DocumentViewer1.PdfViewer IsNot Nothing Then
GDViewer = DocumentViewer1.PdfViewer
AddHandler GDViewer.BeforeAnnotationAddedByUser, AddressOf Viewer_BeforeAnnotationAddedByUser
AddHandler GDViewer.AnnotationAddedByUser, AddressOf Viewer_AnnotationAddedByUser
AddHandler GDViewer.AnnotationMoved, AddressOf Viewer_AnnotationMoved
Manager = GDViewer.GetAnnotationManager()
Manager.InitFromGdViewer(GDViewer)
Else
Manager = GDViewer.GetAnnotationManager()
Manager.InitFromGdViewer(GDViewer)
Else
Logger.Warn("Viewer could not be initialized!")
End If
Catch ex As Exception
Logger.Warn("Viewer could not be initialized!")
End If
Logger.Error(ex)
MsgBox("Viewer could not be initialized!" & vbNewLine & ex.Message)
End Try
End Sub
Private Sub Viewer_AnnotationMoved(AnnotationIdx As Integer)