MS Anpassungen

2025-11-12 21:43:50 +01:00
parent 69afea012b
commit 1e2e018f7f
6 changed files with 309 additions and 104 deletions
--- a/EnvelopeGenerator.Form/frmMain.Designer.vb
+++ b/EnvelopeGenerator.Form/frmMain.Designer.vb
@@ -169,7 +169,7 @@ Partial Class frmMain
        'SplitContainerControl1.Panel2
        '
        resources.ApplyResources(Me.SplitContainerControl1.Panel2, "SplitContainerControl1.Panel2")
-        Me.SplitContainerControl1.SplitterPosition = 272
+        Me.SplitContainerControl1.SplitterPosition = 335
        '
        'XtraTabControlMain
        '
@@ -181,8 +181,8 @@ Partial Class frmMain
        'XtraTabPage1
        '
        Me.XtraTabPage1.Controls.Add(Me.GridEnvelopes)
-        Me.XtraTabPage1.Name = "XtraTabPage1"
        resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1")
+        Me.XtraTabPage1.Name = "XtraTabPage1"
        '
        'GridEnvelopes
        '
@@ -191,6 +191,7 @@ Partial Class frmMain
        Me.GridEnvelopes.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridEnvelopes.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.GridEnvelopes.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridEnvelopes.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
        Me.GridEnvelopes.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridEnvelopes.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
+        Me.GridEnvelopes.EmbeddedNavigator.Margin = CType(resources.GetObject("GridEnvelopes.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
        Me.GridEnvelopes.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridEnvelopes.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
        Me.GridEnvelopes.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridEnvelopes.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
        GridLevelNode1.LevelTemplate = Me.ViewReceivers
@@ -207,6 +208,7 @@ Partial Class frmMain
        'ViewReceivers
        '
        Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColReceiverStatus, Me.ColName, Me.ColEmail, Me.ColSignedDate, Me.colAccessCode, Me.ColStatusReceiver})
+        Me.ViewReceivers.DetailHeight = 431
        Me.ViewReceivers.GridControl = Me.GridEnvelopes
        Me.ViewReceivers.Name = "ViewReceivers"
        Me.ViewReceivers.OptionsBehavior.Editable = False
@@ -221,6 +223,7 @@ Partial Class frmMain
        '
        resources.ApplyResources(Me.ColReceiverStatus, "ColReceiverStatus")
        Me.ColReceiverStatus.FieldName = "StatusTranslated"
+        Me.ColReceiverStatus.MinWidth = 27
        Me.ColReceiverStatus.Name = "ColReceiverStatus"
        Me.ColReceiverStatus.OptionsColumn.AllowEdit = False
        '
@@ -228,6 +231,7 @@ Partial Class frmMain
        '
        resources.ApplyResources(Me.ColName, "ColName")
        Me.ColName.FieldName = "Name"
+        Me.ColName.MinWidth = 27
        Me.ColName.Name = "ColName"
        Me.ColName.OptionsColumn.AllowEdit = False
        '
@@ -235,6 +239,7 @@ Partial Class frmMain
        '
        resources.ApplyResources(Me.ColEmail, "ColEmail")
        Me.ColEmail.FieldName = "EmailAddress"
+        Me.ColEmail.MinWidth = 27
        Me.ColEmail.Name = "ColEmail"
        Me.ColEmail.OptionsColumn.AllowEdit = False
        '
@@ -242,6 +247,7 @@ Partial Class frmMain
        '
        resources.ApplyResources(Me.ColSignedDate, "ColSignedDate")
        Me.ColSignedDate.FieldName = "SignedDateDisplayValue"
+        Me.ColSignedDate.MinWidth = 27
        Me.ColSignedDate.Name = "ColSignedDate"
        Me.ColSignedDate.OptionsColumn.AllowEdit = False
        '
