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

Add Checkbox and DateTime Editor for frmEdit, New LookupGrid WIP

Browse Source
This commit is contained in:
Jonathan Jenne
2019-02-28 17:33:47 +01:00
parent 667b8f1b2f
commit cfbcd8a8f2
22 changed files with 574 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
EDMI_ClientSuite/ControlDefaults/ClassGridControl.vb
View File

@@ -2,7 +2,7 @@
Imports DevExpress.XtraGrid.Views.Grid
Public Class ClassGridControl
Public Shared Sub DefaultGridSettings(grid As GridControl)
Public Shared Sub DefaultGridSettings(grid As GridControl, Container As Control)
For Each oView In grid.Views
If TypeOf oView Is GridView Then
DefaultGridViewSettings(oView)
@@ -10,15 +10,15 @@ Public Class ClassGridControl
Next
End Sub
Public Shared Sub ReadOnlyGridSettings(grid As GridControl)
Public Shared Sub ReadOnlyGridSettings(grid As GridControl, Container As Control)
For Each oView In grid.Views
If TypeOf oView Is GridView Then
ReadonlyGridViewSettings(oView)
ReadonlyGridViewSettings(oView, Container)
End If
Next
End Sub
Public Shared Sub CheckboxSelectGridSettings(grid As GridControl)
Public Shared Sub CheckboxSelectGridSettings(grid As GridControl, Container As Control)
For Each oView In grid.Views
If TypeOf oView Is GridView Then
CheckboxSelectGridViewSettings(oView)
@@ -29,7 +29,7 @@ Public Class ClassGridControl
''' <summary>
''' Set a view to readonly
''' </summary>
Private Shared Sub ReadonlyGridViewSettings(ByRef View As GridView)
Private Shared Sub ReadonlyGridViewSettings(ByRef View As GridView, Container As Control)
View.OptionsBehavior.Editable = False
View.OptionsBehavior.ReadOnly = True
End Sub
@@ -54,6 +54,11 @@ Public Class ClassGridControl
View.Appearance.FilterPanel.BackColor = Color.Orange
AddHandler View.RowStyle, AddressOf GridView_RowStyle
'AddHandler View.Layout, AddressOf GridView_Layout
End Sub
Private Shared Sub GridView_Layout(sender As Object, e As EventArgs)
'Throw New NotImplementedException()
End Sub
Private Shared Sub GridView_RowStyle(sender As Object, e As RowStyleEventArgs)