31.07.2023

EnvelopeGenerator.Form/frmFieldEditor.vb

@@ -1,5 +1,6 @@
 Imports System.ComponentModel
 Imports System.Text
+Imports DevExpress.Utils.Svg
 Imports DevExpress.XtraBars
 Imports DigitalData.Modules.Logging
 Imports GdPicture14
@@ -19,8 +20,6 @@ Partial Public Class frmFieldEditor
     Public Property SelectedReceiver As EnvelopeReceiver = Nothing
     Public Property State As State
 
-
-
     Public Sub New()
         InitializeComponent()
     End Sub
@@ -55,6 +54,16 @@ Partial Public Class frmFieldEditor
         PopupMenu1.AddItems(oItems)
 
         Controller = New FieldEditorController(State, Document)
+
+        If Controller.LoadElements() = False Then
+            MsgBox("Elemente konnten nicht geladen werden!", MsgBoxStyle.Critical, Text)
+        Else
+
+            For Each oElement In Controller.Elements
+                LoadAnnotation(oElement)
+            Next
+
+        End If
     End Sub
 
     Private Function CreateBarItem(pReceiver As EnvelopeReceiver) As BarItem
@@ -162,25 +171,23 @@ Partial Public Class frmFieldEditor
         End If
     End Sub
 
-    Private Sub LoadAnnotation()
+    Private Sub LoadAnnotation(pElement As EnvelopeDocumentElement)
         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.Width = CSng(pElement.Width)
+            oAnnotation.Height = CSng(pElement.Height)
+            oAnnotation.Left = CSng(pElement.X)
+            oAnnotation.Top = CSng(pElement.Y)
             oAnnotation.Fill = True
             oAnnotation.FillColor = Color.DarkRed
-            oAnnotation.Text = "SIGNATUR JUNGE"
+            oAnnotation.Text = "SIGNATUR"
 
+            ' TODO: Set tag with annotation index and page
+            'oAnnotation.Tag = 
 
             If Manager.SaveAnnotationsToPage() = GdPictureStatus.OK Then
-                'oManager.BurnAnnotationsToPage(True)
-
-                'GDViewer.ReloadAnnotations()
-                'GDViewer.Redraw()
             End If
         End If
     End Sub