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

10
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@@ -429,7 +429,7 @@ Public Class frmFormDesigner
' pnldesigner.Controls.Add(chk)
' Case ClassControlCreator.PREFIX_DATAGRIDVIEW
' Dim lc As LookupControl2 = ClassControlCreator.CreateNewLookupControl(cursorPosition)
' Dim lc As LookupControl3 = ClassControlCreator.CreateNewLookupControl(cursorPosition)
' SetMovementHandlers(lc)
@@ -540,7 +540,7 @@ Public Class frmFormDesigner
oControl.BackColor = Color.Transparent
Case "DD_ProcessManager.ClassControlCreator+LineLabel"
oControl.BackColor = oControl.ForeColor
Case "DigitalData.Controls.LookupGrid.LookupControl2"
Case "DigitalData.Controls.LookupGrid.LookupControl3"
oControl.BackColor = Color.White
Case "System.Windows.Forms.Button"
oControl.BackColor = SystemColors.Control
@@ -875,8 +875,8 @@ Public Class frmFormDesigner
props = gridProps
ElseIf TypeOf sender Is LookupControl2 Then
Dim grid As LookupControl2 = sender
ElseIf TypeOf sender Is LookupControl3 Then
Dim grid As LookupControl3 = sender
Dim lookupProps As LookupControlProperties = CreatePropsObjectWithIndicies(New LookupControlProperties, oRow, Source_AllIndicies)
lookupProps.MultiSelect = StrToBool(oRow.Item("MULTISELECT"))
lookupProps.PreventDuplicates = StrToBool(oRow.Item("VKT_PREVENT_MULTIPLE_VALUES"))
@@ -1320,7 +1320,7 @@ Public Class frmFormDesigner
pnldesigner.Controls.Add(chk)
Case ClassControlCreator.PREFIX_LOOKUP
Dim lc As LookupControl2 = ClassControlCreator.CreateNewLookupControl(cursorPosition)
Dim lc As LookupControl3 = ClassControlCreator.CreateNewLookupControl(cursorPosition)
SetMovementHandlers(lc)