jj: Neues Control Linie, form Designer entschlacken
This commit is contained in:
@@ -655,7 +655,7 @@ Public Class frmValidator
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch DTP zu laden", False)
|
||||
ctrl = ClassControlCreator.CreateExistingDatepicker(dr, False)
|
||||
|
||||
add_DTP(dr.Item("GUID"), dr.Item("CTRL_NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"),
|
||||
'add_DTP(dr.Item("GUID"), dr.Item("NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), CInt(dr.Item("WIDTH")), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"), dr.Item("LOAD_IDX_VALUE")) 'dr.Item("INDEX_NAME"),
|
||||
Case "DGV"
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch DGV zu laden", False)
|
||||
Dim dgv = ClassControlCreator.CreateExistingDataGridView(dr, False)
|
||||
@@ -679,6 +679,10 @@ Public Class frmValidator
|
||||
|
||||
ctrl = ClassControlCreator.CreateExistingTable(dr, columns, False)
|
||||
'add_TABLE(dr.Item("GUID"), dr.Item("CTRL_NAME"), CInt(dr.Item("X_LOC")), CInt(dr.Item("Y_LOC")), dr.Item("WIDTH"), CInt(dr.Item("HEIGHT")), dr.Item("READ_ONLY"))
|
||||
Case "LINE"
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch Linie zu laden", False)
|
||||
|
||||
ctrl = ClassControlCreator.CreateExistingLine(dr, False)
|
||||
End Select
|
||||
|
||||
If first_control Is Nothing Then
|
||||
|
||||
Reference in New Issue
Block a user