complete grey backgrounds for controls
This commit is contained in:
@@ -242,6 +242,7 @@ Public Class ClassControlCreator
|
||||
control.AcceptsReturn = True
|
||||
control.ReadOnly = row.Item("READ_ONLY")
|
||||
control.TabStop = Not row.Item("READ_ONLY")
|
||||
control.BackColor = IIf(row.Item("READ_ONLY"), Color.LightGray, Color.White)
|
||||
Else
|
||||
control.ReadOnly = True
|
||||
End If
|
||||
@@ -266,10 +267,10 @@ Public Class ClassControlCreator
|
||||
If Not designMode Then
|
||||
control.Enabled = Not row.Item("READ_ONLY")
|
||||
control.TabStop = Not row.Item("READ_ONLY")
|
||||
control.BackColor = IIf(row.Item("READ_ONLY"), Color.LightGray, Color.White)
|
||||
|
||||
control.AutoCompleteMode = AutoCompleteMode.SuggestAppend
|
||||
control.AutoCompleteSource = AutoCompleteSource.ListItems
|
||||
|
||||
End If
|
||||
|
||||
Return control
|
||||
|
||||
Reference in New Issue
Block a user