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

jj: Prevent moving control out of panel

Browse Source
This commit is contained in:
Jonathan Jenne 2018-04-04 14:22:15 +02:00
parent 6755ce60ea
commit 41bd11d924
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -571,12 +571,32 @@
Mouse_Down = False
End Sub
Private Sub Control_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Private Sub Control_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseUp
' The button was released, so we're going back to Static mode.
If Mouse_Moving = True Then
Mouse_Moving = False
'end_location = e.Location
DesignerCtrlBuilder.EndLocation = e.Location
Dim currentPosition As Point = DesignerCtrlBuilder.CurrentControl.Location
' Das Control sollte nicht außerhalb des Panels geschoben werden (Koordinaten kleiner 0)
If CurrentPosition.X < 0 Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(0, DesignerCtrlBuilder.CurrentControl.Location.Y)
End If
If CurrentPosition.Y < 0 Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(DesignerCtrlBuilder.CurrentControl.Location.X, 0)
End If
' Ebenso nicht über die Größe des Panels (X-Achse)
If CurrentPosition.X > pnlDesigner.Width Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(pnlDesigner.Width - DesignerCtrlBuilder.CurrentControl.Width, DesignerCtrlBuilder.CurrentControl.Location.Y)
End If
' Ebenso nicht über die Größe des Panels (Y-Achse)
If CurrentPosition.Y > pnlDesigner.Height Then
DesignerCtrlBuilder.CurrentControl.Location = New Point(DesignerCtrlBuilder.CurrentControl.Location.X, pnlDesigner.Height - DesignerCtrlBuilder.CurrentControl.Height)
End If
'frmTool_ControlProperties.Instance.UpdateControlLocation(CtrlBuilder.CurrentControl)
UpdateControlLocation(DesignerCtrlBuilder.CurrentControl)