move clientsuite to GUIs.ClientSuite folder
This commit is contained in:
26
GUIs.ClientSuite/Panels/PanelInfo.vb
Normal file
26
GUIs.ClientSuite/Panels/PanelInfo.vb
Normal file
@@ -0,0 +1,26 @@
|
||||
Imports DevExpress.XtraBars.Docking
|
||||
|
||||
Public Class PanelInfo
|
||||
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
|
||||
Reference in New Issue
Block a user