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

first fix for jumping textbox

Browse Source
This commit is contained in:
Jonathan Jenne 2019-10-17 16:25:38 +02:00
parent 7a166c1f3a
commit 9f2824a8f6
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@ -628,6 +628,12 @@ Public Class frmFormDesigner
Dim CurrentPosition = CurrentControl.Location Dim CurrentPosition = CurrentControl.Location
Dim OldPosition As Point = DirectCast(pgControls.SelectedObject, BaseProperties).Location Dim OldPosition As Point = DirectCast(pgControls.SelectedObject, BaseProperties).Location
If CurrentPosition.X = OldPosition.X + 2 And CurrentPosition.Y = OldPosition.Y + 2 Then
CurrentControl.Location = New Point(CurrentPosition.X - 2, CurrentPosition.Y - 2)
MyBase.Cursor = Cursors.Default
Exit Sub
End If
If Not Point.op_Inequality(CurrentPosition, OldPosition) Then If Not Point.op_Inequality(CurrentPosition, OldPosition) Then
MyBase.Cursor = Cursors.Default MyBase.Cursor = Cursors.Default
Exit Sub Exit Sub