06-12-2023

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