@@ -249,17 +255,20 @@ Partial Class frmMain
        '
        resources.ApplyResources(Me.colAccessCode, "colAccessCode")
        Me.colAccessCode.FieldName = "AccessCode"
+        Me.colAccessCode.MinWidth = 27
        Me.colAccessCode.Name = "colAccessCode"
        '
        'ColStatusReceiver
        '
        resources.ApplyResources(Me.ColStatusReceiver, "ColStatusReceiver")
        Me.ColStatusReceiver.FieldName = "Status"
+        Me.ColStatusReceiver.MinWidth = 27
        Me.ColStatusReceiver.Name = "ColStatusReceiver"
        '
        'ViewHistory
        '
        Me.ViewHistory.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColHistoryStatus, Me.ColHistoryUserReference, Me.ColHistoryDate})
+        Me.ViewHistory.DetailHeight = 431
        Me.ViewHistory.GridControl = Me.GridEnvelopes
        Me.ViewHistory.Name = "ViewHistory"
        Me.ViewHistory.OptionsBehavior.Editable = False
@@ -272,12 +281,14 @@ Partial Class frmMain
        '
        resources.ApplyResources(Me.ColHistoryStatus, "ColHistoryStatus")
        Me.ColHistoryStatus.FieldName = "StatusTranslated"
+        Me.ColHistoryStatus.MinWidth = 27
        Me.ColHistoryStatus.Name = "ColHistoryStatus"
        '
        'ColHistoryUserReference
        '
        resources.ApplyResources(Me.ColHistoryUserReference, "ColHistoryUserReference")
        Me.ColHistoryUserReference.FieldName = "UserReference"
+        Me.ColHistoryUserReference.MinWidth = 27
        Me.ColHistoryUserReference.Name = "ColHistoryUserReference"
        '
        'ColHistoryDate
@@ -286,11 +297,13 @@ Partial Class frmMain
        Me.ColHistoryDate.DisplayFormat.FormatString = "G"
        Me.ColHistoryDate.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
        Me.ColHistoryDate.FieldName = "ActionDate"
+        Me.ColHistoryDate.MinWidth = 27
        Me.ColHistoryDate.Name = "ColHistoryDate"
        '
        'ViewEnvelopes
        '
        Me.ViewEnvelopes.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colEnvelopeId, Me.colContractType, Me.colStatus, Me.colTitle, Me.colAddedWhen, Me.GridColumn2})
+        Me.ViewEnvelopes.DetailHeight = 431
        Me.ViewEnvelopes.GridControl = Me.GridEnvelopes
        Me.ViewEnvelopes.Name = "ViewEnvelopes"
        Me.ViewEnvelopes.OptionsBehavior.Editable = False
@@ -302,24 +315,28 @@ Partial Class frmMain
        '
        resources.ApplyResources(Me.colEnvelopeId, "colEnvelopeId")
        Me.colEnvelopeId.FieldName = "Id"
+        Me.colEnvelopeId.MinWidth = 27
        Me.colEnvelopeId.Name = "colEnvelopeId"
        '
        'colContractType
        '
        resources.ApplyResources(Me.colContractType, "colContractType")
        Me.colContractType.FieldName = "EnvelopeTypeTitle"
+        Me.colContractType.MinWidth = 27
        Me.colContractType.Name = "colContractType"
        '
        'colStatus
        '
        resources.ApplyResources(Me.colStatus, "colStatus")
        Me.colStatus.FieldName = "StatusTranslated"
+        Me.colStatus.MinWidth = 27
        Me.colStatus.Name = "colStatus"
        '
        'colTitle
        '
        resources.ApplyResources(Me.colTitle, "colTitle")
        Me.colTitle.FieldName = "Title"
+        Me.colTitle.MinWidth = 27
        Me.colTitle.Name = "colTitle"
        '
        'colAddedWhen
@@ -328,6 +345,7 @@ Partial Class frmMain
        Me.colAddedWhen.DisplayFormat.FormatString = "G"
        Me.colAddedWhen.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
        Me.colAddedWhen.FieldName = "AddedWhen"
