AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: Control Properties bei MouseUp Laden

Browse Source
This commit is contained in:
Jonathan Jenne 2018-04-03 10:25:44 +02:00
parent 1237dcad0c
commit d56367db07
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@ -718,6 +718,8 @@ Public Class frmFormDesigner
End Function End Function
Sub SetActiveControlColor() Sub SetActiveControlColor()
CURRENT_CONTROL.BackColor = Color.DarkOrange CURRENT_CONTROL.BackColor = Color.DarkOrange
' Reset Color of all other controls
For Each inctrl As Control In Me.pnldesigner.Controls For Each inctrl As Control In Me.pnldesigner.Controls
If inctrl.Name <> CURRENT_CONTROL.Name Then If inctrl.Name <> CURRENT_CONTROL.Name Then
Dim Type As String = inctrl.GetType.ToString Dim Type As String = inctrl.GetType.ToString
@ -1126,7 +1128,6 @@ Public Class frmFormDesigner
''' </summary> ''' </summary>
''' <param name="control">Das Control, für das die Eventhandler gesetzt werden sollen</param> ''' <param name="control">Das Control, für das die Eventhandler gesetzt werden sollen</param>
Private Sub SetMovementHandlers(control As Control) Private Sub SetMovementHandlers(control As Control)
AddHandler control.Click, AddressOf OnControl_Click
AddHandler control.MouseDown, AddressOf OnControl_MouseDown AddHandler control.MouseDown, AddressOf OnControl_MouseDown
AddHandler control.MouseUp, AddressOf OnControl_MouseUp AddHandler control.MouseUp, AddressOf OnControl_MouseUp
AddHandler control.MouseMove, AddressOf OnControl_MouseMove AddHandler control.MouseMove, AddressOf OnControl_MouseMove
@ -1147,6 +1148,12 @@ Public Class frmFormDesigner
Private Sub OnControl_MouseUp(sender As Control, e As MouseEventArgs) Private Sub OnControl_MouseUp(sender As Control, e As MouseEventArgs)
Mouse_IsPressed = False Mouse_IsPressed = False
' Ersten Tab anzeigen
TabControlEigenschaften.SelectTab(0)
' Control Eigenschaften laden
LoadControlProperties(sender)
If Mouse_IsMoving Then If Mouse_IsMoving Then
Mouse_IsMoving = False Mouse_IsMoving = False
@ -1171,7 +1178,6 @@ Public Class frmFormDesigner
End If End If
Mouse_IsMoving = True Mouse_IsMoving = True
Console.WriteLine("Mouse Moving!")
If Mouse_IsPressed Then If Mouse_IsPressed Then
Cursor = Cursors.Hand Cursor = Cursors.Hand
@ -1235,7 +1241,7 @@ Public Class frmFormDesigner
Return obj Return obj
End Function End Function
Private Sub OnControl_Click(sender As Control, e As MouseEventArgs) Private Sub LoadControlProperties(sender As Control)
Dim props Dim props
Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS Dim dt As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_CONTROLS
Dim row As DataRow Dim row As DataRow