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

jj 16.03 add columntitle for dgv

Browse Source
This commit is contained in:
JenneJ
2016-03-16 13:53:28 +01:00
parent c6a1b7904f
commit 94a6ac0127
3 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1127,7 +1127,8 @@ Public Class ClassControlBuilder
_new As Boolean, _new As Boolean,
read_only As Boolean, read_only As Boolean,
required As Boolean, required As Boolean,
Optional parent As GroupBox = Nothing, columnTitle As String,
Optional parent As GroupBox = Nothing,
Optional _designMode As Boolean = False) Optional _designMode As Boolean = False)
Dim control As New DataGridView Dim control As New DataGridView
@@ -1149,7 +1150,7 @@ Public Class ClassControlBuilder
control.Parent = _master_panel control.Parent = _master_panel
control.ReadOnly = read_only control.ReadOnly = read_only
column.HeaderText = "Data" column.HeaderText = columnTitle
column.Name = "column1" column.Name = "column1"
control.Columns.Add(column) control.Columns.Add(column)

1
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -148,6 +148,7 @@ Public Class ClassControlCommandsUI
False, False,
dr.Item("CONTROL_READ_ONLY"), dr.Item("CONTROL_READ_ONLY"),
dr.Item("CONTROL_REQUIRED"), dr.Item("CONTROL_REQUIRED"),
dr.Item("CONTROL_COL_NAME"),
parent) parent)
Case 10 ' Checkbox Case 10 ' Checkbox
Dim Checked As Boolean = False Dim Checked As Boolean = False

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

@@ -129,7 +129,7 @@
' Aktuelles Control in die Datenbank speichern ' Aktuelles Control in die Datenbank speichern
ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl)
Case "dgv" Case "dgv"
CtrlBuilder.AddDataGridView(0, "dgv" & random, 0, 0, 0, 0, True, False, False, Parent) CtrlBuilder.AddDataGridView(0, "dgv" & random, 0, 0, 0, 0, True, False, False, "dgv" & random, Parent)
' Aktuelles Control in die Datenbank speichern ' Aktuelles Control in die Datenbank speichern
ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl)
Case "chk" Case "chk"
@@ -407,6 +407,7 @@
False, False,
dr.Item("CONTROL_READ_ONLY"), dr.Item("CONTROL_READ_ONLY"),
dr.Item("CONTROL_REQUIRED"), dr.Item("CONTROL_REQUIRED"),
dr.Item("CONTROL_COL_NAME"),
parent, parent,
True) True)
Case 10 ' Checkbox Case 10 ' Checkbox