first fix for jumping textbox

2019-10-17 16:25:38 +02:00 · 2019-10-17 16:25:38 +02:00 · 9f2824a8f6
commit 9f2824a8f6
parent 7a166c1f3a
1 changed files with 6 additions and 0 deletions
--- a/app/DD_PM_WINDREAM/frmFormDesigner.vb
+++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb
@ -628,6 +628,12 @@ Public Class frmFormDesigner
        Dim CurrentPosition = CurrentControl.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
            MyBase.Cursor = Cursors.Default
            Exit Sub