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

customdrawnws-cocoa: Compilation fix

Browse Source 
git-svn-id: trunk@33749 -
This commit is contained in:
sekelsenmat 2011-11-24 08:03:08 +00:00
parent d3a2cf706c
commit e97ab1eaa6
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/customdrawn/customdrawnint.pas
View File

@ -32,7 +32,7 @@ uses
Types, Classes, SysUtils, Math,
fpimage, fpcanvas, fpimgcanv, ctypes,
{$ifdef CD_Windows}Windows, customdrawn_WinProc,{$endif}
{$ifdef CD_Cocoa}MacOSAll, CocoaAll,{$endif}
{$ifdef CD_Cocoa}MacOSAll, CocoaAll, CocoaPrivate,{$endif}
{$ifdef CD_X11}X, XLib, XUtil, customdrawn_x11proc,{unitxft, Xft font support}{$endif}
// Widgetset
customdrawnproc,

2
lcl/interfaces/customdrawn/customdrawnwinapi_cocoa.inc
View File

@ -451,7 +451,7 @@ function TCDWidgetSet.BackendGetClientBounds(handle : HWND; var ARect : TRect) :
begin
if Handle<>0 then begin
Result:=True;
ARect:=NSObject(handle).lclClientFrame;
ARect:=LCLObjectExtension(NSObject(handle)).lclClientFrame;
end else
Result:=False;
end;