+        Me.colAddedWhen.MinWidth = 27
        Me.colAddedWhen.Name = "colAddedWhen"
        '
        'GridColumn2
@@ -336,10 +354,12 @@ Partial Class frmMain
        Me.GridColumn2.DisplayFormat.FormatString = "G"
        Me.GridColumn2.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
        Me.GridColumn2.FieldName = "ChangedWhen"
+        Me.GridColumn2.MinWidth = 27
        Me.GridColumn2.Name = "GridColumn2"
        '
        'RibbonControl
        '
+        Me.RibbonControl.EmptyAreaImageOptions.ImagePadding = New System.Windows.Forms.Padding(40, 37, 40, 37)
        Me.RibbonControl.ExpandCollapseItem.Id = 0
        Me.RibbonControl.ExpandCollapseItem.ImageOptions.ImageIndex = CType(resources.GetObject("RibbonControl.ExpandCollapseItem.ImageOptions.ImageIndex"), Integer)
        Me.RibbonControl.ExpandCollapseItem.ImageOptions.LargeImageIndex = CType(resources.GetObject("RibbonControl.ExpandCollapseItem.ImageOptions.LargeImageIndex"), Integer)
@@ -347,6 +367,7 @@ Partial Class frmMain
        resources.ApplyResources(Me.RibbonControl, "RibbonControl")
        Me.RibbonControl.MaxItemId = 22
        Me.RibbonControl.Name = "RibbonControl"
+        Me.RibbonControl.OptionsMenuMinWidth = 440
        Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1, Me.RibbonPage2})
        Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
        Me.RibbonControl.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Show
@@ -549,6 +570,7 @@ Partial Class frmMain
        '
        'RibbonPageGroupReceiver
        '
+        Me.RibbonPageGroupReceiver.Enabled = False
        Me.RibbonPageGroupReceiver.ItemLinks.Add(Me.bbtnitm_ResendInvitation)
        Me.RibbonPageGroupReceiver.ItemLinks.Add(Me.BarButtonItem2)
        Me.RibbonPageGroupReceiver.ItemLinks.Add(Me.bbtnitm2Faktor)
@@ -583,8 +605,8 @@ Partial Class frmMain
        'XtraTabPage2
        '
        Me.XtraTabPage2.Controls.Add(Me.GridCompleted)
-        Me.XtraTabPage2.Name = "XtraTabPage2"
        resources.ApplyResources(Me.XtraTabPage2, "XtraTabPage2")
+        Me.XtraTabPage2.Name = "XtraTabPage2"
        '
        'GridCompleted
        '
@@ -593,6 +615,7 @@ Partial Class frmMain
        Me.GridCompleted.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridCompleted.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.GridCompleted.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridCompleted.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
        Me.GridCompleted.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridCompleted.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
+        Me.GridCompleted.EmbeddedNavigator.Margin = CType(resources.GetObject("GridCompleted.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
        Me.GridCompleted.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridCompleted.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
        Me.GridCompleted.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridCompleted.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
        GridLevelNode3.LevelTemplate = Me.ViewReceiversCompleted
@@ -609,6 +632,7 @@ Partial Class frmMain
        'ViewReceiversCompleted
        '
        Me.ViewReceiversCompleted.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColStatusCompleted, Me.ColNameCompleted, Me.ColEmailCompleted, Me.ColSignedDateCompleted})
+        Me.ViewReceiversCompleted.DetailHeight = 431
        Me.ViewReceiversCompleted.GridControl = Me.GridCompleted
        Me.ViewReceiversCompleted.Name = "ViewReceiversCompleted"
        Me.ViewReceiversCompleted.OptionsBehavior.Editable = False
