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