Monitor: first prototype

2021-05-26 14:45:14 +02:00
parent 826b1c41ec
commit 402f393e35
7 changed files with 143 additions and 29 deletions
--- a/GUIs.Monitor/frmMonitor.Designer.vb
+++ b/GUIs.Monitor/frmMonitor.Designer.vb
@@ -30,8 +30,10 @@ Partial Class frmMonitor
        Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
        Me.buttonSearch = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
@@ -74,6 +76,7 @@ Partial Class frmMonitor
        Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
        Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
        Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage()
+        Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components)
        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -125,9 +128,9 @@ Partial Class frmMonitor
        '
        Me.RibbonControl1.ApplicationButtonDropDownControl = Me.ApplicationMenu1
        Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch, Me.BarButtonItem1})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch, Me.BarButtonItem1, Me.BarButtonItem2})
        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 3
+        Me.RibbonControl1.MaxItemId = 5
        Me.RibbonControl1.Name = "RibbonControl1"
        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
        Me.RibbonControl1.ShowToolbarCustomizeItem = False
@@ -155,9 +158,17 @@ Partial Class frmMonitor
        Me.buttonSearch.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.gettingstarted
        Me.buttonSearch.Name = "buttonSearch"
        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "Export als XLSX"
+        Me.BarButtonItem2.Enabled = False
+        Me.BarButtonItem2.Id = 4
+        Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.export
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
        'RibbonPage1
        '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
        Me.RibbonPage1.Name = "RibbonPage1"
        Me.RibbonPage1.Text = "Start"
        '
@@ -167,6 +178,13 @@ Partial Class frmMonitor
        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
        Me.RibbonPageGroup1.Text = "Daten"
        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "Export"
+        '
        'RibbonStatusBar1
        '
        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 749)
@@ -375,7 +393,7 @@ Partial Class frmMonitor
        Me.GridControl1.MainView = Me.GridView1
        Me.GridControl1.MenuManager = Me.RibbonControl1
        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(0, 0)
+        Me.GridControl1.Size = New System.Drawing.Size(711, 350)
        Me.GridControl1.TabIndex = 0
        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
        '
@@ -390,7 +408,7 @@ Partial Class frmMonitor
        Me.TreeListResults.Location = New System.Drawing.Point(0, 0)
        Me.TreeListResults.MenuManager = Me.RibbonControl1
        Me.TreeListResults.Name = "TreeListResults"
-        Me.TreeListResults.Size = New System.Drawing.Size(713, 554)
+        Me.TreeListResults.Size = New System.Drawing.Size(713, 181)
        Me.TreeListResults.TabIndex = 4
        '
        'SvgImageCollection1
@@ -420,7 +438,6 @@ Partial Class frmMonitor
        '
        'SplitContainerControl3
        '
-        Me.SplitContainerControl3.Collapsed = True
        Me.SplitContainerControl3.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
        Me.SplitContainerControl3.Dock = System.Windows.Forms.DockStyle.Fill
        Me.SplitContainerControl3.Horizontal = False
@@ -440,7 +457,7 @@ Partial Class frmMonitor
        Me.XtraTabControl3.Location = New System.Drawing.Point(0, 0)
        Me.XtraTabControl3.Name = "XtraTabControl3"
        Me.XtraTabControl3.SelectedTabPage = Me.XtraTabPageSQL1
-        Me.XtraTabControl3.Size = New System.Drawing.Size(0, 0)
+        Me.XtraTabControl3.Size = New System.Drawing.Size(713, 373)
        Me.XtraTabControl3.TabIndex = 0
        Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageSQL1, Me.XtraTabPageSQL2, Me.XtraTabPageSQL3, Me.XtraTabPageSQL4})
        '
@@ -448,7 +465,7 @@ Partial Class frmMonitor
        '
        Me.XtraTabPageSQL1.Controls.Add(Me.GridControl2)
        Me.XtraTabPageSQL1.Name = "XtraTabPageSQL1"
