From 1951f7e48c6bc26833de7ef5ac365d5bb8291bba Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 19 Sep 2022 16:53:58 +0200 Subject: [PATCH] Show Version and Button to open Log Directory --- GUIs.Monitor/Monitor.vbproj | 3 + GUIs.Monitor/My Project/AssemblyInfo.vb | 2 +- GUIs.Monitor/My Project/Resources.Designer.vb | 30 ++++++++++ GUIs.Monitor/My Project/Resources.resx | 41 +++++++------ GUIs.Monitor/Resources/about.svg | 19 +++++++ GUIs.Monitor/Resources/about1.svg | 19 +++++++ GUIs.Monitor/Resources/logical.svg | 7 +++ GUIs.Monitor/frmMonitor.Designer.vb | 57 +++++++++++++------ GUIs.Monitor/frmMonitor.resx | 25 -------- GUIs.Monitor/frmMonitor.vb | 14 +++++ 10 files changed, 157 insertions(+), 60 deletions(-) create mode 100644 GUIs.Monitor/Resources/about.svg create mode 100644 GUIs.Monitor/Resources/about1.svg create mode 100644 GUIs.Monitor/Resources/logical.svg diff --git a/GUIs.Monitor/Monitor.vbproj b/GUIs.Monitor/Monitor.vbproj index 4d6b330..4706758 100644 --- a/GUIs.Monitor/Monitor.vbproj +++ b/GUIs.Monitor/Monitor.vbproj @@ -222,6 +222,9 @@ PreserveNewest + + + diff --git a/GUIs.Monitor/My Project/AssemblyInfo.vb b/GUIs.Monitor/My Project/AssemblyInfo.vb index b5a6371..7693869 100644 --- a/GUIs.Monitor/My Project/AssemblyInfo.vb +++ b/GUIs.Monitor/My Project/AssemblyInfo.vb @@ -33,4 +33,4 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' [assembly: AssemblyVersion("1.0.*")] - + diff --git a/GUIs.Monitor/My Project/Resources.Designer.vb b/GUIs.Monitor/My Project/Resources.Designer.vb index 5e5d785..4e196aa 100644 --- a/GUIs.Monitor/My Project/Resources.Designer.vb +++ b/GUIs.Monitor/My Project/Resources.Designer.vb @@ -60,6 +60,26 @@ Namespace My.Resources End Set End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property about() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("about", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property about1() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("about1", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' @@ -150,6 +170,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property logical() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("logical", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. ''' diff --git a/GUIs.Monitor/My Project/Resources.resx b/GUIs.Monitor/My Project/Resources.resx index 69d6cd7..ca75dcd 100644 --- a/GUIs.Monitor/My Project/Resources.resx +++ b/GUIs.Monitor/My Project/Resources.resx @@ -118,23 +118,32 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\actions_reload.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\bo_dashboard.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\exporttoxlsx.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\deletetable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\managedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + ..\Resources\about1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\exporttoxlsx1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\export.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\gettingstarted.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\managedatasource.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\movepivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\deletetable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\exporttoxlsx.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\charttype_line.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -142,13 +151,13 @@ ..\Resources\enablesearch.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\gettingstarted.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\actions_reload.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\bo_dashboard.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\export.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - ..\Resources\movepivottable.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\logical.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/GUIs.Monitor/Resources/about.svg b/GUIs.Monitor/Resources/about.svg new file mode 100644 index 0000000..1f67213 --- /dev/null +++ b/GUIs.Monitor/Resources/about.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/Resources/about1.svg b/GUIs.Monitor/Resources/about1.svg new file mode 100644 index 0000000..1f67213 --- /dev/null +++ b/GUIs.Monitor/Resources/about1.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/Resources/logical.svg b/GUIs.Monitor/Resources/logical.svg new file mode 100644 index 0000000..77a949b --- /dev/null +++ b/GUIs.Monitor/Resources/logical.svg @@ -0,0 +1,7 @@ + + + + + \ No newline at end of file diff --git a/GUIs.Monitor/frmMonitor.Designer.vb b/GUIs.Monitor/frmMonitor.Designer.vb index 21c16e7..887fc30 100644 --- a/GUIs.Monitor/frmMonitor.Designer.vb +++ b/GUIs.Monitor/frmMonitor.Designer.vb @@ -23,11 +23,11 @@ Partial Class frmMonitor _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMonitor)) Dim PushTransition1 As DevExpress.Utils.Animation.PushTransition = New DevExpress.Utils.Animation.PushTransition() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() Me.buttonSearch = New DevExpress.XtraBars.BarButtonItem() Me.btnExportDetails = New DevExpress.XtraBars.BarButtonItem() Me.btnExportMain = New DevExpress.XtraBars.BarButtonItem() @@ -35,6 +35,7 @@ Partial Class frmMonitor Me.btnReloadSearches = New DevExpress.XtraBars.BarButtonItem() Me.btnResetLayout = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.lbVersion = New DevExpress.XtraBars.BarStaticItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -142,9 +143,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.btnExportDetails, Me.btnExportMain, Me.lbResultCount, Me.btnReloadSearches, Me.btnResetLayout, Me.BarButtonItem2}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.buttonSearch, Me.BarButtonItem1, Me.btnExportDetails, Me.btnExportMain, Me.lbResultCount, Me.btnReloadSearches, Me.btnResetLayout, Me.BarButtonItem2, Me.lbVersion, Me.BarButtonItem3}) Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) - Me.RibbonControl1.MaxItemId = 10 + Me.RibbonControl1.MaxItemId = 12 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.ShowToolbarCustomizeItem = False @@ -155,6 +156,7 @@ Partial Class frmMonitor 'ApplicationMenu1 ' Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem1) + Me.ApplicationMenu1.ItemLinks.Add(Me.BarButtonItem3) Me.ApplicationMenu1.Name = "ApplicationMenu1" Me.ApplicationMenu1.Ribbon = Me.RibbonControl1 ' @@ -165,6 +167,13 @@ Partial Class frmMonitor Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.managedatasource Me.BarButtonItem1.Name = "BarButtonItem1" ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Log Verzeichnis öffnen" + Me.BarButtonItem3.Id = 11 + Me.BarButtonItem3.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.logical + Me.BarButtonItem3.Name = "BarButtonItem3" + ' 'buttonSearch ' Me.buttonSearch.Caption = "Suche ausführen (F5)" @@ -193,8 +202,7 @@ Partial Class frmMonitor ' Me.lbResultCount.Caption = "Ergebnisse: {0}" Me.lbResultCount.Id = 6 - Me.lbResultCount.ImageOptions.Image = CType(resources.GetObject("lbResultCount.ImageOptions.Image"), System.Drawing.Image) - Me.lbResultCount.ImageOptions.LargeImage = CType(resources.GetObject("lbResultCount.ImageOptions.LargeImage"), System.Drawing.Image) + Me.lbResultCount.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.about1 Me.lbResultCount.Name = "lbResultCount" Me.lbResultCount.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph Me.lbResultCount.Tag = "Ergebnisse: {0}" @@ -220,6 +228,16 @@ Partial Class frmMonitor Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.movepivottable Me.BarButtonItem2.Name = "BarButtonItem2" ' + 'lbVersion + ' + Me.lbVersion.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right + Me.lbVersion.Caption = "Version: {0}" + Me.lbVersion.Id = 10 + Me.lbVersion.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.about + Me.lbVersion.Name = "lbVersion" + Me.lbVersion.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + Me.lbVersion.Tag = "Version: {0}" + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3, Me.RibbonPageGroup2, Me.RibbonPageGroup4}) @@ -258,6 +276,7 @@ Partial Class frmMonitor 'RibbonStatusBar1 ' Me.RibbonStatusBar1.ItemLinks.Add(Me.lbResultCount) + Me.RibbonStatusBar1.ItemLinks.Add(Me.lbVersion) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 749) Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 @@ -298,7 +317,7 @@ Partial Class frmMonitor ' Me.XtraTabPageFile2.Controls.Add(Me.DocumentViewer2) Me.XtraTabPageFile2.Name = "XtraTabPageFile2" - Me.XtraTabPageFile2.Size = New System.Drawing.Size(388, 562) + Me.XtraTabPageFile2.Size = New System.Drawing.Size(388, 564) Me.XtraTabPageFile2.Text = "File 2" ' 'DocumentViewer2 @@ -307,14 +326,14 @@ Partial Class frmMonitor Me.DocumentViewer2.FileLoaded = False Me.DocumentViewer2.Location = New System.Drawing.Point(0, 0) Me.DocumentViewer2.Name = "DocumentViewer2" - Me.DocumentViewer2.Size = New System.Drawing.Size(388, 562) + Me.DocumentViewer2.Size = New System.Drawing.Size(388, 564) Me.DocumentViewer2.TabIndex = 1 ' 'XtraTabPageHtml1 ' Me.XtraTabPageHtml1.Controls.Add(Me.RichEditControl1) Me.XtraTabPageHtml1.Name = "XtraTabPageHtml1" - Me.XtraTabPageHtml1.Size = New System.Drawing.Size(388, 562) + Me.XtraTabPageHtml1.Size = New System.Drawing.Size(388, 564) Me.XtraTabPageHtml1.Text = "HTML 1" ' 'RichEditControl1 @@ -327,14 +346,14 @@ Partial Class frmMonitor Me.RichEditControl1.Name = "RichEditControl1" Me.RichEditControl1.Options.HorizontalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden Me.RichEditControl1.Options.VerticalRuler.Visibility = DevExpress.XtraRichEdit.RichEditRulerVisibility.Hidden - Me.RichEditControl1.Size = New System.Drawing.Size(388, 562) + Me.RichEditControl1.Size = New System.Drawing.Size(388, 564) Me.RichEditControl1.TabIndex = 0 ' 'XtraTabPageHtml2 ' Me.XtraTabPageHtml2.Controls.Add(Me.RichEditControl2) Me.XtraTabPageHtml2.Name = "XtraTabPageHtml2" - Me.XtraTabPageHtml2.Size = New System.Drawing.Size(388, 562) + Me.XtraTabPageHtml2.Size = New System.Drawing.Size(388, 564) Me.XtraTabPageHtml2.Text = "HTML 2" ' 'RichEditControl2 @@ -345,7 +364,7 @@ Partial Class frmMonitor Me.RichEditControl2.Location = New System.Drawing.Point(0, 0) Me.RichEditControl2.MenuManager = Me.RibbonControl1 Me.RichEditControl2.Name = "RichEditControl2" - Me.RichEditControl2.Size = New System.Drawing.Size(388, 562) + Me.RichEditControl2.Size = New System.Drawing.Size(388, 564) Me.RichEditControl2.TabIndex = 1 ' 'GridControl1 @@ -355,7 +374,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(730, 371) + Me.GridControl1.Size = New System.Drawing.Size(730, 373) Me.GridControl1.TabIndex = 0 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' @@ -541,7 +560,7 @@ Partial Class frmMonitor ' Me.XtraTabPageSQL2.Controls.Add(Me.GridControl3) Me.XtraTabPageSQL2.Name = "XtraTabPageSQL2" - Me.XtraTabPageSQL2.Size = New System.Drawing.Size(730, 371) + Me.XtraTabPageSQL2.Size = New System.Drawing.Size(730, 373) Me.XtraTabPageSQL2.Text = "SQL 2" ' 'GridControl3 @@ -551,7 +570,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(730, 371) + Me.GridControl3.Size = New System.Drawing.Size(730, 373) Me.GridControl3.TabIndex = 1 Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) ' @@ -564,7 +583,7 @@ Partial Class frmMonitor ' Me.XtraTabPageSQL3.Controls.Add(Me.GridControl4) Me.XtraTabPageSQL3.Name = "XtraTabPageSQL3" - Me.XtraTabPageSQL3.Size = New System.Drawing.Size(730, 371) + Me.XtraTabPageSQL3.Size = New System.Drawing.Size(730, 373) Me.XtraTabPageSQL3.Text = "SQL 3" ' 'GridControl4 @@ -574,7 +593,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(730, 371) + Me.GridControl4.Size = New System.Drawing.Size(730, 373) Me.GridControl4.TabIndex = 1 Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4}) ' @@ -587,7 +606,7 @@ Partial Class frmMonitor ' Me.XtraTabPageSQL4.Controls.Add(Me.GridControl1) Me.XtraTabPageSQL4.Name = "XtraTabPageSQL4" - Me.XtraTabPageSQL4.Size = New System.Drawing.Size(730, 371) + Me.XtraTabPageSQL4.Size = New System.Drawing.Size(730, 373) Me.XtraTabPageSQL4.Text = "SQL 4" ' 'SplitContainerFileHTML @@ -635,7 +654,7 @@ Partial Class frmMonitor Me.XtraTabPage4.ImageOptions.SvgImage = Global.DigitalData.GUIs.Monitor.My.Resources.Resources.bo_dashboard Me.XtraTabPage4.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16) Me.XtraTabPage4.Name = "XtraTabPage4" - Me.XtraTabPage4.Size = New System.Drawing.Size(1377, 585) + Me.XtraTabPage4.Size = New System.Drawing.Size(1377, 587) Me.XtraTabPage4.Text = "Dashboard" ' 'XtraSaveFileDialog1 @@ -786,4 +805,6 @@ Partial Class frmMonitor Friend WithEvents SplashScreenManager1 As DevExpress.XtraSplashScreen.SplashScreenManager Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents lbVersion As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/GUIs.Monitor/frmMonitor.resx b/GUIs.Monitor/frmMonitor.resx index 7a8a48b..b56eef0 100644 --- a/GUIs.Monitor/frmMonitor.resx +++ b/GUIs.Monitor/frmMonitor.resx @@ -120,31 +120,6 @@ 362, 17 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAx0RVh0VGl0 - bGUAQWJvdXQ7VURnGwAAANVJREFUOE+l080JwkAQhuGcFMVSFISA2IRN2YCe/AEhKSMH8aYtCCpiFYqi - xvcLRnaXNSHk8Bycmf1MdCcYjRNXiCVOeOGGI1YYwJo3PzShg2+kBSK0YAU0sIHvgM8WbfwC5vANFomR - BXShd/UN5V/g68lQzalTrCJWwN4pmsqe4Kzm3SmaygIedQNSNeu8wkXNiVM0lQVEaupvfBpFU1GAbmyY - D8y+xSq0G9ZVXsM36LODdZVFC7LAv1sp6mmZOsjOmQG5HrQbWmH9NlccoEfuw5hNgg/Z80GQgwIqzwAA - AABJRU5ErkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAx0RVh0VGl0 - bGUAQWJvdXQ7VURnGwAAAcVJREFUWEfF1r1KQ0EQhuHcRFQQLERQwSsRLC3EzkqEgJUgVka8BsHCUhCE - CKJY2Sh4CVrYWAoG/xAUf47vhJNwdmbYZIM5Fk+xk5n5lhNNUsmy7F+5xTK5xTK5xTKZwlz9LGYMazjB - HZ7xiFscoYZheLMtOs8UvCFI8D6+kHXxgV0MwezSeabgDC3iFV5YzANmEezTeaagBtbhLe+VPLEldHbq - PFMoNMugtzSVXKLzJHSeKeSNE3iDt7Af8nZUYfJMQZrQgLdIa/d7r2k7MHmmQNMkfvKhblIuIP8dVZ0X - HARNm4Whv7as84KDoOlSDcWkPAFxqPOCg6BJPt28YU/qBa51XnAQzlBM6gWaOi84CGcoZiAXGORbcKPz - goOg6UoNxaReoKHzgoOgaVsNxaReoKbzgoOgaUYNxaRc4BMjOi84CJrEaT7UTcoF9mDyTEGaMA356PQW - 9eMJozB5piBNOfl55S1LJd8r82jt1Xmm0G7MbcFb2isJX0Vnp84zhWJzbgXv8AJiXrCAYJ/OMwU9kJvC - MXr5mv7GAeSHrNml80zBGyqQP846LtBEO/Qe59jAOLzZFp1nCmVzi2Vyi2Vyi+XJKr8GCFc7LgN6FwAA - AABJRU5ErkJggg== - - 196, 17 diff --git a/GUIs.Monitor/frmMonitor.vb b/GUIs.Monitor/frmMonitor.vb index b1aa447..0d7b661 100644 --- a/GUIs.Monitor/frmMonitor.vb +++ b/GUIs.Monitor/frmMonitor.vb @@ -144,6 +144,8 @@ Public Class frmMonitor SplitContainerFileHTML.Collapsed = True SetResultCount(0) + SetVersion() + Catch ex As Exception FormHelper.ShowErrorMessage(ex, "frmStart_Load") @@ -813,6 +815,10 @@ Public Class frmMonitor lbResultCount.Caption = String.Format(lbResultCount.Tag, pResults) End Sub + Private Sub SetVersion() + lbVersion.Caption = String.Format(lbVersion.Tag, System.Reflection.Assembly.GetEntryAssembly().GetName().Version) + End Sub + Private Sub InitGrid() GridControlResults = GridLoader.InitGrid() GridViewResults = DirectCast(GridControlResults.DefaultView, GridView) @@ -845,5 +851,13 @@ Public Class frmMonitor Workspace.SaveWorkspace(ActiveSearch.Id.ToString) End Sub + + Private Sub BarButtonItem3_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + Try + Process.Start(LogConfig.LogDirectory) + Catch ex As Exception + FormHelper.ShowErrorMessage(ex, "Log Verzeichnis öffnen") + End Try + End Sub End Class