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

jj_26_01_16

Browse Source
This commit is contained in:
JenneJ
2016-01-26 13:38:52 +01:00
parent a7b5fcfd75
commit d90fcc9605
12 changed files with 121 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

87
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@@ -485,7 +485,10 @@ Public Class ClassControlBuilder
Dim control As Label = New Label
Dim defaultSize As Size = New Size(200, 27)
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
control.Tag = metadata
control.Name = name
control.Text = text
control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
@@ -552,6 +555,7 @@ Public Class ClassControlBuilder
vheight As Integer,
multiline As Boolean,
read_only As Boolean,
required As Boolean,
format As String,
_new As Boolean,
Optional parent As GroupBox = Nothing,
@@ -560,7 +564,12 @@ Public Class ClassControlBuilder
Dim control As New TextBox
Dim defaultSize As Size = New Size(200, 27)
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
metadata.Required = required
control.Tag = metadata
control.Name = name
control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
control.ForeColor = IntToColor(fontcolor)
@@ -633,13 +642,18 @@ Public Class ClassControlBuilder
vheight As Integer,
_new As Boolean,
read_only As Boolean,
required As Boolean,
Optional parent As GroupBox = Nothing,
Optional _designMode As Boolean = False)
Try
Dim control As New CheckBox
Dim defaultSize As Size = New Size(150, 27)
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
metadata.Required = required
control.Tag = metadata
control.Checked = Checked
control.Name = name
control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
@@ -702,13 +716,18 @@ Public Class ClassControlBuilder
vheight As Integer,
_new As Boolean,
read_only As Boolean,
required As Boolean,
Optional parent As GroupBox = Nothing,
Optional _designMode As Boolean = False)
Try
Dim control As New RadioButton
Dim defaultSize As Size = New Size(150, 27)
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
metadata.Required = required
control.Tag = metadata
control.Name = name
control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
control.ForeColor = IntToColor(fontcolor)
@@ -768,6 +787,7 @@ Public Class ClassControlBuilder
vformat As String,
_new As Boolean,
read_only As Boolean,
required As Boolean,
static_list As String,
sqlcommand As String,
Optional parent As GroupBox = Nothing,
@@ -776,7 +796,11 @@ Public Class ClassControlBuilder
Dim control As New ComboBox
Dim defaultSize As Size = New Size(120, 24)
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
metadata.Required = required
control.Tag = metadata
control.Name = name
control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
control.ForeColor = IntToColor(fontcolor)
@@ -890,6 +914,7 @@ Public Class ClassControlBuilder
vwidth As Integer,
vheight As Integer,
read_only As Boolean,
required As Boolean,
_new As Boolean,
Optional parent As GroupBox = Nothing,
Optional _designMode As Boolean = False)
@@ -898,7 +923,11 @@ Public Class ClassControlBuilder
'Dim control As New DateTimePicker
Dim defaultSize As Size = New Size(120, 24)
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
metadata.Required = required
control.Tag = metadata
control.Name = name
'control.Format = DateTimePickerFormat.Short
'control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
@@ -950,6 +979,7 @@ Public Class ClassControlBuilder
vheight As Integer,
_new As Boolean,
read_only As Boolean,
required As Boolean,
Optional parent As GroupBox = Nothing,
Optional _designMode As Boolean = False)
@@ -957,7 +987,11 @@ Public Class ClassControlBuilder
Dim column As New DataGridViewTextBoxColumn
Dim defaultSize = New Size(130, 150)
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
metadata.Required = required
control.Tag = metadata
control.Name = name
control.BackgroundColor = SystemColors.ControlDark
control.AllowUserToAddRows = False
@@ -1008,6 +1042,7 @@ Public Class ClassControlBuilder
vheight As Integer,
_new As Boolean,
read_only As Boolean,
required As Boolean,
Optional parent As GroupBox = Nothing,
Optional _designMode As Boolean = False)
@@ -1033,7 +1068,11 @@ Public Class ClassControlBuilder
End If
ctx.Items.Add(itemSave)
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
metadata.Required = required
control.Tag = metadata
control.Name = name
control.Parent = _master_panel
control.BorderStyle = BorderStyle.FixedSingle
@@ -1087,7 +1126,10 @@ Public Class ClassControlBuilder
Dim control As New GroupBox
Dim defaultSize = New Size(200, 100)
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
control.Tag = metadata
control.Name = name
control.Parent = _master_panel
control.Text = Caption
@@ -1139,10 +1181,12 @@ Public Class ClassControlBuilder
Dim control As Button = New Button
Dim defaultSize As Size = New Size(200, 27)
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
control.Tag = metadata
control.Name = name
control.Text = text
'control.Tag = "ADDAPPOINTMENT"
control.TabStop = False
control.Image = My.Resources.calendar_add
control.ImageAlign = ContentAlignment.MiddleRight
@@ -1195,10 +1239,12 @@ Public Class ClassControlBuilder
Dim control As Button = New Button
Dim defaultSize As Size = New Size(30, 21)
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
control.Tag = metadata
control.Name = name
control.Text = ""
'control.Tag = "ADDFORMDATA"
control.TabStop = False
control.Image = My.Resources.add1
@@ -1249,6 +1295,7 @@ Public Class ClassControlBuilder
vheight As Integer,
_new As Boolean,
read_only As Boolean,
required As Boolean,
static_list As String,
sqlcommand As String,
Optional parent As GroupBox = Nothing,
@@ -1259,7 +1306,11 @@ Public Class ClassControlBuilder
'control.CheckOnClick = True
' control.CheckStyle = DevExpress.XtraEditors.Controls.CheckStyles.Style3
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
metadata.Required = required
control.Tag = metadata
control.Name = name
control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
control.ForeColor = IntToColor(fontcolor)
@@ -1351,6 +1402,7 @@ Public Class ClassControlBuilder
vheight As Integer,
_new As Boolean,
read_only As Boolean,
required As Boolean,
static_list As String,
sqlcommand As String,
Optional parent As GroupBox = Nothing,
@@ -1361,7 +1413,12 @@ Public Class ClassControlBuilder
'control.CheckOnClick = True
' control.CheckStyle = DevExpress.XtraEditors.Controls.CheckStyles.Style3
control.Tag = id
Dim metadata As New ClassControlMetadata()
metadata.Id = id
metadata.Required = required
control.Tag = metadata
control.Name = name
control.Font = New Font(fontfamily, fontsize, CType(fontstyle, FontStyle))
control.ForeColor = IntToColor(fontcolor)