Improve Base Form Properties, Improve PanelManager

EDMI_ClientSuite/Panels/BasePanel.vb

@@ -1,3 +1,4 @@
 Public Class BasePanel
 
+    Public Property Caption As String
 End Class

EDMI_ClientSuite/Panels/DocumentPanel.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class DocumentPanel
-    Inherits System.Windows.Forms.UserControl
+    Inherits BasePanel
 
     'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()> _
@@ -22,40 +22,40 @@ Partial Class DocumentPanel
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewMain = New DevExpress.XtraGrid.Views.Grid.GridView()
+        CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewMain, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'GridControl1
+        'GridControlMain
         '
-        Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.GridControl1.Location = New System.Drawing.Point(0, 0)
-        Me.GridControl1.MainView = Me.GridView1
-        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(1027, 383)
-        Me.GridControl1.TabIndex = 0
-        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        Me.GridControlMain.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControlMain.Location = New System.Drawing.Point(0, 0)
+        Me.GridControlMain.MainView = Me.GridViewMain
+        Me.GridControlMain.Name = "GridControlMain"
+        Me.GridControlMain.Size = New System.Drawing.Size(1027, 383)
+        Me.GridControlMain.TabIndex = 0
+        Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewMain})
         '
-        'GridView1
+        'GridViewMain
         '
-        Me.GridView1.GridControl = Me.GridControl1
-        Me.GridView1.Name = "GridView1"
+        Me.GridViewMain.GridControl = Me.GridControlMain
+        Me.GridViewMain.Name = "GridViewMain"
         '
         'DocumentPanel
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.GridControl1)
+        Me.Controls.Add(Me.GridControlMain)
         Me.Name = "DocumentPanel"
         Me.Size = New System.Drawing.Size(1027, 383)
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewMain, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
 
-    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridControlMain As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewMain As DevExpress.XtraGrid.Views.Grid.GridView
 End Class

EDMI_ClientSuite/Panels/DocumentPanel.vb

@@ -1,12 +1,26 @@
 Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DigitalData.GUIs.ClientSuite
 
 Public Class DocumentPanel
     Inherits BasePanel
 
+    Public WriteOnly Property Datasource As DataTable
+        Set(value As DataTable)
+            GridControlMain.DataSource = value
+        End Set
+    End Property
+
     Private Sub DocumentPanel_Load(sender As Object, e As EventArgs) Handles Me.Load
         Dim oGridPatcher As New ClassControlPatcher(Of GridControl)(Me)
         oGridPatcher.
             ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
             ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings)
     End Sub
+
+    Private Sub GridViewMain_RowClick(sender As Object, e As RowClickEventArgs) Handles GridViewMain.RowClick
+        If e.Button = MouseButtons.Left And e.Clicks = 2 Then
+            MsgBox("Open Preview")
+        End If
+    End Sub
 End Class

EDMI_ClientSuite/Panels/IPanel.vb

@@ -1,3 +0,0 @@
-Public Interface IPanel
-    ReadOnly Property PanelName As String
-End Interface

EDMI_ClientSuite/Panels/PanelInfo.vb

@@ -1,7 +1,26 @@
 Imports DevExpress.XtraBars.Docking
 
 Public Class PanelInfo
-    Public Caption As String
-    Public InnerControl As BasePanel
-    Public Position As DockingStyle
-End Class
+    Public ReadOnly Title As String
+    Public ReadOnly PanelControl As BasePanel
+    Public ReadOnly Position As DockingStyle
+    Public ReadOnly Datasource As DataTable
+
+    Public CanBeClosed As Boolean = True
+    Public CanBePinned As Boolean = True
+    Public CanBeUndocked As Boolean = True
+    Public CanBeMaximized As Boolean = True
+
+    Public Sub New(PanelControl As BasePanel, Position As DockingStyle)
+        Me.Title = PanelControl.Caption
+        Me.PanelControl = PanelControl
+        Me.Position = Position
+    End Sub
+
+    Public Sub New(PanelControl As BasePanel, Position As DockingStyle, Datasource As DataTable)
+        Me.Title = PanelControl.Caption
+        Me.PanelControl = PanelControl
+        Me.Position = Position
+        Me.Datasource = Datasource
+    End Sub
+End Class