diff --git a/app/DD_PM_WINDREAM/frmInvDashboard.vb b/app/DD_PM_WINDREAM/frmInvDashboard.vb index b7aebdc..f06326f 100644 --- a/app/DD_PM_WINDREAM/frmInvDashboard.vb +++ b/app/DD_PM_WINDREAM/frmInvDashboard.vb @@ -2,11 +2,18 @@ Imports System.IO Imports DevExpress.XtraCharts Imports DevExpress.XtraGrid.Views.Tile +Imports DigitalData.GUIs.Common Public Class frmInvDashboard Private _selectedChart As ChartControl Private Sub frmInvDashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try + Dim oGridBuilder As New GridBuilder(GridView1) + oGridBuilder. + WithDefaults(). + WithReadOnlyOptions(). + WithClipboardHandler() + Try VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Connection.ConnectionString = CONNECTION_STRING_ECM Me.VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIES) diff --git a/app/DD_PM_WINDREAM/frmMonitor.vb b/app/DD_PM_WINDREAM/frmMonitor.vb index 660014a..b0957e7 100644 --- a/app/DD_PM_WINDREAM/frmMonitor.vb +++ b/app/DD_PM_WINDREAM/frmMonitor.vb @@ -2,7 +2,9 @@ Imports System.IO Imports DevExpress.Utils Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraPrinting +Imports DigitalData.GUIs.Common Public Class frmMonitor Dim DT_MONITOR_KONFIG As DataTable @@ -13,6 +15,8 @@ Public Class frmMonitor Dim GRID3_SQL As String Dim GRID4_TITLE As String Dim GRID4_SQL As String + + Private _GridBuilder As GridBuilder Private _ActiveGrid As GridControl = Nothing ' Private _frmDocView As frmDocView 'You need a reference to Form1 Dim FormShown As Boolean = False @@ -152,6 +156,16 @@ Public Class frmMonitor Private Async Sub frmMonitor_Load(sender As Object, e As EventArgs) Handles Me.Load SplitContainerControlMain.Collapsed = True + Dim _GridList As New List(Of GridView) From { + GridView1, + GridView2, + GridView3, + GridView4 + } + _GridBuilder = New GridBuilder(_GridList). + WithReadOnlyOptions(). + WithClipboardHandler() + GridView1.ShowLoadingPanel() Await Load_Grid_Data() GridView1.HideLoadingPanel()