Changeset 229


Ignore:
Timestamp:
May 14, 2020, 9:45:40 PM (18 months ago)
Author:
chronos
Message:
  • Fixed: Correction of condition for custom Linux HitTest implementation.
File:
1 edited

Legend:

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

    r228 r229  
    1313
    1414  TDrawDlg = class(TForm)
    15   public
    16     constructor Create(AOwner: TComponent); override;
    17     destructor Destroy; override;
    18     procedure SmartInvalidate; virtual;
    1915  private
    2016    MoveFormPos: TPoint;
     
    3329    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    3430    procedure MouseLeave; override;
     31  public
     32    constructor Create(AOwner: TComponent); override;
     33    destructor Destroy; override;
     34    procedure SmartInvalidate; virtual;
    3535  end;
    3636
     
    127127  inherited;
    128128  {$IFDEF LINUX}
    129   if not Assigned(OnMouseDown) then begin
     129  // Only if client is not doing own mouse move handling
     130  if not Assigned(OnMouseDown) or not Assigned(OnMouseMove) or not Assigned(OnMouseUp) then begin
    130131    // HitTest is not supported under Linux GTK2 so use form inside move mechanizm
    131132    NewFormPos := ScreenToClient(Mouse.CursorPos);
Note: See TracChangeset for help on using the changeset viewer.