@@ -623,29 +647,34 @@ Partial Class frmMain
        '
        resources.ApplyResources(Me.ColStatusCompleted, "ColStatusCompleted")
        Me.ColStatusCompleted.FieldName = "StatusTranslated"
+        Me.ColStatusCompleted.MinWidth = 27
        Me.ColStatusCompleted.Name = "ColStatusCompleted"
        '
        'ColNameCompleted
        '
        resources.ApplyResources(Me.ColNameCompleted, "ColNameCompleted")
        Me.ColNameCompleted.FieldName = "Name"
+        Me.ColNameCompleted.MinWidth = 27
        Me.ColNameCompleted.Name = "ColNameCompleted"
        '
        'ColEmailCompleted
        '
        resources.ApplyResources(Me.ColEmailCompleted, "ColEmailCompleted")
        Me.ColEmailCompleted.FieldName = "EmailAddress"
+        Me.ColEmailCompleted.MinWidth = 27
        Me.ColEmailCompleted.Name = "ColEmailCompleted"
        '
        'ColSignedDateCompleted
        '
        resources.ApplyResources(Me.ColSignedDateCompleted, "ColSignedDateCompleted")
        Me.ColSignedDateCompleted.FieldName = "SignedDateDisplayValue"
+        Me.ColSignedDateCompleted.MinWidth = 27
        Me.ColSignedDateCompleted.Name = "ColSignedDateCompleted"
        '
        'ViewHistoryCompleted
        '
        Me.ViewHistoryCompleted.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColHistoryStatusCompleted, Me.ColHistoryUserReferenceCompleted, Me.ColHistoryDateCompleted})
+        Me.ViewHistoryCompleted.DetailHeight = 431
        Me.ViewHistoryCompleted.GridControl = Me.GridCompleted
        Me.ViewHistoryCompleted.Name = "ViewHistoryCompleted"
        Me.ViewHistoryCompleted.OptionsBehavior.Editable = False
@@ -660,12 +689,14 @@ Partial Class frmMain
        '
        resources.ApplyResources(Me.ColHistoryStatusCompleted, "ColHistoryStatusCompleted")
        Me.ColHistoryStatusCompleted.FieldName = "StatusTranslated"
+        Me.ColHistoryStatusCompleted.MinWidth = 27
        Me.ColHistoryStatusCompleted.Name = "ColHistoryStatusCompleted"
        '
        'ColHistoryUserReferenceCompleted
        '
        resources.ApplyResources(Me.ColHistoryUserReferenceCompleted, "ColHistoryUserReferenceCompleted")
        Me.ColHistoryUserReferenceCompleted.FieldName = "UserReference"
+        Me.ColHistoryUserReferenceCompleted.MinWidth = 27
        Me.ColHistoryUserReferenceCompleted.Name = "ColHistoryUserReferenceCompleted"
        '
        'ColHistoryDateCompleted
@@ -674,11 +705,13 @@ Partial Class frmMain
        Me.ColHistoryDateCompleted.DisplayFormat.FormatString = "G"
        Me.ColHistoryDateCompleted.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
        Me.ColHistoryDateCompleted.FieldName = "ActionDate"
+        Me.ColHistoryDateCompleted.MinWidth = 27
        Me.ColHistoryDateCompleted.Name = "ColHistoryDateCompleted"
        '
        'ViewCompleted
        '
        Me.ViewCompleted.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn3, Me.GridColumn6, Me.GridColumn4, Me.GridColumn5, Me.GridColumn7, Me.GridColumn1})
+        Me.ViewCompleted.DetailHeight = 431
        Me.ViewCompleted.GridControl = Me.GridCompleted
        Me.ViewCompleted.Name = "ViewCompleted"
        Me.ViewCompleted.OptionsBehavior.Editable = False
@@ -690,25 +723,28 @@ Partial Class frmMain
        '
        resources.ApplyResources(Me.GridColumn3, "GridColumn3")
        Me.GridColumn3.FieldName = "EnvelopeTypeTitle"
