paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 00:02:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa: Fixed MouseDragged Event handling in TLCLCommonCallback.MouseMove()

Browse Source
This commit is contained in:
rich2014 2024-02-07 14:30:56 +08:00
parent 68bea34028
commit abac1d0235
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -1209,7 +1209,10 @@ begin
NotifyApplicationUserInput(Target, Msg.Msg);
// LCL/LM_MOUSEMOVE always return false, so we should discard return value
DeliverMessage(Msg);
Result:= true;
// 1. for MouseMove Event, it has been processed by LCL,
// and does not need Cocoa to continue processing.
// 2. for MouseDragged Event, it needs Cocoa to continue processing.
Result := Event.type_ = NSMouseMoved;
// if Screen.Cursor set, LCL won't call TCocoaWSWinControl.SetCursor().
// we need to set the cursor ourselves