From 83de375e7389953a6da00a779ee0237f58167380 Mon Sep 17 00:00:00 2001 From: MPitz Date: Thu, 6 Apr 2023 09:17:55 +0200 Subject: [PATCH] =?UTF-8?q?Buttons=20in=20RibbonNar=20f=C3=BCr=20Chartview?= =?UTF-8?q?s=20deaktivieren,=20da=20ohne=20Funktion?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- GUIs.Monitor/Forms/frmMonitor.vb | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/GUIs.Monitor/Forms/frmMonitor.vb b/GUIs.Monitor/Forms/frmMonitor.vb index bd63edf..b8fc52e 100644 --- a/GUIs.Monitor/Forms/frmMonitor.vb +++ b/GUIs.Monitor/Forms/frmMonitor.vb @@ -127,7 +127,6 @@ Public Class frmMonitor InitGrid() InitTreeList() - 'InitChartView() InitChartContainer() Dim oGrids As GridView() = New List(Of GridView) From {GridView1, GridView2, GridView3, GridView4}.ToArray @@ -400,7 +399,7 @@ Public Class frmMonitor Workspace.LoadWorkspace(oSearch.Id.ToString) - btnExportMain.Enabled = True + ActivateMenuBarButtons(oSearch.ReturnType) Dim oTotalTime = Now.Subtract(oStartTime) lbSearchTime.Caption = oTotalTime.ToString("mm':'ss") @@ -414,6 +413,19 @@ Public Class frmMonitor End Try End Function + Private Sub ActivateMenuBarButtons(pSearchType As ReturnTypeEnum) + Select Case pSearchType + Case ReturnTypeEnum.ChartView + btnExportMain.Enabled = False + BarButtonItem2.Enabled = False + btnResetLayout.Enabled = False + Case Else + btnExportMain.Enabled = True + BarButtonItem2.Enabled = True + btnResetLayout.Enabled = True + End Select + End Sub + Private Async Function GetChartSerie(pChartParameters As ChartParameter, pControls As List(Of Control)) As Threading.Tasks.Task(Of Series) Dim oSerie As Series @@ -522,6 +534,8 @@ Public Class frmMonitor TreeListResults.Dock = DockStyle.Fill ChartViewResultContainer.Visible = False ChartViewResultContainer.Dock = DockStyle.None + btnExportDetails.Enabled = True + btnExportMain.Enabled = True Case ReturnTypeEnum.ChartView GridControlResults.Visible = False @@ -530,6 +544,8 @@ Public Class frmMonitor TreeListResults.Dock = DockStyle.None ChartViewResultContainer.Visible = True ChartViewResultContainer.Dock = DockStyle.Fill + btnExportDetails.Enabled = False + btnExportMain.Enabled = False Case ReturnTypeEnum.Table GridControlResults.Visible = True @@ -538,6 +554,8 @@ Public Class frmMonitor TreeListResults.Dock = DockStyle.None ChartViewResultContainer.Visible = False ChartViewResultContainer.Dock = DockStyle.None + btnExportDetails.Enabled = True + btnExportMain.Enabled = True End Select End Sub