fix pageindex, translations

EnvelopeGenerator.Common/EnvelopeGenerator.Common.vbproj

@@ -222,7 +222,7 @@
       <DependentUpon>rptEnvelopeHistory.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="Strings\Email.en.resx">
-      <Generator>ResXFileCodeGenerator</Generator>
+      <Generator>PublicResXFileCodeGenerator</Generator>
       <LastGenOutput>Email.en.Designer.vb</LastGenOutput>
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
     </EmbeddedResource>
@@ -237,18 +237,18 @@
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
     </EmbeddedResource>
     <EmbeddedResource Include="Strings\Email.resx">
-      <Generator>ResXFileCodeGenerator</Generator>
+      <Generator>PublicResXFileCodeGenerator</Generator>
       <LastGenOutput>Email.Designer.vb</LastGenOutput>
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
     </EmbeddedResource>
     <EmbeddedResource Include="Strings\Model.en.resx">
-      <Generator>ResXFileCodeGenerator</Generator>
+      <Generator>PublicResXFileCodeGenerator</Generator>
       <LastGenOutput>Model.en.Designer.vb</LastGenOutput>
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
     </EmbeddedResource>
     <EmbeddedResource Include="Strings\Model.resx">
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
-      <Generator>ResXFileCodeGenerator</Generator>
+      <Generator>PublicResXFileCodeGenerator</Generator>
       <LastGenOutput>Model.Designer.vb</LastGenOutput>
     </EmbeddedResource>
   </ItemGroup>

EnvelopeGenerator.Common/Jobs/PDFBurner.vb

@@ -78,8 +78,10 @@ Namespace Jobs
                     Select Case oAnnotation.type
                         Case ANNOTATION_TYPE_IMAGE
                             AddImageAnnotation(oAnnotation, oAnnotationData.attachments)
+
                         Case ANNOTATION_TYPE_INK
                             AddInkAnnotation(oAnnotation)
+
                     End Select
                 Next
 
@@ -104,6 +106,7 @@ Namespace Jobs
                 Dim oWidth = oBounds.Item(2)
                 Dim oHeight = oBounds.Item(3)
 
+                Manager.SelectPage(pAnnotation.pageIndex + 1)
                 Manager.AddEmbeddedImageAnnotFromBase64(oAttachment.Value.binary, oX, oY, oWidth, oHeight)
 
                 Return True
@@ -126,7 +129,6 @@ Namespace Jobs
                     Select(AddressOf ToPointF).
                     ToArray()
 
-
                     Manager.AddFreeHandAnnot(oColor, oPoints)
                 Next
 

EnvelopeGenerator.Common/Strings/Email.Designer.vb

@@ -25,7 +25,7 @@ Namespace My.Resources
     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
-    Friend Class Email
+    Public Class Email
         
         Private Shared resourceMan As Global.System.Resources.ResourceManager
         
@@ -40,7 +40,7 @@ Namespace My.Resources
         '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
         '''</summary>
         <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
-        Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+        Public Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
                     Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EnvelopeGenerator.Common.Email", GetType(Email).Assembly)
@@ -55,7 +55,7 @@ Namespace My.Resources
         '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
         '''</summary>
         <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
-        Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
+        Public Shared Property Culture() As Global.System.Globalization.CultureInfo
             Get
                 Return resourceCulture
             End Get
@@ -67,7 +67,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Sie haben ein Dokument zur Unterschrift erhalten: {0} ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property Sie_haben_ein_Dokument_zur_Unterschrift_erhalten___0_() As String
+        Public Shared ReadOnly Property Sie_haben_ein_Dokument_zur_Unterschrift_erhalten___0_() As String
             Get
                 Return ResourceManager.GetString("Sie haben ein Dokument zur Unterschrift erhalten: {0}", resourceCulture)
             End Get

EnvelopeGenerator.Common/Strings/Model.Designer.vb

@@ -25,7 +25,7 @@ Namespace My.Resources
     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
-    Friend Class Model
+    Public Class Model
         
         Private Shared resourceMan As Global.System.Resources.ResourceManager
         
@@ -40,7 +40,7 @@ Namespace My.Resources
         '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
         '''</summary>
         <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
-        Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+        Public Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
                     Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EnvelopeGenerator.Common.Model", GetType(Model).Assembly)
@@ -55,7 +55,7 @@ Namespace My.Resources
         '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
         '''</summary>
         <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
-        Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
+        Public Shared Property Culture() As Global.System.Globalization.CultureInfo
             Get
                 Return resourceCulture
             End Get
