actually apply readonly to lookupgrid :D

This commit is contained in:
Jonathan Jenne 2019-10-17 14:42:45 +02:00
parent 4e651f99a1
commit c8eab919ef

View File

@ -331,6 +331,7 @@ Public Class ClassControlCreator
Public Shared Function CreateExistingLookupControl(row As DataRow, designMode As Boolean) As LookupControl2
Dim control As LookupControl2 = CreateBaseControl(New LookupControl2(), row, designMode)
control.Width = row.Item("WIDTH")
control.ReadOnly = row.Item("READ_ONLY")
If designMode Then
control.Cursor = Cursors.Hand