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,

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -282,7 +282,7 @@ Partial Public Class frmEnvelopeEditor
         End If
 
         Dim oErrors = ValidateEnvelope()
-        oErrors = Controller.ValidateEn06 - 12 - 2velopeForSending(oErrors)
+        oErrors = Controller.ValidateEnvelopeForSending(oErrors)
 
         If oErrors.Any() Then
             ShowValidationErrors(Resources.Envelope.Error_when_validating_the_envelope, oErrors)

EnvelopeGenerator.Form/frmFieldEditor.vb

@@ -4,6 +4,7 @@ Imports DevExpress.Utils.Svg
 Imports DevExpress.XtraBars
 Imports DigitalData.Modules.Logging
 Imports EnvelopeGenerator.Common
+Imports EnvelopeGenerator.Common.Constants
 Imports EnvelopeGenerator.Common.My
 Imports GdPicture14
 Imports GdPicture14.Annotations
@@ -188,7 +189,8 @@ Partial Public Class frmFieldEditor
             Dim oAnnotation As Annotation = GDViewer.GetAnnotationFromIdx(oAnnotationIndex)
             If TypeOf oAnnotation Is AnnotationStickyNote Then
                 Dim oStickyNote As AnnotationStickyNote = oAnnotation
-                Controller.AddOrUpdateElement(oStickyNote)
+                Dim oPageOrientation As PageOrientation = GetOrientation()
+                Controller.AddOrUpdateElement(oStickyNote, oPageOrientation)
             End If
         Next
     End Sub
@@ -292,6 +294,18 @@ Partial Public Class frmFieldEditor
         End If
     End Sub
 
+    Private Function GetOrientation() As PageOrientation
+        Dim oWidth = GDViewer.Width
+        Dim oHeight = GDViewer.PageHeight
+
+        If oHeight >= oWidth Then
+            Return PageOrientation.Portrait
+        Else
+            Return PageOrientation.Landscape
+        End If
+
+    End Function
+
     Private Sub ApplyAnnotationStyleForExistingAnnotation(ByRef pAnnotation As Annotation, pColor As Color)
         ApplyAnnotationStyle(pAnnotation, pColor, pIsNewAnnotation:=False)
     End Sub