@@ -67,7 +67,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Abgeschlossen ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property Completed() As String
+        Public Shared ReadOnly Property Completed() As String
             Get
                 Return ResourceManager.GetString("Completed", resourceCulture)
             End Get
@@ -76,7 +76,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Vollständig Signiert ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property CompletelySigned() As String
+        Public Shared ReadOnly Property CompletelySigned() As String
             Get
                 Return ResourceManager.GetString("CompletelySigned", resourceCulture)
             End Get
@@ -85,7 +85,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Vertrag ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property Contract() As String
+        Public Shared ReadOnly Property Contract() As String
             Get
                 Return ResourceManager.GetString("Contract", resourceCulture)
             End Get
@@ -94,7 +94,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Erstellt ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property Created() As String
+        Public Shared ReadOnly Property Created() As String
             Get
                 Return ResourceManager.GetString("Created", resourceCulture)
             End Get
@@ -103,7 +103,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Dokument geöffnet ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property DocumentOpened() As String
+        Public Shared ReadOnly Property DocumentOpened() As String
             Get
                 Return ResourceManager.GetString("DocumentOpened", resourceCulture)
             End Get
@@ -112,7 +112,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Dokument unterzeichnet ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property DocumentSigned() As String
+        Public Shared ReadOnly Property DocumentSigned() As String
             Get
                 Return ResourceManager.GetString("DocumentSigned", resourceCulture)
             End Get
@@ -121,7 +121,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Entwurf ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property Draft() As String
+        Public Shared ReadOnly Property Draft() As String
             Get
                 Return ResourceManager.GetString("Draft", resourceCulture)
             End Get
@@ -130,7 +130,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Archiviert ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property EnvelopeArchived() As String
+        Public Shared ReadOnly Property EnvelopeArchived() As String
             Get
                 Return ResourceManager.GetString("EnvelopeArchived", resourceCulture)
             End Get
@@ -139,7 +139,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Vollständig signiert ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property EnvelopeCompletelySigned() As String
+        Public Shared ReadOnly Property EnvelopeCompletelySigned() As String
             Get
                 Return ResourceManager.GetString("EnvelopeCompletelySigned", resourceCulture)
             End Get
@@ -148,7 +148,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Erstellt ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property EnvelopeCreated() As String
+        Public Shared ReadOnly Property EnvelopeCreated() As String
             Get
                 Return ResourceManager.GetString("EnvelopeCreated", resourceCulture)
             End Get
@@ -157,7 +157,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Gelöscht ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property EnvelopeDeleted() As String
+        Public Shared ReadOnly Property EnvelopeDeleted() As String
             Get
                 Return ResourceManager.GetString("EnvelopeDeleted", resourceCulture)
             End Get
@@ -166,7 +166,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Teil-Signiert ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property EnvelopePartlySigned() As String
+        Public Shared ReadOnly Property EnvelopePartlySigned() As String
             Get
                 Return ResourceManager.GetString("EnvelopePartlySigned", resourceCulture)
             End Get
@@ -175,7 +175,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Umschlag in Queue ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property EnvelopeQueued() As String
+        Public Shared ReadOnly Property EnvelopeQueued() As String
             Get
                 Return ResourceManager.GetString("EnvelopeQueued", resourceCulture)
             End Get
@@ -184,7 +184,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Gespeichert ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property EnvelopeSaved() As String
+        Public Shared ReadOnly Property EnvelopeSaved() As String
             Get
                 Return ResourceManager.GetString("EnvelopeSaved", resourceCulture)
             End Get
@@ -193,7 +193,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Gesendet ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property EnvelopeSent() As String
+        Public Shared ReadOnly Property EnvelopeSent() As String
             Get
                 Return ResourceManager.GetString("EnvelopeSent", resourceCulture)
             End Get
@@ -202,7 +202,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die DMS ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property EnvelopeTransmittedDMS() As String
+        Public Shared ReadOnly Property EnvelopeTransmittedDMS() As String
             Get
                 Return ResourceManager.GetString("EnvelopeTransmittedDMS", resourceCulture)
             End Get
@@ -211,7 +211,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Bestätigung versendet ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property MessageConfirmationSent() As String
+        Public Shared ReadOnly Property MessageConfirmationSent() As String
             Get
                 Return ResourceManager.GetString("MessageConfirmationSent", resourceCulture)
             End Get
@@ -220,7 +220,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Löschinformation versendet ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property MessageDeletionSent() As String
+        Public Shared ReadOnly Property MessageDeletionSent() As String
             Get
                 Return ResourceManager.GetString("MessageDeletionSent", resourceCulture)
             End Get
