AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add TreeListDefaults, Rename GridListDefaults

Browse Source
This commit is contained in:
Jonathan Jenne 2019-03-06 15:23:23 +01:00
parent 4447844b9f
commit 6de1c6f630
9 changed files with 96 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
EDMI_ClientSuite/ClientSuite.vbproj
View File

@ -129,7 +129,8 @@
<Compile Include="ClassTimer.vb" />
<Compile Include="ClassUIConfig.vb" />
<Compile Include="ClassUtils.vb" />
<Compile Include="ControlDefaults\ClassGridControl.vb" />
<Compile Include="ControlDefaults\GridControlDefaults.vb" />
<Compile Include="ControlDefaults\TreeListDefaults.vb" />
<Compile Include="DockManagerTest.Designer.vb">
<DependentUpon>DockManagerTest.vb</DependentUpon>
</Compile>

2
EDMI_ClientSuite/ControlDefaults/ClassGridControl.vb → EDMI_ClientSuite/ControlDefaults/GridControlDefaults.vb
View File

@ -1,7 +1,7 @@
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid
Public Class ClassGridControl
Public Class GridControlDefaults
Public Shared Sub DefaultGridSettings(grid As GridControl, Container As Control)
For Each oView In grid.Views
If TypeOf oView Is GridView Then

29
EDMI_ClientSuite/ControlDefaults/TreeListDefaults.vb Normal file
View File

@ -0,0 +1,29 @@
Imports DevExpress.XtraTreeList
Public Class TreeListDefaults
Public Shared Sub DefaultTreeListSettings(TreeList As TreeList, Container As Control)
With TreeList.OptionsView
.FocusRectStyle = DrawFocusRectStyle.None
.ShowColumns = False
.ShowHorzLines = False
.ShowIndentAsRowStyle = True
.ShowIndicator = False
.ShowVertLines = False
End With
With TreeList.OptionsSelection
.EnableAppearanceFocusedCell = False
End With
With TreeList.Appearance.Empty
.BackColor = Color.Transparent
.Options.UseBackColor = True
End With
With TreeList.Appearance.Row
.BackColor = Color.Transparent
.Options.UseBackColor = True
End With
End Sub
End Class

8
EDMI_ClientSuite/FormUserManager/UserControlAssignment.vb
View File

@ -35,10 +35,10 @@ Public Class UserControlAssignment
' Load grid customizations
Dim oGridPatcher = New ClassControlPatcher(Of GridControl)(Me)
oGridPatcher.
ProcessContainer(AddressOf ClassGridControl.DefaultGridSettings).
ProcessContainer(AddressOf ClassGridControl.ReadOnlyGridSettings).
ProcessControl(AddressOf ClassGridControl.CheckboxSelectGridSettings, GridNotAssignedToParent).
ProcessControl(AddressOf ClassGridControl.CheckboxSelectGridSettings, GridAssignedToParent)
ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings).
ProcessControl(AddressOf GridControlDefaults.CheckboxSelectGridSettings, GridNotAssignedToParent).
ProcessControl(AddressOf GridControlDefaults.CheckboxSelectGridSettings, GridAssignedToParent)
' Load view layouts
Try

4
EDMI_ClientSuite/Widgets/ProcessManagerWidget.vb
View File

@ -8,8 +8,8 @@ Public Class ProcessManagerWidget
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Dim oGridPatcher = New ClassControlPatcher(Of GridControl)(Me)
oGridPatcher.
ProcessContainer(AddressOf ClassGridControl.DefaultGridSettings).
ProcessContainer(AddressOf ClassGridControl.ReadOnlyGridSettings)
ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings)
End Sub

4
EDMI_ClientSuite/frmDocTest.vb
View File

@ -7,8 +7,8 @@ Public Class frmDocTest
Try
Dim oControlPatcher = New ClassControlPatcher(Of GridControl)(Me)
oControlPatcher.
ProcessContainer(AddressOf ClassGridControl.DefaultGridSettings).
ProcessContainer(AddressOf ClassGridControl.ReadOnlyGridSettings)
ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings)
_CommonCommands = New ClassCommonCommands(My.LogConfig)

92
EDMI_ClientSuite/frmInbox.Designer.vb generated
View File

