AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 25.05.16

Browse Source
This commit is contained in:
JenneJ
2016-05-25 16:50:30 +02:00
parent 26bf6ea6aa
commit 48a12ca8c2
6 changed files with 150 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
app/DD-Record-Organiser/frmLevel_Designer.vb
View File

@@ -460,6 +460,20 @@
dr.Item("CONTROL_SQLCOMMAND_1"),
parent,
True)
Case 14 'DataGridViewCheckable
DesignerCtrlBuilder.AddDataGridViewCheckable(
dr.Item("CONTROL_ID"),
dr.Item("CONTROL_NAME"),
dr.Item("CTRLSCR_X_LOC"),
dr.Item("CTRLSCR_Y_LOC"),
dr.Item("CTRLSCR_WIDTH"),
dr.Item("CTRLSCR_HEIGHT"),
False,
dr.Item("CONTROL_READ_ONLY"),
dr.Item("CONTROL_REQUIRED"),
dr.Item("CONTROL_COL_NAME"),
parent,
True)
End Select
Next
End Sub
@@ -678,6 +692,7 @@
Case "Picturebox" : props = New PictureBoxProperties()
Case "ListBox" : props = New ComboBoxProperties()
Case "CheckedListBox" : props = New ComboBoxProperties()
Case "DatagridviewCheckable" : props = New ComboBoxProperties()
Case "F_AddAppointment" : props = New FunctionAddAppointment()
Case "F_AddFormData" : props = New FunctionAddFormData()
End Select
@@ -835,7 +850,19 @@
props.ShowColumn = ClassConverter.ToBooleanOrDefault(r.Item("CONTROL_SHOW_COLUMN"), True)
props.SQLCommand = New SQLValue(NotNull(r.Item("CONTROL_SQLCOMMAND_1"), ""))
props.EnabledWhen = New SQLValue(r.Item("CONTROL_SQLCOMMAND_2").ToString())
Case "DatagridviewCheckable"
props.ControlType = "DataGridView/Table Checkable"
props.StaticList = New StaticListValue(r.Item("CONTROL_STATIC_LIST").ToString())
props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle))
props.ColumnTitle = ClassConverter.ToStringOrDefault(r.Item("CONTROL_COL_NAME"), ctrl.Name)
props.ShowColumn = ClassConverter.ToBooleanOrDefault(r.Item("CONTROL_SHOW_COLUMN"), True)
props.SQLCommand = New SQLValue(NotNull(r.Item("CONTROL_SQLCOMMAND_1"), ""))
props.EnabledWhen = New SQLValue(r.Item("CONTROL_SQLCOMMAND_2").ToString())
props.IsRequired = r.Item("CONTROL_REQUIRED")
props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
Case "F_AddAppointment"
props.ControlType = "Function.AddToCalendar"
props.Caption() = r.Item("CTRLSCR_CAPTION")