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

cocoa: fix compiler warning

Browse Source 
git-svn-id: trunk@59250 -
This commit is contained in:
dmitry 2018-10-04 22:28:33 +00:00
parent 003ad96f6d
commit a38daf0375
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -392,6 +392,7 @@ begin
MsgContext.XPos := Round(MousePos.X); MsgContext.XPos := Round(MousePos.X);
MsgContext.YPos := Round(MousePos.Y); MsgContext.YPos := Round(MousePos.Y);
Rcp := Owner; Rcp := Owner;
Res := 1;
repeat repeat
cb := Rcp.lclGetCallback; cb := Rcp.lclGetCallback;
if Assigned(cb) then if Assigned(cb) then