2023-12-04

- Anpassungen Main Form
- Titel wird initial in das Subject geschrieben
This commit is contained in:
2023-12-04 11:56:47 +01:00
parent b8471389b9
commit 71ec7b4a51
4 changed files with 68 additions and 33 deletions

View File

@@ -27,8 +27,9 @@ Partial Class frmMain
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.GridEnvelopes = New DevExpress.XtraGrid.GridControl()
Me.ViewReceivers = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ColEmail = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColReceiverStatus = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColName = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColEmail = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ViewEnvelopes = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colContractType = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colStatus = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -109,26 +110,38 @@ Partial Class frmMain
Me.GridEnvelopes.MainView = Me.ViewEnvelopes
Me.GridEnvelopes.MenuManager = Me.RibbonControl
Me.GridEnvelopes.Name = "GridEnvelopes"
Me.GridEnvelopes.ShowOnlyPredefinedDetails = True
Me.GridEnvelopes.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.ViewReceivers, Me.ViewEnvelopes})
'
'ViewReceivers
'
Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColEmail, Me.ColReceiverStatus})
Me.ViewReceivers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.ColReceiverStatus, Me.ColName, Me.ColEmail})
Me.ViewReceivers.GridControl = Me.GridEnvelopes
Me.ViewReceivers.Name = "ViewReceivers"
Me.ViewReceivers.OptionsDetail.AllowZoomDetail = False
Me.ViewReceivers.OptionsView.ShowDetailButtons = False
Me.ViewReceivers.OptionsView.ShowGroupPanel = False
Me.ViewReceivers.OptionsView.ShowIndicator = False
resources.ApplyResources(Me.ViewReceivers, "ViewReceivers")
'
'ColEmail
'
resources.ApplyResources(Me.ColEmail, "ColEmail")
Me.ColEmail.FieldName = "Email"
Me.ColEmail.Name = "ColEmail"
'
'ColReceiverStatus
'
resources.ApplyResources(Me.ColReceiverStatus, "ColReceiverStatus")
Me.ColReceiverStatus.FieldName = "Status"
Me.ColReceiverStatus.Name = "ColReceiverStatus"
Me.ColReceiverStatus.OptionsColumn.AllowEdit = False
'
'ColName
'
resources.ApplyResources(Me.ColName, "ColName")
Me.ColName.FieldName = "Name"
Me.ColName.Name = "ColName"
'
'ColEmail
'
resources.ApplyResources(Me.ColEmail, "ColEmail")
Me.ColEmail.FieldName = "Email"
Me.ColEmail.Name = "ColEmail"
'
'ViewEnvelopes
'
@@ -327,4 +340,5 @@ Partial Class frmMain
Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ColName As DevExpress.XtraGrid.Columns.GridColumn
End Class