06-12-2023

EnvelopeGenerator.Common/Constants.vb

@@ -55,6 +55,11 @@
         ReceiverColor9 = 9
         ReceiverColor10 = 10
     End Enum
+
+    Public Enum PageOrientation
+        Portrait = 0
+        Landscape = 1
+    End Enum
 #End Region
 
 

EnvelopeGenerator.Common/Strings/Envelope.resx

@@ -133,10 +133,10 @@
     <value>Dokument konnte nicht gespeichert werden!</value>
   </data>
   <data name="Elements could not be loaded" xml:space="preserve">
-    <value>Elemente konnten nicht geladen werden!</value>
+    <value>Signatur-Elemente konnten nicht geladen werden!</value>
   </data>
   <data name="Elements could not be saved" xml:space="preserve">
-    <value>Elemente konnten nicht gespeichert werden!</value>
+    <value>Signatur-Elemente konnten nicht gespeichert werden!</value>
   </data>
   <data name="Envelope already sent" xml:space="preserve">
     <value>Der Umschlag wurde bereits versendet!</value>

EnvelopeGenerator.Common/Strings/Envelope1.Designer.vb

@@ -110,7 +110,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die Elemente konnten nicht geladen werden! ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die Signatur-Elemente konnten nicht geladen werden! ähnelt.
         '''</summary>
         Public Shared ReadOnly Property Elements_could_not_be_loaded() As String
             Get
@@ -119,7 +119,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die Elemente konnten nicht gespeichert werden! ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die Signatur-Elemente konnten nicht gespeichert werden! ähnelt.
         '''</summary>
         Public Shared ReadOnly Property Elements_could_not_be_saved() As String
             Get

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