-        Me.XtraTabPageSQL1.Size = New System.Drawing.Size(0, 0)
+        Me.XtraTabPageSQL1.Size = New System.Drawing.Size(711, 350)
        Me.XtraTabPageSQL1.Text = "SQL 1"
        '
        'GridControl2
@@ -458,7 +475,7 @@ Partial Class frmMonitor
        Me.GridControl2.MainView = Me.GridView2
        Me.GridControl2.MenuManager = Me.RibbonControl1
        Me.GridControl2.Name = "GridControl2"
-        Me.GridControl2.Size = New System.Drawing.Size(0, 0)
+        Me.GridControl2.Size = New System.Drawing.Size(711, 350)
        Me.GridControl2.TabIndex = 1
        Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
        '
@@ -471,7 +488,7 @@ Partial Class frmMonitor
        '
        Me.XtraTabPageSQL2.Controls.Add(Me.GridControl3)
        Me.XtraTabPageSQL2.Name = "XtraTabPageSQL2"
-        Me.XtraTabPageSQL2.Size = New System.Drawing.Size(0, 0)
+        Me.XtraTabPageSQL2.Size = New System.Drawing.Size(711, 350)
        Me.XtraTabPageSQL2.Text = "SQL 2"
        '
        'GridControl3
@@ -481,7 +498,7 @@ Partial Class frmMonitor
        Me.GridControl3.MainView = Me.GridView3
        Me.GridControl3.MenuManager = Me.RibbonControl1
        Me.GridControl3.Name = "GridControl3"
-        Me.GridControl3.Size = New System.Drawing.Size(0, 0)
+        Me.GridControl3.Size = New System.Drawing.Size(711, 350)
        Me.GridControl3.TabIndex = 1
        Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
        '
@@ -494,7 +511,7 @@ Partial Class frmMonitor
        '
        Me.XtraTabPageSQL3.Controls.Add(Me.GridControl4)
        Me.XtraTabPageSQL3.Name = "XtraTabPageSQL3"
-        Me.XtraTabPageSQL3.Size = New System.Drawing.Size(0, 0)
+        Me.XtraTabPageSQL3.Size = New System.Drawing.Size(711, 350)
        Me.XtraTabPageSQL3.Text = "SQL 3"
        '
        'GridControl4
@@ -504,7 +521,7 @@ Partial Class frmMonitor
        Me.GridControl4.MainView = Me.GridView4
        Me.GridControl4.MenuManager = Me.RibbonControl1
        Me.GridControl4.Name = "GridControl4"
-        Me.GridControl4.Size = New System.Drawing.Size(0, 0)
+        Me.GridControl4.Size = New System.Drawing.Size(711, 350)
        Me.GridControl4.TabIndex = 1
        Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4})
        '
@@ -517,7 +534,7 @@ Partial Class frmMonitor
        '
        Me.XtraTabPageSQL4.Controls.Add(Me.GridControl1)
        Me.XtraTabPageSQL4.Name = "XtraTabPageSQL4"
-        Me.XtraTabPageSQL4.Size = New System.Drawing.Size(0, 0)
+        Me.XtraTabPageSQL4.Size = New System.Drawing.Size(711, 350)
        Me.XtraTabPageSQL4.Text = "SQL 4"
        '
        'SplitContainerControl2
@@ -561,6 +578,10 @@ Partial Class frmMonitor
        Me.XtraTabPage4.Size = New System.Drawing.Size(1377, 564)
        Me.XtraTabPage4.Text = "Auswertungen"
        '
+        'XtraSaveFileDialog1
+        '
+        Me.XtraSaveFileDialog1.FileName = "XtraSaveFileDialog1"
+        '
        'frmMonitor
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -672,4 +693,7 @@ Partial Class frmMonitor
    Friend WithEvents SvgImageCollection1 As DevExpress.Utils.SvgImageCollection
    Friend WithEvents ApplicationMenu1 As DevExpress.XtraBars.Ribbon.ApplicationMenu
    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents XtraSaveFileDialog1 As DevExpress.XtraEditors.XtraSaveFileDialog
 End Class