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

jj 08.03.2016 add showColumn & columnTitle for listbox

Browse Source
This commit is contained in:
JenneJ
2016-03-08 10:50:07 +01:00
parent 57fd15b4c1
commit 93fe1a888e
2 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organiser/ClassConverter.vb
View File

@@ -4,11 +4,17 @@
Public Shared Function ToBooleanOrDefault(value As Object, Optional defaultValue As Boolean = False) Public Shared Function ToBooleanOrDefault(value As Object, Optional defaultValue As Boolean = False)
Try Try
Dim bool As Boolean
If Boolean.TryParse(value, bool) = True Then
Return bool
Else
If IsDBNull(value) OrElse value = "" Then If IsDBNull(value) OrElse value = "" Then
Return defaultValue Return defaultValue
Else Else
Return Convert.ToBoolean(value) Return Convert.ToBoolean(value)
End If End If
End If
Catch ex As Exception Catch ex As Exception
Return defaultValue Return defaultValue
End Try End Try

4
app/DD-Record-Organiser/frmTool_ControlProperties.vb
View File

@@ -161,6 +161,8 @@
props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(), props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
CType(r.Item("CTRLSCR_FONT_SIZE"), Single), CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle)) 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)
Case "CheckedListBox" Case "CheckedListBox"
props.StaticList = ClassConverter.ToStringOrDefault(r.Item("CONTROL_STATIC_LIST")) props.StaticList = ClassConverter.ToStringOrDefault(r.Item("CONTROL_STATIC_LIST"))
@@ -170,6 +172,8 @@
props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(), props.Font = New Font(r.Item("CTRLSCR_FONT_FAMILY").ToString(),
CType(r.Item("CTRLSCR_FONT_SIZE"), Single), CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle)) 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)
Case "F_AddAppointment" Case "F_AddAppointment"
props.Caption() = r.Item("CTRLSCR_CAPTION") props.Caption() = r.Item("CTRLSCR_CAPTION")