Changeset 228

Timestamp:

May 14, 2020, 9:35:35 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Use custom Linux HitTest replacement only if OnMouseDown is not handled by client.

File:

• trunk/Packages/CevoComponents/DrawDlg.pas (modified) (1 diff)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -127 +127 @@
   inherited;
   {$IFDEF LINUX}
-  // HitTest is not supported under Linux GTK2 so use form inside move mechanizm
-  NewFormPos := ScreenToClient(Mouse.CursorPos);
-  if (NewFormPos.X >= 0) and (NewFormPos.X < Width) and
-    (NewFormPos.Y >= 0) and (NewFormPos.Y < Height) then begin
-    MoveMousePos := ClientToScreen(Point(X, Y));
-    MoveFormPos := Point(Left, Top);
-    MousePosNew := Mouse.CursorPos;
-    // Activate move only if mouse position was not changed during inherited call
-    if (MousePosNew.X = MoveMousePos.X) and (MousePosNew.Y = MoveMousePos.Y) then begin
-      MoveActive := True;
-    end;
-  end else MoveActive := False;
+  if not Assigned(OnMouseDown) then begin
+    // HitTest is not supported under Linux GTK2 so use form inside move mechanizm
+    NewFormPos := ScreenToClient(Mouse.CursorPos);
+    if (NewFormPos.X >= 0) and (NewFormPos.X < Width) and
+      (NewFormPos.Y >= 0) and (NewFormPos.Y < Height) then begin
+      MoveMousePos := ClientToScreen(Point(X, Y));
+      MoveFormPos := Point(Left, Top);
+      MousePosNew := Mouse.CursorPos;
+      // Activate move only if mouse position was not changed during inherited call
+      if (MousePosNew.X = MoveMousePos.X) and (MousePosNew.Y = MoveMousePos.Y) then begin
+        MoveActive := True;
+      end;
+    end else MoveActive := False;
+  end;
   {$ENDIF}
 end;