17.07.2023

2023-07-17 12:59:36 +02:00
parent b63655b212
commit 9a3c3c2706
23 changed files with 1121 additions and 176 deletions
--- a/EnvelopeGenerator.Test/frmFieldEditor.vb
+++ b/EnvelopeGenerator.Test/frmFieldEditor.vb
@@ -0,0 +1,147 @@
+Imports System.ComponentModel
+Imports System.Text
+Imports DigitalData.Modules.Logging
+Imports GdPicture14
+Imports GdPicture14.Annotations
+
+Partial Public Class frmFieldEditor
+    Private LogConfig As LogConfig
+    Private Logger As Logger
+
+    Private GDViewer As GdViewer
+    Private Manager As AnnotationManager
+
+    Public Sub New()
+        InitializeComponent()
+    End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
+        LogConfig = New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath, CompanyName:="Digital Data", ProductName:="EnvelopeGenerator")
+        Logger = LogConfig.GetLogger()
+
+        DocumentViewer1.Init(LogConfig, "21182889975216572111813147150675976632")
+    End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        If GDViewer IsNot Nothing Then
+
+            AddHandler GDViewer.BeforeAnnotationAddedByUser, AddressOf Viewer_BeforeAnnotationAddedByUser
+            AddHandler GDViewer.AnnotationAddedByUser, AddressOf Viewer_AnnotationAddedByUser
+
+            GDViewer.AddStickyNoteAnnotationInteractive("SIGNATUR", Color.Black, "Arial", FontStyle.Regular, 10, 1, 0)
+
+
+        End If
+    End Sub
+
+    Private Sub Viewer_AnnotationAddedByUser(AnnotationIdx As Integer)
+        Dim oAnnotation = GDViewer.GetAnnotationFromIdx(AnnotationIdx)
+
+        If TypeOf oAnnotation Is AnnotationStickyNote Then
+            Dim oStickyNote As AnnotationStickyNote = oAnnotation
+            oStickyNote.Width = 1
+            oStickyNote.Height = 1
+
+            ApplyAnnotationStyle(oAnnotation)
+        End If
+
+        oAnnotation.CanRotate = False
+        oAnnotation.CanEdit = False
+        oAnnotation.CanResize = False
+    End Sub
+
+    Private Sub Viewer_BeforeAnnotationAddedByUser(AnnotationIdx As Integer)
+        'NOOP
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
+            Dim oFilePath = OpenFileDialog1.FileName
+            DocumentViewer1.LoadFile(oFilePath)
+
+            If DocumentViewer1.PdfViewer IsNot Nothing Then
+                GDViewer = DocumentViewer1.PdfViewer
+                Manager = GDViewer.GetAnnotationManager()
+                Manager.InitFromGdViewer(GDViewer)
+            End If
+        End If
+    End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        Dim oAnnotationCount = GDViewer.GetAnnotationCount()
+        For index = 0 To oAnnotationCount
+            Dim oAnnotation As Annotation = GDViewer.GetAnnotationFromIdx(index)
+
+            If TypeOf oAnnotation Is AnnotationStickyNote Then
+                Dim oStickyNote As AnnotationStickyNote = oAnnotation
+
+                Dim oWidth = InchToPixel(oStickyNote.Width)
+                Dim oHeight = InchToPixel(oStickyNote.Height)
+                Dim oTop = InchToPixel(oStickyNote.Top)
+                Dim oLeft = InchToPixel(oStickyNote.Left)
+            End If
+        Next
+
+    End Sub
+
+    Private Function InchToPixel(pInch As Single) As Single
+        Return pInch * 96
+    End Function
+
+    Private Function PixelToInch(pPixel As Single) As Single
+        Return pPixel / 96
+    End Function
+
+    Private Sub ApplyAnnotationStyle(ByRef pAnnotation As Annotation)
+        If TypeOf pAnnotation Is AnnotationStickyNote Then
+            Dim oStickyNote As AnnotationStickyNote = pAnnotation
+            oStickyNote.Fill = True
+            oStickyNote.FillColor = Color.LightGoldenrodYellow
+            oStickyNote.Text = "SIGNATUR"
+            oStickyNote.Alignment = StringAlignment.Center
+            oStickyNote.LineAlignment = StringAlignment.Center
+        End If
+    End Sub
+
+    Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
+
+        Dim oAnnotation As AnnotationStickyNote = Manager.AddStickyNoteAnnot(0, 0, 0, 0, "SIGNATUR")
+
+
+        If Manager.GetStat() = GdPictureStatus.OK Then
+            oAnnotation.Width = 2
+            oAnnotation.Height = 2
+            oAnnotation.Left = 1
+            oAnnotation.Top = 1
+            oAnnotation.Fill = True
+            oAnnotation.FillColor = Color.DarkRed
+            oAnnotation.Text = "SIGNATUR JUNGE"
+
+
+            If Manager.SaveAnnotationsToPage() = GdPictureStatus.OK Then
+                'oManager.BurnAnnotationsToPage(True)
+
+                'GDViewer.ReloadAnnotations()
+                'GDViewer.Redraw()
+            End If
+        End If
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
+
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        Dim oSelected = GDViewer.GetSelectedAnnotationIdx()
+
+        If oSelected = -1 Then
+            Exit Sub
+        End If
+
+        If MsgBox("Wollen Sie die Annotation löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question, Text) = DialogResult.Yes Then
+            GDViewer.DeleteAnnotation(oSelected)
+        End If
+    End Sub
+End Class
+
+