jj: Required/Readonly überprüfen

This commit is contained in:
Jonathan Jenne 2018-06-04 13:15:47 +02:00
parent bf985f81e6
commit 748850991f
2 changed files with 16 additions and 5 deletions

View File

@ -264,6 +264,11 @@ Public Class ClassControlCreator
control.AutoSize = True control.AutoSize = True
control.Text = row.Item("CTRL_TEXT") control.Text = row.Item("CTRL_TEXT")
If Not designMode Then
control.Enabled = Not row.Item("READ_ONLY")
control.TabStop = Not row.Item("READ_ONLY")
End If
Return control Return control
End Function End Function
@ -283,6 +288,11 @@ Public Class ClassControlCreator
col.Width = control.Width - 30 col.Width = control.Width - 30
control.Columns.Add(col) control.Columns.Add(col)
If Not designMode Then
control.Enabled = Not row.Item("READ_ONLY")
control.TabStop = Not row.Item("READ_ONLY")
End If
Return control Return control
End Function End Function
@ -305,6 +315,11 @@ Public Class ClassControlCreator
control.Columns.Add(col) control.Columns.Add(col)
Next Next
If Not designMode Then
control.Enabled = Not row.Item("READ_ONLY")
control.TabStop = Not row.Item("READ_ONLY")
End If
Return control Return control
End Function End Function

View File

@ -1,15 +1,11 @@
Imports WINDREAMLib Imports DevExpress.LookAndFeel
Imports DLLLicenseManager
Imports DevExpress.LookAndFeel
Imports System.Globalization Imports System.Globalization
Imports DevExpress.Utils Imports DevExpress.Utils
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid
Imports System.Collections.ObjectModel
Imports DevExpress.XtraNavBar Imports DevExpress.XtraNavBar
Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraGrid.Columns
Imports DevExpress.Images
Imports DevExpress.XtraCharts Imports DevExpress.XtraCharts
Public Class frmMain Public Class frmMain