diff --git a/EnvelopeGenerator.Common/Constants.vb b/EnvelopeGenerator.Common/Constants.vb index ff7eed6d..4605b46c 100644 --- a/EnvelopeGenerator.Common/Constants.vb +++ b/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 diff --git a/EnvelopeGenerator.Common/Strings/Envelope.resx b/EnvelopeGenerator.Common/Strings/Envelope.resx index a8e9ca21..04ad97a3 100644 --- a/EnvelopeGenerator.Common/Strings/Envelope.resx +++ b/EnvelopeGenerator.Common/Strings/Envelope.resx @@ -133,10 +133,10 @@ Dokument konnte nicht gespeichert werden! - Elemente konnten nicht geladen werden! + Signatur-Elemente konnten nicht geladen werden! - Elemente konnten nicht gespeichert werden! + Signatur-Elemente konnten nicht gespeichert werden! Der Umschlag wurde bereits versendet! diff --git a/EnvelopeGenerator.Common/Strings/Envelope1.Designer.vb b/EnvelopeGenerator.Common/Strings/Envelope1.Designer.vb index 67f37ece..66a67151 100644 --- a/EnvelopeGenerator.Common/Strings/Envelope1.Designer.vb +++ b/EnvelopeGenerator.Common/Strings/Envelope1.Designer.vb @@ -110,7 +110,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die Elemente konnten nicht geladen werden! ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die Signatur-Elemente konnten nicht geladen werden! ähnelt. ''' Public Shared ReadOnly Property Elements_could_not_be_loaded() As String Get @@ -119,7 +119,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die Elemente konnten nicht gespeichert werden! ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die Signatur-Elemente konnten nicht gespeichert werden! ähnelt. ''' Public Shared ReadOnly Property Elements_could_not_be_saved() As String Get diff --git a/EnvelopeGenerator.Form/Controllers/FieldEditorController.vb b/EnvelopeGenerator.Form/Controllers/FieldEditorController.vb index 5ee61d87..3e76284f 100644 --- a/EnvelopeGenerator.Form/Controllers/FieldEditorController.vb +++ b/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, diff --git a/EnvelopeGenerator.Form/frmEnvelopeEditor.vb b/EnvelopeGenerator.Form/frmEnvelopeEditor.vb index 504c4d99..03a778b3 100644 --- a/EnvelopeGenerator.Form/frmEnvelopeEditor.vb +++ b/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) diff --git a/EnvelopeGenerator.Form/frmFieldEditor.vb b/EnvelopeGenerator.Form/frmFieldEditor.vb index 6c5d01b0..e9d9ca14 100644 --- a/EnvelopeGenerator.Form/frmFieldEditor.vb +++ b/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