@ -25,18 +25,18 @@ Partial Class frmInbox
Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
Me.NavBarGroup1 = New DevExpress.XtraNavBar.NavBarGroup()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.NavBarGroupControlContainer1 = New DevExpress.XtraNavBar.NavBarGroupControlContainer()
Me.TreeList1 = New DevExpress.XtraTreeList.TreeList()
Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.NavBarControl1.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.NavBarGroupControlContainer1.SuspendLayout()
CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl
@ -93,6 +93,49 @@ Partial Class frmInbox
Me.NavBarGroup1.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.ControlContainer
Me.NavBarGroup1.Name = "NavBarGroup1"
'
'NavBarGroupControlContainer1
'
Me.NavBarGroupControlContainer1.Appearance.BackColor = System.Drawing.SystemColors.Control
Me.NavBarGroupControlContainer1.Appearance.Options.UseBackColor = True
Me.NavBarGroupControlContainer1.Controls.Add(Me.TreeList1)
Me.NavBarGroupControlContainer1.Name = "NavBarGroupControlContainer1"
Me.NavBarGroupControlContainer1.Size = New System.Drawing.Size(250, 403)
Me.NavBarGroupControlContainer1.TabIndex = 0
'
'TreeList1
'
Me.TreeList1.Appearance.Empty.Options.UseBackColor = True
Me.TreeList1.Appearance.Row.BackColor = System.Drawing.Color.Transparent
Me.TreeList1.Appearance.Row.Options.UseBackColor = True
Me.TreeList1.Appearance.SelectedRow.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TreeList1.Appearance.SelectedRow.Options.UseFont = True
Me.TreeList1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.TreeList1.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.TreeListColumn1})
Me.TreeList1.Cursor = System.Windows.Forms.Cursors.Default
Me.TreeList1.CustomizationFormBounds = New System.Drawing.Rectangle(-252, 456, 252, 236)
Me.TreeList1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeList1.Location = New System.Drawing.Point(0, 0)
Me.TreeList1.Name = "TreeList1"
Me.TreeList1.BeginUnboundLoad()
Me.TreeList1.AppendNode(New Object() {"Todos"}, -1)
Me.TreeList1.AppendNode(New Object() {"Validierungen"}, 0)
Me.TreeList1.EndUnboundLoad()
Me.TreeList1.OptionsBehavior.Editable = False
Me.TreeList1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.TreeList1.OptionsView.FocusRectStyle = DevExpress.XtraTreeList.DrawFocusRectStyle.None
Me.TreeList1.OptionsView.ShowIndentAsRowStyle = True
Me.TreeList1.Size = New System.Drawing.Size(250, 403)
Me.TreeList1.TabIndex = 0
Me.TreeList1.ViewStyle = DevExpress.XtraTreeList.TreeListViewStyle.TreeView
'
'TreeListColumn1
'
Me.TreeListColumn1.Caption = "TreeListColumn1"
Me.TreeListColumn1.FieldName = "TreeListColumn1"
Me.TreeListColumn1.Name = "TreeListColumn1"
Me.TreeListColumn1.Visible = True
Me.TreeListColumn1.VisibleIndex = 0
'
'GridControl1
'
Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
@ -109,43 +152,6 @@ Partial Class frmInbox
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
'
'NavBarGroupControlContainer1
'
Me.NavBarGroupControlContainer1.Appearance.BackColor = System.Drawing.SystemColors.Control
Me.NavBarGroupControlContainer1.Appearance.Options.UseBackColor = True
Me.NavBarGroupControlContainer1.Controls.Add(Me.TreeList1)
Me.NavBarGroupControlContainer1.Name = "NavBarGroupControlContainer1"
Me.NavBarGroupControlContainer1.Size = New System.Drawing.Size(250, 403)
Me.NavBarGroupControlContainer1.TabIndex = 0
'
'TreeList1
'
Me.TreeList1.Columns.AddRange(New DevExpress.XtraTreeList.Columns.TreeListColumn() {Me.TreeListColumn1})
Me.TreeList1.Cursor = System.Windows.Forms.Cursors.Default
Me.TreeList1.CustomizationFormBounds = New System.Drawing.Rectangle(-252, 456, 252, 236)
Me.TreeList1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TreeList1.Location = New System.Drawing.Point(0, 0)
Me.TreeList1.Name = "TreeList1"
Me.TreeList1.BeginUnboundLoad()
Me.TreeList1.AppendNode(New Object() {"Todos"}, -1)
Me.TreeList1.AppendNode(New Object() {"Validierungen"}, 0)
Me.TreeList1.EndUnboundLoad()
Me.TreeList1.OptionsView.ShowFirstLines = True
Me.TreeList1.OptionsView.ShowHorzLines = True
Me.TreeList1.OptionsView.ShowIndicator = True
Me.TreeList1.OptionsView.ShowVertLines = True
Me.TreeList1.Size = New System.Drawing.Size(250, 403)
Me.TreeList1.TabIndex = 0
Me.TreeList1.ViewStyle = DevExpress.XtraTreeList.TreeListViewStyle.TreeView
'
'TreeListColumn1
'
Me.TreeListColumn1.Caption = "TreeListColumn1"
Me.TreeListColumn1.FieldName = "TreeListColumn1"
Me.TreeListColumn1.Name = "TreeListColumn1"
Me.TreeListColumn1.Visible = True
Me.TreeListColumn1.VisibleIndex = 0
'
'frmInbox
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -162,10 +168,10 @@ Partial Class frmInbox
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.NavBarControl1.ResumeLayout(False)
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.NavBarGroupControlContainer1.ResumeLayout(False)
CType(Me.TreeList1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()

6
EDMI_ClientSuite/frmInbox.vb
View File

@ -1,8 +1,12 @@
Public Class frmInbox
Imports DevExpress.XtraTreeList
Public Class frmInbox
Private Sub frmInbox_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim oCommonCommands As New ClassCommonCommands(My.LogConfig)
Dim oControlPatcher As New ClassControlPatcher(Of TreeList)(Me)
oControlPatcher.ProcessContainer(AddressOf TreeListDefaults.DefaultTreeListSettings)
Dim oSQL As String = "SELECT * FROM VWICM_DOC_METADATA_DE;"

4
EDMI_ClientSuite/frmObjectEditor.vb
View File

@ -40,8 +40,8 @@ Public Class frmObjectEditor
Try
Dim oGridPatcher = New ClassControlPatcher(Of GridControl)(Me)
oGridPatcher.
ProcessContainer(AddressOf ClassGridControl.DefaultGridSettings).
ProcessContainer(AddressOf ClassGridControl.ReadOnlyGridSettings)
ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings)
labelParentAttributeId.Caption = $"Attribut-ID: {_AttributeId}"
labelSyskey.Caption = $"Syskey: {_Syskey}"