From 6de1c6f630d43f8d09980ed890b2eb87dc8cbb0d Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 6 Mar 2019 15:23:23 +0100 Subject: [PATCH] Add TreeListDefaults, Rename GridListDefaults --- EDMI_ClientSuite/ClientSuite.vbproj | 3 +- ...sGridControl.vb => GridControlDefaults.vb} | 2 +- .../ControlDefaults/TreeListDefaults.vb | 29 ++++++++++ .../FormUserManager/UserControlAssignment.vb | 8 +-- .../Widgets/ProcessManagerWidget.vb | 4 +- EDMI_ClientSuite/frmDocTest.vb | 4 +- EDMI_ClientSuite/frmInbox.Designer.vb | 58 ++++++++++--------- EDMI_ClientSuite/frmInbox.vb | 6 +- EDMI_ClientSuite/frmObjectEditor.vb | 4 +- 9 files changed, 79 insertions(+), 39 deletions(-) rename EDMI_ClientSuite/ControlDefaults/{ClassGridControl.vb => GridControlDefaults.vb} (98%) create mode 100644 EDMI_ClientSuite/ControlDefaults/TreeListDefaults.vb diff --git a/EDMI_ClientSuite/ClientSuite.vbproj b/EDMI_ClientSuite/ClientSuite.vbproj index b7a28bb7..5222acff 100644 --- a/EDMI_ClientSuite/ClientSuite.vbproj +++ b/EDMI_ClientSuite/ClientSuite.vbproj @@ -129,7 +129,8 @@ - + + DockManagerTest.vb diff --git a/EDMI_ClientSuite/ControlDefaults/ClassGridControl.vb b/EDMI_ClientSuite/ControlDefaults/GridControlDefaults.vb similarity index 98% rename from EDMI_ClientSuite/ControlDefaults/ClassGridControl.vb rename to EDMI_ClientSuite/ControlDefaults/GridControlDefaults.vb index 1e69cf41..b37973db 100644 --- a/EDMI_ClientSuite/ControlDefaults/ClassGridControl.vb +++ b/EDMI_ClientSuite/ControlDefaults/GridControlDefaults.vb @@ -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 diff --git a/EDMI_ClientSuite/ControlDefaults/TreeListDefaults.vb b/EDMI_ClientSuite/ControlDefaults/TreeListDefaults.vb new file mode 100644 index 00000000..dc443370 --- /dev/null +++ b/EDMI_ClientSuite/ControlDefaults/TreeListDefaults.vb @@ -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 diff --git a/EDMI_ClientSuite/FormUserManager/UserControlAssignment.vb b/EDMI_ClientSuite/FormUserManager/UserControlAssignment.vb index f888132d..824fac88 100644 --- a/EDMI_ClientSuite/FormUserManager/UserControlAssignment.vb +++ b/EDMI_ClientSuite/FormUserManager/UserControlAssignment.vb @@ -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 diff --git a/EDMI_ClientSuite/Widgets/ProcessManagerWidget.vb b/EDMI_ClientSuite/Widgets/ProcessManagerWidget.vb index 72b86145..f4950a40 100644 --- a/EDMI_ClientSuite/Widgets/ProcessManagerWidget.vb +++ b/EDMI_ClientSuite/Widgets/ProcessManagerWidget.vb @@ -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 diff --git a/EDMI_ClientSuite/frmDocTest.vb b/EDMI_ClientSuite/frmDocTest.vb index 7701b15f..b178e7c0 100644 --- a/EDMI_ClientSuite/frmDocTest.vb +++ b/EDMI_ClientSuite/frmDocTest.vb @@ -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) diff --git a/EDMI_ClientSuite/frmInbox.Designer.vb b/EDMI_ClientSuite/frmInbox.Designer.vb index 43da3e39..1b629a2f 100644 --- a/EDMI_ClientSuite/frmInbox.Designer.vb +++ b/EDMI_ClientSuite/frmInbox.Designer.vb @@ -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,22 +93,6 @@ Partial Class frmInbox Me.NavBarGroup1.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.ControlContainer Me.NavBarGroup1.Name = "NavBarGroup1" ' - 'GridControl1 - ' - Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControl1.Location = New System.Drawing.Point(250, 146) - Me.GridControl1.MainView = Me.GridView1 - Me.GridControl1.MenuManager = Me.RibbonControl - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(860, 484) - Me.GridControl1.TabIndex = 3 - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) - ' - 'GridView1 - ' - Me.GridView1.GridControl = Me.GridControl1 - Me.GridView1.Name = "GridView1" - ' 'NavBarGroupControlContainer1 ' Me.NavBarGroupControlContainer1.Appearance.BackColor = System.Drawing.SystemColors.Control @@ -120,6 +104,12 @@ Partial Class frmInbox ' '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) @@ -130,10 +120,10 @@ Partial Class frmInbox 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.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 @@ -146,6 +136,22 @@ Partial Class frmInbox Me.TreeListColumn1.Visible = True Me.TreeListColumn1.VisibleIndex = 0 ' + 'GridControl1 + ' + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Location = New System.Drawing.Point(250, 146) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.MenuManager = Me.RibbonControl + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(860, 484) + Me.GridControl1.TabIndex = 3 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + ' '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() diff --git a/EDMI_ClientSuite/frmInbox.vb b/EDMI_ClientSuite/frmInbox.vb index c46d9095..67a58ff4 100644 --- a/EDMI_ClientSuite/frmInbox.vb +++ b/EDMI_ClientSuite/frmInbox.vb @@ -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;" diff --git a/EDMI_ClientSuite/frmObjectEditor.vb b/EDMI_ClientSuite/frmObjectEditor.vb index a90f5568..b71888b1 100644 --- a/EDMI_ClientSuite/frmObjectEditor.vb +++ b/EDMI_ClientSuite/frmObjectEditor.vb @@ -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}"