06-12-2023

EnvelopeGenerator.Form/Controllers/FieldEditorController.vb

@@ -1,4 +1,5 @@
-Imports EnvelopeGenerator.Common
+Imports DevExpress.XtraPrinting.Native
+Imports EnvelopeGenerator.Common
 Imports GdPicture14.Annotations
 
 Public Class FieldEditorController
@@ -59,12 +60,24 @@ Public Class FieldEditorController
         End If
     End Function
 
-    Public Sub AddOrUpdateElement(pAnnotation As AnnotationStickyNote)
+    Public Sub AddOrUpdateElement(pAnnotation As AnnotationStickyNote, pPageOrientation As PageOrientation)
         Dim oElement = GetElement(pAnnotation)
 
+        Dim oAnnotationHeight As Single = pAnnotation.Height
+        Dim oAnnotationWidth As Single = pAnnotation.Width
+
+        'If pPageOrientation = PageOrientation.Portrait Then
+        '    oAnnotationHeight = pAnnotation.Height
+        '    oAnnotationWidth = pAnnotation.Width
+        'Else
+        '    oAnnotationHeight = pAnnotation.Width
+        '    oAnnotationWidth = pAnnotation.Height
+        'End If
+
+
         If oElement IsNot Nothing Then
-            oElement.Height = pAnnotation.Height
-            oElement.Width = pAnnotation.Width
+            oElement.Height = oAnnotationHeight
+            oElement.Width = oAnnotationWidth
             oElement.X = pAnnotation.Left
             oElement.Y = pAnnotation.Top
         Else
@@ -72,8 +85,8 @@ Public Class FieldEditorController
 
             Elements.Add(New EnvelopeDocumentElement() With {
                 .ElementType = Constants.ElementType.Signature,
-                .Height = pAnnotation.Height,
-                .Width = pAnnotation.Width,
+                .Height = oAnnotationHeight,
+                .Width = oAnnotationWidth,
                 .X = pAnnotation.Left,
                 .Y = pAnnotation.Top,
                 .DocumentId = Document.Id,