Changeset 297 for trunk/Packages


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/CevoComponents/DrawDlg.pas

    r290 r297  
    1818    MoveActive: Boolean;
    1919    procedure VisibleChangedHandler(Sender: TObject);
     20    procedure DoDeactivate(Sender: TObject);
    2021  protected
    2122    TitleHeight: Integer;
     
    7273  MoveActive := False;
    7374  AddHandlerOnVisibleChanged(VisibleChangedHandler);
     75  {$IFDEF LINUX}
     76  OnDeactivate := DoDeactivate;
     77  {$ENDIF}
    7478end;
    7579
     
    183187end;
    184188
     189procedure TDrawDlg.DoDeactivate(Sender: TObject);
     190begin
     191  MoveActive := False;
     192end;
     193
    185194procedure TDrawDlg.InitButtons;
    186195var
Note: See TracChangeset for help on using the changeset viewer.