Changeset 297 for trunk/Packages

Timestamp:

Mar 8, 2021, 4:46:57 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Sticky form to mouse cursor on Linux if another form is openned while current is in active move state.

File:

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

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -18 +18 @@
     MoveActive: Boolean;
     procedure VisibleChangedHandler(Sender: TObject);
+    procedure DoDeactivate(Sender: TObject);
   protected
     TitleHeight: Integer;
@@ -72 +73 @@
   MoveActive := False;
   AddHandlerOnVisibleChanged(VisibleChangedHandler);
+  {$IFDEF LINUX}
+  OnDeactivate := DoDeactivate;
+  {$ENDIF}
 end;
 
@@ -183 +187 @@
 end;
 
+procedure TDrawDlg.DoDeactivate(Sender: TObject);
+begin
+  MoveActive := False;
+end;
+
 procedure TDrawDlg.InitButtons;
 var