complete grey backgrounds for controls

This commit is contained in:
Jonathan Jenne
2019-10-17 15:49:47 +02:00
parent e2ea5583ae
commit ec8e6b76b9
2 changed files with 12 additions and 12 deletions

View File

@@ -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