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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1642,6 +1642,61 @@ Public Class ClassControlBuilder
Me.AddToPanel(control) Me.AddToPanel(control)
End If End If
End Sub End Sub
Public Sub AddDataGridViewCheckable(id As Integer,
name As String,
x As Integer,
y As Integer,
vwidth As Integer,
vheight As Integer,
_new As Boolean,
read_only As Boolean,
required As Boolean,
columnTitle As String,
Optional parent As GroupBox = Nothing,
Optional _designMode As Boolean = False)
Dim control As New DevExpress.XtraGrid.GridControl
Dim gridview As New DevExpress.XtraGrid.Views.Grid.GridView
control.MainView = gridview
Dim defaultSize = New Size(200, 150)
Dim metadata As New ClassControlMetadata()
metadata.Id = id
metadata.Name = name
metadata.Required = required
control.Tag = metadata
control.Name = name
control.Parent = _master_panel
If _new And IsNothing(parent) Then
control.Location = Me.GetCursorPosition()
control.Size = defaultSize
ElseIf _new And Not IsNothing(parent) Then
Dim cursor = Me.GetCursorPosition()
control.Location = New Point(cursor.X - parent.Location.X,
cursor.Y - parent.Location.Y)
Else
control.Location = New Point(x, y)
control.Size = New Size(vwidth, vheight)
End If
If _designMode = True Then
control.Cursor = Cursors.Hand
End If
Me.SetEventHandlers(control)
Me.CurrentControl = DirectCast(control, DevExpress.XtraGrid.GridControl)
If Not IsNothing(parent) Then
control.Parent = parent
Me.AddToGroupBox(parent, control)
Else
control.Parent = _master_panel
Me.AddToPanel(control)
End If
End Sub
Public Sub AddPictureBox(id As Integer, Public Sub AddPictureBox(id As Integer,
name As String, name As String,
x As Integer, x As Integer,

2
app/DD-Record-Organiser/ClassControlCommands.vb
View File

@ -36,6 +36,8 @@
ElseIf control.Name.Contains("f_addformdata") Then ElseIf control.Name.Contains("f_addformdata") Then
Return 9 Return 9
End If End If
Case CurrentType.Contains("DEVEXPRESS.XTRAGRID.GRIDCONTROL".ToUpper)
Return 14
Case CurrentType.Contains("CheckedListBoxControl".ToUpper) Case CurrentType.Contains("CheckedListBoxControl".ToUpper)
Return 12 Return 12
Case CurrentType.Contains("ListBoxControl".ToUpper) Case CurrentType.Contains("ListBoxControl".ToUpper)

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

@ -95,12 +95,10 @@
Else Else
final = ClassDatabase.Return_Datatable(sqlCommand) final = ClassDatabase.Return_Datatable(sqlCommand)
End If End If
ClassControlValueCache.SaveToCache(sqlCommand, final) ClassControlValueCache.SaveToCache(sqlCommand, final)
Console.WriteLine("CACHE MISS")
Else Else
final = cached final = cached
Console.WriteLine("CACHE HIT") ' Console.WriteLine("CACHE HIT")
End If End If
Return final Return final
@ -137,7 +135,7 @@
control.EndUpdate() control.EndUpdate()
sw.Stop() sw.Stop()
Console.WriteLine("SetDataSource for {0} took {1}ms", control.Name, sw.ElapsedMilliseconds) ' Console.WriteLine("SetDataSource for {0} took {1}ms", control.Name, sw.ElapsedMilliseconds)
End Sub End Sub
Overloads Shared Sub SetDataSource(control As DevExpress.XtraEditors.CheckedListBoxControl, dt As DataTable) Overloads Shared Sub SetDataSource(control As DevExpress.XtraEditors.CheckedListBoxControl, dt As DataTable)

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

@ -178,14 +178,12 @@ Public Class ClassControlValues
sw.Stop() sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> LoadControlHints took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False) If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> LoadControlHints took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)
sw.Start() sw.Start()
Dim result As Double = 0
For Each control As Control In controls For Each control As Control In controls
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
' Wert per LINQ aus DT_ControlValues suchen der zur aktuellen controlId passt ' Wert per LINQ aus DT_ControlValues suchen der zur aktuellen controlId passt
Dim values As List(Of Object) = (From row In DT_ControlValues.AsEnumerable() Dim values As List(Of Object) = (From row In DT_ControlValues.AsEnumerable()
Where row.Item("CONTROL_ID") = ControlId Where row.Item("CONTROL_ID") = ControlId
Select row.Item("VALUE")).ToList() Select row.Item("VALUE")).ToList()
If TypeOf control Is GroupBox Then If TypeOf control Is GroupBox Then
Dim groupbox As GroupBox = DirectCast(control, GroupBox) Dim groupbox As GroupBox = DirectCast(control, GroupBox)
LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls, Entity_ID) LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls, Entity_ID)
@ -193,7 +191,7 @@ Public Class ClassControlValues
LoadControlValue(RecordId, ParentRecordId, ControlId, control, values, Entity_ID) LoadControlValue(RecordId, ParentRecordId, ControlId, control, values, Entity_ID)
End If End If
Next Next
Console.WriteLine("Secons Sum: " & result)
elapsed = sw.Elapsed.TotalSeconds elapsed = sw.Elapsed.TotalSeconds
sw.Stop() sw.Stop()
If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Loop LoadControlValue took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False) If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Loop LoadControlValue took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False)

