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

Cocoa: Fix Message Result in TCocoaWidgetSet.CallDefaultWndHandler.CallMouseWheelHandler()

Browse Source
This commit is contained in:
rich2014 2024-06-19 20:11:38 +08:00
parent bc7ef3d1eb
commit eacd34023f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -130,7 +130,7 @@ const
WantArrow : array [boolean] of integer = (0, DLGC_WANTARROWS);
WantKeys : array [boolean] of integer = (0, DLGC_WANTALLKEYS);
procedure CallMouseWheelHandler(barFlag: Integer);
function CallMouseWheelHandler(barFlag: Integer): LRESULT;
var
scrollMsg: TLMScroll;
pMsg: PLMessage;
@ -143,6 +143,7 @@ const
offset: Integer;
inc: Integer;
begin
Result:= 0;
if NOT (Sender is TWinControl) then
Exit;
if NOT winControl.HandleAllocated then
@ -191,6 +192,7 @@ const
scrollMsg.ScrollCode:= SB_THUMBPOSITION;
pMsg:= @scrollMsg;
winControl.WindowProc(pMsg^);
Result:= scrollMsg.Result;
end;
begin
@ -212,9 +214,9 @@ begin
end;
end;
LM_MOUSEWHEEL:
CallMouseWheelHandler(SB_Vert);
TLMMouseEvent(Message).Result:= CallMouseWheelHandler(SB_Vert);
LM_MOUSEHWHEEL:
CallMouseWheelHandler(SB_Horz);
TLMMouseEvent(Message).Result:= CallMouseWheelHandler(SB_Horz);
else
TLMessage(Message).Result := 0;
end;