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

Replace LookupGrid2 with Version 3

Browse Source
This commit is contained in:
Jonathan Jenne
2021-02-18 16:33:07 +01:00
parent 903e5e5c81
commit 7d054fa053
5 changed files with 109 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@@ -192,8 +192,8 @@ Public Class ClassControlCreator
Return control
End Function
Friend Shared Function CreateNewLookupControl(location As Point) As LookupControl2
Dim control As New LookupControl2 With {
Friend Shared Function CreateNewLookupControl(location As Point) As LookupControl3
Dim control As New LookupControl3 With {
.Name = $"{PREFIX_LOOKUP}_{clsTools.ShortGuid}",
.Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT),
.Cursor = Cursors.Hand,
@@ -391,8 +391,9 @@ Public Class ClassControlCreator
Return control
End Function
Public Shared Function CreateExistingLookupControl(row As DataRow, designMode As Boolean) As LookupControl2
Dim control As LookupControl2 = CreateBaseControl(New LookupControl2(), row, designMode)
Public Shared Function CreateExistingLookupControl(row As DataRow, designMode As Boolean) As LookupControl3
Dim control As LookupControl3 = CreateBaseControl(New LookupControl3(), row, designMode)
control.Properties.Name = control.Name
control.Width = row.Item("WIDTH")
control.ReadOnly = row.Item("READ_ONLY")