Changeset 229 for trunk/Packages/CevoComponents/DrawDlg.pas

Timestamp:

May 14, 2020, 9:45:40 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Correction of condition for custom Linux HitTest implementation.

File:

• trunk/Packages/CevoComponents/DrawDlg.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -13 +13 @@
 
   TDrawDlg = class(TForm)
-  public
-    constructor Create(AOwner: TComponent); override;
-    destructor Destroy; override;
-    procedure SmartInvalidate; virtual;
   private
     MoveFormPos: TPoint;
@@ -33 +29 @@
     procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
     procedure MouseLeave; override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure SmartInvalidate; virtual;
   end;
 
@@ -127 +127 @@
   inherited;
   {$IFDEF LINUX}
-  if not Assigned(OnMouseDown) then begin
+  // Only if client is not doing own mouse move handling
+  if not Assigned(OnMouseDown) or not Assigned(OnMouseMove) or not Assigned(OnMouseUp) then begin
     // HitTest is not supported under Linux GTK2 so use form inside move mechanizm
     NewFormPos := ScreenToClient(Mouse.CursorPos);