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

cocoa: removing unused function. related to bug #36049

Browse Source 
git-svn-id: trunk@62435 -
This commit is contained in:
dmitry 2019-12-23 17:37:16 +00:00
parent 62146e35bf
commit 251a2f91f6
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/cocoa/cocoawsmenus.pas
View File

@ -811,13 +811,6 @@ end;
{ TCocoaWSPopupMenu } { TCocoaWSPopupMenu }
function LCLCoordsToCocoa(AControl: TControl; X, Y: Integer): NSPoint;
begin
Result.x := X;
Result.y := NSScreen.mainScreen.frame.size.height - Y;
if AControl <> nil then Result.y := Result.y - AControl.Height;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCocoaWSPopupMenu.Popup Method: TCocoaWSPopupMenu.Popup
Params: APopupMenu - LCL popup menu Params: APopupMenu - LCL popup menu