+        Me.GridColumn3.MinWidth = 27
        Me.GridColumn3.Name = "GridColumn3"
        '
        'GridColumn6
        '
        resources.ApplyResources(Me.GridColumn6, "GridColumn6")
        Me.GridColumn6.FieldName = "Comment"
-        Me.GridColumn6.MinWidth = 80
+        Me.GridColumn6.MinWidth = 107
        Me.GridColumn6.Name = "GridColumn6"
        '
        'GridColumn4
        '
        resources.ApplyResources(Me.GridColumn4, "GridColumn4")
        Me.GridColumn4.FieldName = "StatusTranslated"
+        Me.GridColumn4.MinWidth = 27
        Me.GridColumn4.Name = "GridColumn4"
        '
        'GridColumn5
        '
        resources.ApplyResources(Me.GridColumn5, "GridColumn5")
        Me.GridColumn5.FieldName = "Title"
+        Me.GridColumn5.MinWidth = 27
        Me.GridColumn5.Name = "GridColumn5"
        '
        'GridColumn7
@@ -717,6 +753,7 @@ Partial Class frmMain
        Me.GridColumn7.DisplayFormat.FormatString = "G"
        Me.GridColumn7.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
        Me.GridColumn7.FieldName = "AddedWhen"
+        Me.GridColumn7.MinWidth = 27
        Me.GridColumn7.Name = "GridColumn7"
        '
        'GridColumn1
@@ -725,14 +762,15 @@ Partial Class frmMain
        Me.GridColumn1.DisplayFormat.FormatString = "G"
        Me.GridColumn1.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
        Me.GridColumn1.FieldName = "ChangedWhen"
+        Me.GridColumn1.MinWidth = 27
        Me.GridColumn1.Name = "GridColumn1"
        '
        'XtraTabPageAdmin
        '
        Me.XtraTabPageAdmin.Controls.Add(Me.SplitContainerControl2)
        Me.XtraTabPageAdmin.Controls.Add(Me.PanelControl1)
-        Me.XtraTabPageAdmin.Name = "XtraTabPageAdmin"
        resources.ApplyResources(Me.XtraTabPageAdmin, "XtraTabPageAdmin")
+        Me.XtraTabPageAdmin.Name = "XtraTabPageAdmin"
        '
        'SplitContainerControl2
        '
@@ -747,11 +785,12 @@ Partial Class frmMain
        'SplitContainerControl2.Panel2
        '
        resources.ApplyResources(Me.SplitContainerControl2.Panel2, "SplitContainerControl2.Panel2")
-        Me.SplitContainerControl2.SplitterPosition = 907
+        Me.SplitContainerControl2.SplitterPosition = 1209
        '
        'GridControlData
        '
        resources.ApplyResources(Me.GridControlData, "GridControlData")
+        Me.GridControlData.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControlData.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
        Me.GridControlData.MainView = Me.GridViewData
        Me.GridControlData.MenuManager = Me.RibbonControl
        Me.GridControlData.Name = "GridControlData"
@@ -759,6 +798,7 @@ Partial Class frmMain
        '
        'GridViewData
        '
+        Me.GridViewData.DetailHeight = 431
        Me.GridViewData.GridControl = Me.GridControlData
        Me.GridViewData.Name = "GridViewData"
        Me.GridViewData.OptionsView.ShowAutoFilterRow = True
@@ -833,8 +873,8 @@ Partial Class frmMain
        Me.XtraTabPage3.Controls.Add(Me.Label1)
        Me.XtraTabPage3.Controls.Add(Me.Button1)
        Me.XtraTabPage3.Controls.Add(Me.txtEnvID)
-        Me.XtraTabPage3.Name = "XtraTabPage3"
        resources.ApplyResources(Me.XtraTabPage3, "XtraTabPage3")
+        Me.XtraTabPage3.Name = "XtraTabPage3"
        '
        'Label1
        '