浏览代码

CorelDRAW X6 64位 支持移动窗口

hongwenjun 2 年之前
父节点
当前提交
b1cd3025c1
共有 5 个文件被更改,包括 10 次插入5 次删除
  1. 2 1
      UI/CQL_FIND_UI.bas
  2. 2 1
      UI/CorelVBA.bas
  3. 2 1
      UI/Replace_UI.bas
  4. 2 1
      UI/Toolbar.bas
  5. 2 1
      UI/VBA_UI_base.bas

+ 2 - 1
UI/CQL_FIND_UI.bas

@@ -53,7 +53,8 @@ End Sub
 
 Private Sub LOGO_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
   If Button Then
-    Me.Move Me.Left - mX + x, Me.TOP - mY + y
+    Me.Left = Me.Left - mx + x
+    Me.Top = Me.Top - my + y
   End If
 End Sub
 

+ 2 - 1
UI/CorelVBA.bas

@@ -62,7 +62,8 @@ End Sub
 
 Private Sub LOGO_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
   If Button Then
-    Me.Move Me.Left - mX + x, Me.TOP - mY + y
+    Me.Left = Me.Left - mx + x
+    Me.Top = Me.Top - my + y
   End If
 End Sub
 

+ 2 - 1
UI/Replace_UI.bas

@@ -54,7 +54,8 @@ End Sub
 
 Private Sub LOGO_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
   If Button Then
-    Me.Move Me.Left - mX + x, Me.TOP - mY + y
+    Me.Left = Me.Left - mx + x
+    Me.Top = Me.Top - my + y
   End If
 End Sub
 

+ 2 - 1
UI/Toolbar.bas

@@ -54,7 +54,8 @@ End Sub
 
 Private Sub LOGO_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
   If Button Then
-    Me.Move Me.Left - mX + x, Me.TOP - mY + y
+    Me.Left = Me.Left - mx + x
+    Me.Top = Me.Top - my + y
   End If
 End Sub
 

+ 2 - 1
UI/VBA_UI_base.bas

@@ -54,7 +54,8 @@ End Sub
 
 Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     If Button Then
-        Me.Move Me.Left - mX + X, Me.Top - mY + Y
+    Me.Left = Me.Left - mx + x
+    Me.Top = Me.Top - my + y
     End If
 End Sub