small ui changes

This commit is contained in:
Jonathan Jenne
2023-11-02 16:38:44 +01:00
parent 9c63c3e7cc
commit b08f13a7fd
3 changed files with 61 additions and 10 deletions

View File

@@ -21,7 +21,7 @@ Partial Class frmMain
Private Sub InitializeComponent()
Dim SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager = New DevExpress.XtraSplashScreen.SplashScreenManager(Me, Nothing, True, True)
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.ViewReceivers = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ColEmail = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ColReceiverStatus = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -71,9 +71,9 @@ Partial Class frmMain
'GridEnvelopes
'
resources.ApplyResources(Me.GridEnvelopes, "GridEnvelopes")
GridLevelNode1.LevelTemplate = Me.ViewReceivers
GridLevelNode1.RelationName = "Receivers"
Me.GridEnvelopes.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
GridLevelNode2.LevelTemplate = Me.ViewReceivers
GridLevelNode2.RelationName = "Receivers"
Me.GridEnvelopes.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
Me.GridEnvelopes.MainView = Me.ViewEnvelopes
Me.GridEnvelopes.MenuManager = Me.RibbonControl
Me.GridEnvelopes.Name = "GridEnvelopes"
@@ -123,6 +123,7 @@ Partial Class frmMain
Me.RibbonControl.MaxItemId = 5
Me.RibbonControl.Name = "RibbonControl"
Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl.StatusBar = Me.RibbonStatusBar
'
'btnCreateEnvelope
@@ -173,6 +174,7 @@ Partial Class frmMain
Me.Controls.Add(Me.GridEnvelopes)
Me.Controls.Add(Me.RibbonStatusBar)
Me.Controls.Add(Me.RibbonControl)
Me.IconOptions.SvgImage = CType(resources.GetObject("frmMain.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.Name = "frmMain"
Me.Ribbon = Me.RibbonControl
Me.StatusBar = Me.RibbonStatusBar