@@ -229,7 +229,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Einladung versendet ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property MessageInvitationSent() As String
+        Public Shared ReadOnly Property MessageInvitationSent() As String
             Get
                 Return ResourceManager.GetString("MessageInvitationSent", resourceCulture)
             End Get
@@ -238,16 +238,16 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Teil-Signiert ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property PartlySigned() As String
+        Public Shared ReadOnly Property PartlySigned() As String
             Get
                 Return ResourceManager.GetString("PartlySigned", resourceCulture)
             End Get
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die ReadAndSign ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die Arbeitsanweisung ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property ReadAndSign() As String
+        Public Shared ReadOnly Property ReadAndSign() As String
             Get
                 Return ResourceManager.GetString("ReadAndSign", resourceCulture)
             End Get
@@ -256,7 +256,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Gespeichert ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property Saved() As String
+        Public Shared ReadOnly Property Saved() As String
             Get
                 Return ResourceManager.GetString("Saved", resourceCulture)
             End Get
@@ -265,7 +265,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Gesendet ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property Sent() As String
+        Public Shared ReadOnly Property Sent() As String
             Get
                 Return ResourceManager.GetString("Sent", resourceCulture)
             End Get
@@ -274,7 +274,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Signatur ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property Signature() As String
+        Public Shared ReadOnly Property Signature() As String
             Get
                 Return ResourceManager.GetString("Signature", resourceCulture)
             End Get
@@ -283,7 +283,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Signatur bestätigt ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property SignatureConfirmed() As String
+        Public Shared ReadOnly Property SignatureConfirmed() As String
             Get
                 Return ResourceManager.GetString("SignatureConfirmed", resourceCulture)
             End Get
@@ -292,7 +292,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Signiert ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property Signed() As String
+        Public Shared ReadOnly Property Signed() As String
             Get
                 Return ResourceManager.GetString("Signed", resourceCulture)
             End Get
@@ -301,7 +301,7 @@ Namespace My.Resources
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Unsigniert ähnelt.
         '''</summary>
-        Friend Shared ReadOnly Property Unsigned() As String
+        Public Shared ReadOnly Property Unsigned() As String
             Get
                 Return ResourceManager.GetString("Unsigned", resourceCulture)
             End Get

EnvelopeGenerator.Common/Strings/Model.en.resx

@@ -172,7 +172,7 @@
     <value>Invitation Sent</value>
   </data>
   <data name="ReadAndSign" xml:space="preserve">
-    <value>ReadAndSign</value>
+    <value>Read and Sign</value>
   </data>
   <data name="Saved" xml:space="preserve">
     <value>Saved</value>

EnvelopeGenerator.Common/Strings/Model.resx

@@ -178,7 +178,7 @@
     <value>Teil-Signiert</value>
   </data>
   <data name="ReadAndSign" xml:space="preserve">
-    <value>ReadAndSign</value>
+    <value>Arbeitsanweisung</value>
   </data>
   <data name="Saved" xml:space="preserve">
     <value>Gespeichert</value>

EnvelopeGenerator.Form/frmEnvelopeMainData.vb

@@ -22,14 +22,19 @@ Public Class frmEnvelopeMainData
             cmbContractType.ReadOnly = True
         End If
 
-        Dim contractTypeList = [Enum].GetValues(GetType(ContractType)) _
+        Dim contractTypeList = [Enum].GetValues(GetType(ContractType)).Cast(Of ContractType)()
-                                 .Cast(Of ContractType)().ToList()
+        Dim oTranslatedList = contractTypeList.Select(AddressOf TranslateContractType).ToList()
-        cmbContractType.Properties.Items.AddRange(contractTypeList)
+
+        cmbContractType.Properties.Items.AddRange(oTranslatedList)
 
         txtTitle.EditValue = EnvelopeTitle
-        cmbContractType.EditValue = EnvelopeContractType
+        cmbContractType.EditValue = TranslateContractType(EnvelopeContractType)
     End Sub
 
+    Private Function TranslateContractType(pType As ContractType) As String
+        Return Resources.Model.ResourceManager.GetString(pType.ToString())
+    End Function
+
     Private Sub btOK_Click(sender As Object, e As EventArgs) Handles btOK.Click
 
         Dim Validator As Validator = New Validator(State.LogConfig, AdornerUIManager1)
@@ -42,6 +47,6 @@ Public Class frmEnvelopeMainData
         End If
 
         EnvelopeTitle = txtTitle.EditValue
-        EnvelopeContractType = cmbContractType.EditValue
+        EnvelopeContractType = cmbContractType.SelectedIndex + 1
     End Sub
 End Class