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

MS_25052016

Browse Source
This commit is contained in:
SchreiberM
2016-05-25 11:59:00 +02:00
parent 9f93268c98
commit 26bf6ea6aa
8 changed files with 189 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -104,6 +104,10 @@
DesignerCtrlBuilder.AddListBox(0, "lbx" & random, 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, 0, True, 0, 0, True, False, False, "", "", Parent)
' Aktuelles Control in die Datenbank speichern
ClassControlCommands.InsertControl(DesignerCtrlBuilder.CurrentControl)
Case "dgvcheck"
DesignerCtrlBuilder.AddDataGridViewCheckable(0, "dgvcheck" & random, 0, 0, 0, 0, True, False, False, "dgvcheck" & random, Parent)
' Aktuelles Control in die Datenbank speichern
ClassControlCommands.InsertControl(DesignerCtrlBuilder.CurrentControl)
Case Else
MsgBox("Event '" & type & "' nicht definiert")
End Select
@@ -507,7 +511,8 @@
btn_addformdata.MouseDown,
btnRadioButton.MouseDown,
btnListBoxCheckable.MouseDown,
btnListBox.MouseDown
btnListBox.MouseDown,
btnTableCheckable.MouseDown
Mouse_Down = True
End Sub
@@ -522,7 +527,8 @@
btn_addformdata.MouseMove,
btnRadioButton.MouseMove,
btnListBoxCheckable.MouseMove,
btnListBox.MouseMove
btnListBox.MouseMove,
btnTableCheckable.MouseMove
If Mouse_Down Then
Dim ctrl As Button = DirectCast(sender, Button)
@@ -1007,4 +1013,16 @@
lblStatus.Visible = False
End If
End Sub
Private Sub btnTableCheckable_MouseDown(sender As Object, e As MouseEventArgs) Handles btnTableCheckable.MouseDown
End Sub
Private Sub btnTableCheckable_MouseMove(sender As Object, e As MouseEventArgs) Handles btnTableCheckable.MouseMove
End Sub
Private Sub btnTableCheckable_Click(sender As Object, e As EventArgs) Handles btnTableCheckable.Click
End Sub
End Class