70
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@ -3286,14 +3286,14 @@ Public Class frmConstructor_Main
End If End If
TabWindream.Text = stg & " (" & windreamSucheErgebnisse.Count & ")" TabWindream.Text = stg & " (" & windreamSucheErgebnisse.Count & ")"
AxObjectListControl.SetIconMode(True) 'AxObjectListControl.SetIconMode(True)
AxObjectListControl.RemoveAllColumnHeader() 'AxObjectListControl.RemoveAllColumnHeader()
Me.AxObjectListControl.SetSession(ClassWindream.oSession, "", "") 'Me.AxObjectListControl.SetSession(ClassWindream.oSession, "", "")
'Change the status icon 'Change the status icon
'ICON STATES: 'ICON STATES:
Me.AxObjectListControl.SetStatusIcon(0) 'Me.AxObjectListControl.SetStatusIcon(0)
'Change the icon 'Change the icon
Me.AxObjectListControl.SetStatusIcon(2) ' Me.AxObjectListControl.SetStatusIcon(2)
Try Try
Dim sql_ResultList = "select * from TBPMO_WINDREAM_RESULTLIST_CONFIG where guid = 1" Dim sql_ResultList = "select * from TBPMO_WINDREAM_RESULTLIST_CONFIG where guid = 1"
@ -3315,7 +3315,7 @@ Public Class frmConstructor_Main
'You need to use the column name here 'You need to use the column name here
'Please note that some attributes or indices will not be displayed 'Please note that some attributes or indices will not be displayed
'Try not to add the same header twice, it will throw cause problems if you do that 'Try not to add the same header twice, it will throw cause problems if you do that
Me.AxObjectListControl.AddColumnHeader(ColumnName, Width) ' Me.AxObjectListControl.AddColumnHeader(ColumnName, Width)
anzparam += 1 anzparam += 1
End If End If
End If End If
@ -3353,7 +3353,7 @@ Public Class frmConstructor_Main
'You need to use the column name here 'You need to use the column name here
'Please note that some attributes or indices will not be displayed 'Please note that some attributes or indices will not be displayed
'Try not to add the same header twice, it will throw cause problems if you do that 'Try not to add the same header twice, it will throw cause problems if you do that
Me.AxObjectListControl.AddColumnHeader(spar, width) ' Me.AxObjectListControl.AddColumnHeader(spar, width)
Next Next
End If End If
@ -3365,22 +3365,22 @@ Public Class frmConstructor_Main
Dim results As WINDREAMLib.WMObjects = windreamSucheErgebnisse Dim results As WINDREAMLib.WMObjects = windreamSucheErgebnisse
If LogErrorsOnly = False Then ClassLogger.Add(" >> results loaded ", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> results loaded ", False)
'Set the contents without displaying them 'Set the contents without displaying them
AxObjectListControl.SetContentsEx(results) 'AxObjectListControl.SetContentsEx(results)
'Change the icon 'Change the icon
AxObjectListControl.SetStatusIcon(5) ' AxObjectListControl.SetStatusIcon(5)
'Display the results... 'Display the results...
'The Previous Object Count 'The Previous Object Count
Dim poc As Integer = 0 Dim poc As Integer = 0
'Display new objects, as long as the objectcount changes after displaying the objects 'Display new objects, as long as the objectcount changes after displaying the objects
Do Until (poc <> AxObjectListControl.GetObjectCount) 'Do Until (poc <> AxObjectListControl.GetObjectCount)
poc = AxObjectListControl.GetObjectCount ' poc = AxObjectListControl.GetObjectCount
'If you want, you can display more items at a timeRefresh_FollowUp_TabHeader ' 'If you want, you can display more items at a timeRefresh_FollowUp_TabHeader
'But do not display to many at a time or the user interface could freeze ' 'But do not display to many at a time or the user interface could freeze
'Maybe try 50 ' 'Maybe try 50
AxObjectListControl.DisplayResults(WDResultListCount) ' AxObjectListControl.DisplayResults(WDResultListCount)
Loop 'Loop
AxObjectListControl.SetStatusIcon(3) 'AxObjectListControl.SetStatusIcon(3)
Else Else
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden" Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
@ -3915,17 +3915,17 @@ Public Class frmConstructor_Main
ClassLogger.Add(" >> Undefined Search-pattern in windream-search config: " & content, True) ClassLogger.Add(" >> Undefined Search-pattern in windream-search config: " & content, True)
End Select End Select
End Function End Function
Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked 'Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked
CheckDocView() ' CheckDocView()
End Sub 'End Sub
Sub Clear_Windream_ResultList() Sub Clear_Windream_ResultList()
Try Try
Dim sw As New Stopwatch Dim sw As New Stopwatch
sw.Start() sw.Start()
AxObjectListControl.RemoveAllColumnHeader() 'AxObjectListControl.RemoveAllColumnHeader()
Me.AxObjectListControl.ClearResultList() 'Me.AxObjectListControl.ClearResultList()
Dim stg As String = "windream-Dateien" Dim stg As String = "windream-Dateien"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
stg = "windream-files" stg = "windream-files"
@ -3942,10 +3942,10 @@ Public Class frmConstructor_Main
End Sub End Sub
Sub CheckDocView() Sub CheckDocView()
Dim _index = AxObjectListControl.GetFirstSelectedObject 'Dim _index = AxObjectListControl.GetFirstSelectedObject
Dim path As String = AxObjectListControl.GetObjectPath(_index) 'Dim path As String = AxObjectListControl.GetObjectPath(_index)
path = path.Replace("?", vWLaufwerk) 'path = path.Replace("?", vWLaufwerk)
DocViewString = path 'DocViewString = path
If WD_ShowDocs = True Then If WD_ShowDocs = True Then
CloseWDDocview() CloseWDDocview()
@ -5018,17 +5018,17 @@ Public Class frmConstructor_Main
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub End Sub
Private Sub AxObjectListControl_CausesValidationChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.CausesValidationChanged 'Private Sub AxObjectListControl_CausesValidationChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.CausesValidationChanged
Console.WriteLine("CausesValidationChanged") ' Console.WriteLine("CausesValidationChanged")
End Sub 'End Sub
Private Sub AxObjectListControl_SettingFlagChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.SettingFlagChanged 'Private Sub AxObjectListControl_SettingFlagChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.SettingFlagChanged
Console.WriteLine("SettingFlagChanged") ' Console.WriteLine("SettingFlagChanged")
End Sub 'End Sub
Private Sub AxObjectListControl_Validated(sender As Object, e As EventArgs) Handles AxObjectListControl.Validated 'Private Sub AxObjectListControl_Validated(sender As Object, e As EventArgs) Handles AxObjectListControl.Validated
Console.WriteLine("Validated") ' Console.WriteLine("Validated")
End Sub 'End Sub
Private Sub tslblLocked_VisibleChanged(sender As Object, e As EventArgs) Handles tslblLocked.VisibleChanged Private Sub tslblLocked_VisibleChanged(sender As Object, e As EventArgs) Handles tslblLocked.VisibleChanged
If tslblLocked.Visible = True Then If tslblLocked.Visible = True Then

33
app/DD-Record-Organiser/frmLevel_Designer.Designer.vb generated
View File

@ -25,7 +25,6 @@ Partial Class frmLevel_Designer
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLevel_Designer)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLevel_Designer))
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.pnlDesigner = New SnapPanelControl.SnapPanel()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.lblFormName = New System.Windows.Forms.ToolStripLabel() Me.lblFormName = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
@ -44,6 +43,7 @@ Partial Class frmLevel_Designer
Me.btn_addformdata = New System.Windows.Forms.Button() Me.btn_addformdata = New System.Windows.Forms.Button()
Me.btn_addtocal = New System.Windows.Forms.Button() Me.btn_addtocal = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.btnTableCheckable = New System.Windows.Forms.Button()
Me.btnListBox = New System.Windows.Forms.Button() Me.btnListBox = New System.Windows.Forms.Button()
Me.btnListBoxCheckable = New System.Windows.Forms.Button() Me.btnListBoxCheckable = New System.Windows.Forms.Button()
Me.btnRadioButton = New System.Windows.Forms.Button() Me.btnRadioButton = New System.Windows.Forms.Button()
@ -57,6 +57,7 @@ Partial Class frmLevel_Designer
Me.btnlabel = New System.Windows.Forms.Button() Me.btnlabel = New System.Windows.Forms.Button()
Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog()
Me.ttTooltip = New System.Windows.Forms.ToolTip(Me.components) Me.ttTooltip = New System.Windows.Forms.ToolTip(Me.components)
Me.pnlDesigner = New SnapPanelControl.SnapPanel()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
@ -87,16 +88,6 @@ Partial Class frmLevel_Designer
' '
Me.SplitContainer1.Panel2.Controls.Add(Me.TabControl1) Me.SplitContainer1.Panel2.Controls.Add(Me.TabControl1)
' '
'pnlDesigner
'
Me.pnlDesigner.AllowDrop = True
Me.pnlDesigner.BackColor = System.Drawing.SystemColors.ControlLight
Me.pnlDesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
resources.ApplyResources(Me.pnlDesigner, "pnlDesigner")
Me.pnlDesigner.GridSize = 8
Me.pnlDesigner.Name = "pnlDesigner"
Me.pnlDesigner.ShowGrid = True
'
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
@ -217,6 +208,7 @@ Partial Class frmLevel_Designer
' '
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.Controls.Add(Me.btnTableCheckable)
Me.GroupBox1.Controls.Add(Me.btnListBox) Me.GroupBox1.Controls.Add(Me.btnListBox)
Me.GroupBox1.Controls.Add(Me.btnListBoxCheckable) Me.GroupBox1.Controls.Add(Me.btnListBoxCheckable)
Me.GroupBox1.Controls.Add(Me.btnRadioButton) Me.GroupBox1.Controls.Add(Me.btnRadioButton)
@ -232,6 +224,14 @@ Partial Class frmLevel_Designer
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
' '
'btnTableCheckable
'
resources.ApplyResources(Me.btnTableCheckable, "btnTableCheckable")
Me.btnTableCheckable.Image = Global.DD_Record_Organiser.My.Resources.Resources.ListBox_686_24
Me.btnTableCheckable.Name = "btnTableCheckable"
Me.btnTableCheckable.Tag = "dgvcheck"
Me.btnTableCheckable.UseVisualStyleBackColor = True
'
'btnListBox 'btnListBox
' '
resources.ApplyResources(Me.btnListBox, "btnListBox") resources.ApplyResources(Me.btnListBox, "btnListBox")
@ -334,6 +334,16 @@ Partial Class frmLevel_Designer
resources.ApplyResources(Me.OFDWindreamsuche, "OFDWindreamsuche") resources.ApplyResources(Me.OFDWindreamsuche, "OFDWindreamsuche")
Me.OFDWindreamsuche.RestoreDirectory = True Me.OFDWindreamsuche.RestoreDirectory = True
' '
'pnlDesigner
'
Me.pnlDesigner.AllowDrop = True
Me.pnlDesigner.BackColor = System.Drawing.SystemColors.ControlLight
Me.pnlDesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
resources.ApplyResources(Me.pnlDesigner, "pnlDesigner")
Me.pnlDesigner.GridSize = 8
Me.pnlDesigner.Name = "pnlDesigner"
Me.pnlDesigner.ShowGrid = True
'
'frmLevel_Designer 'frmLevel_Designer
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -395,4 +405,5 @@ Partial Class frmLevel_Designer
Friend WithEvents btn_addtocal As System.Windows.Forms.Button Friend WithEvents btn_addtocal As System.Windows.Forms.Button
Friend WithEvents pgControlProperties As System.Windows.Forms.PropertyGrid Friend WithEvents pgControlProperties As System.Windows.Forms.PropertyGrid
Friend WithEvents pnlDesigner As SnapPanelControl.SnapPanel Friend WithEvents pnlDesigner As SnapPanelControl.SnapPanel
Friend WithEvents btnTableCheckable As System.Windows.Forms.Button
End Class End Class

