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

LCL carbon: fixed error during mouse wheel

Browse Source 
git-svn-id: trunk@13832 -
This commit is contained in:
tombo 2008-01-22 13:44:16 +00:00
parent 7e4fdbb9ab
commit 2384804e4d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/carbon/carbonprivatewindow.inc
View File

@ -88,12 +88,12 @@ const
var var
MouseButton: EventMouseButton; MouseButton: EventMouseButton;
begin begin
Result := 1; Result := 0;
if OSError( if OSError(
GetEventParameter(AEvent, kEventParamMouseButton, typeMouseButton, nil, GetEventParameter(AEvent, kEventParamMouseButton, typeMouseButton, nil,
SizeOf(MouseButton), nil, @MouseButton), SizeOf(MouseButton), nil, @MouseButton),
SName, SGetEvent, 'kEventParamMouseButton') then Exit; SName, SGetEvent, 'kEventParamMouseButton', eventParameterNotFoundErr) then Exit;
Result := MouseButton; Result := MouseButton;
end; end;