65
app/DD-Record-Organiser/frmLevel_Designer.resx
View File

@ -142,7 +142,7 @@
<value>pnlDesigner</value> <value>pnlDesigner</value>
</data> </data>
<data name="&gt;&gt;pnlDesigner.Type" xml:space="preserve"> <data name="&gt;&gt;pnlDesigner.Type" xml:space="preserve">
<value>SnapPanelControl.SnapPanel, SnapPanelControl, Version=1.0.5910.28047, Culture=neutral, PublicKeyToken=null</value> <value>SnapPanelControl.SnapPanel, SnapPanelControl, Version=1.0.5989.19477, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;pnlDesigner.Parent" xml:space="preserve"> <data name="&gt;&gt;pnlDesigner.Parent" xml:space="preserve">
<value>SplitContainer1.Panel1</value> <value>SplitContainer1.Panel1</value>
@ -471,6 +471,42 @@
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="btnTableCheckable.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value>
</data>
<data name="btnTableCheckable.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnTableCheckable.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="btnTableCheckable.Location" type="System.Drawing.Point, System.Drawing">
<value>140, 164</value>
</data>
<data name="btnTableCheckable.Size" type="System.Drawing.Size, System.Drawing">
<value>128, 31</value>
</data>
<data name="btnTableCheckable.TabIndex" type="System.Int32, mscorlib">
<value>11</value>
</data>
<data name="btnTableCheckable.Text" xml:space="preserve">
<value>Tabelle Checkable</value>
</data>
<data name="btnTableCheckable.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;btnTableCheckable.Name" xml:space="preserve">
<value>btnTableCheckable</value>
</data>
<data name="&gt;&gt;btnTableCheckable.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnTableCheckable.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;btnTableCheckable.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="btnListBox.Font" type="System.Drawing.Font, System.Drawing"> <data name="btnListBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
</data> </data>
@ -505,7 +541,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;btnListBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnListBox.ZOrder" xml:space="preserve">
<value>0</value> <value>1</value>
</data> </data>
<data name="btnListBoxCheckable.Font" type="System.Drawing.Font, System.Drawing"> <data name="btnListBoxCheckable.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
@ -541,7 +577,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;btnListBoxCheckable.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnListBoxCheckable.ZOrder" xml:space="preserve">
<value>1</value> <value>2</value>
</data> </data>
<data name="btnRadioButton.Font" type="System.Drawing.Font, System.Drawing"> <data name="btnRadioButton.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
@ -577,7 +613,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;btnRadioButton.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnRadioButton.ZOrder" xml:space="preserve">
<value>2</value> <value>3</value>
</data> </data>
<data name="btngb.Font" type="System.Drawing.Font, System.Drawing"> <data name="btngb.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
@ -589,7 +625,7 @@
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="btngb.Location" type="System.Drawing.Point, System.Drawing"> <data name="btngb.Location" type="System.Drawing.Point, System.Drawing">
<value>140, 164</value> <value>140, 200</value>
</data> </data>
<data name="btngb.Size" type="System.Drawing.Size, System.Drawing"> <data name="btngb.Size" type="System.Drawing.Size, System.Drawing">
<value>128, 31</value> <value>128, 31</value>
@ -613,7 +649,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;btngb.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btngb.ZOrder" xml:space="preserve">
<value>3</value> <value>4</value>
</data> </data>
<data name="btnpb.Font" type="System.Drawing.Font, System.Drawing"> <data name="btnpb.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
@ -649,7 +685,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;btnpb.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnpb.ZOrder" xml:space="preserve">
<value>4</value> <value>5</value>
</data> </data>
<data name="btnTabelle.Font" type="System.Drawing.Font, System.Drawing"> <data name="btnTabelle.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
@ -685,7 +721,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;btnTabelle.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnTabelle.ZOrder" xml:space="preserve">
<value>5</value> <value>6</value>
</data> </data>
<data name="btnCheckbox.Font" type="System.Drawing.Font, System.Drawing"> <data name="btnCheckbox.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
@ -721,7 +757,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;btnCheckbox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnCheckbox.ZOrder" xml:space="preserve">
<value>6</value> <value>7</value>
</data> </data>
<data name="btndtp.Font" type="System.Drawing.Font, System.Drawing"> <data name="btndtp.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
@ -757,7 +793,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;btndtp.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btndtp.ZOrder" xml:space="preserve">
<value>7</value> <value>8</value>
</data> </data>
<data name="btncmb.Font" type="System.Drawing.Font, System.Drawing"> <data name="btncmb.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
@ -793,7 +829,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;btncmb.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btncmb.ZOrder" xml:space="preserve">
<value>8</value> <value>9</value>
</data> </data>
<data name="btntextbox.Font" type="System.Drawing.Font, System.Drawing"> <data name="btntextbox.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
@ -829,7 +865,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;btntextbox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btntextbox.ZOrder" xml:space="preserve">
<value>9</value> <value>10</value>
</data> </data>
<data name="btnlabel.Font" type="System.Drawing.Font, System.Drawing"> <data name="btnlabel.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold</value> <value>Segoe UI, 8.25pt, style=Bold</value>
@ -865,7 +901,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;btnlabel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnlabel.ZOrder" xml:space="preserve">
<value>10</value> <value>11</value>
</data> </data>
<data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing"> <data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value> <value>Segoe UI, 9.75pt, style=Bold</value>
@ -1005,6 +1041,9 @@
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value> <value>Segoe UI, 8.25pt</value>
</data> </data>
<data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>frmLevel_Designer</value> <value>frmLevel_Designer</value>
</data> </data>

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) 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 ' Aktuelles Control in die Datenbank speichern
ClassControlCommands.InsertControl(DesignerCtrlBuilder.CurrentControl) 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 Case Else
MsgBox("Event '" & type & "' nicht definiert") MsgBox("Event '" & type & "' nicht definiert")
End Select End Select
@ -507,7 +511,8 @@
btn_addformdata.MouseDown, btn_addformdata.MouseDown,
btnRadioButton.MouseDown, btnRadioButton.MouseDown,
btnListBoxCheckable.MouseDown, btnListBoxCheckable.MouseDown,
btnListBox.MouseDown btnListBox.MouseDown,
btnTableCheckable.MouseDown
Mouse_Down = True Mouse_Down = True
End Sub End Sub
@ -522,7 +527,8 @@
btn_addformdata.MouseMove, btn_addformdata.MouseMove,
btnRadioButton.MouseMove, btnRadioButton.MouseMove,
btnListBoxCheckable.MouseMove, btnListBoxCheckable.MouseMove,
btnListBox.MouseMove btnListBox.MouseMove,
btnTableCheckable.MouseMove
If Mouse_Down Then If Mouse_Down Then
Dim ctrl As Button = DirectCast(sender, Button) Dim ctrl As Button = DirectCast(sender, Button)
@ -1007,4 +1013,16 @@
lblStatus.Visible = False lblStatus.Visible = False
End If End If
End Sub 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 End Class