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

carbon: Fixes compilation with the VerboseWinAPI define

Browse Source 
git-svn-id: trunk@30314 -
This commit is contained in:
sekelsenmat 2011-04-16 12:38:02 +00:00
parent 6eca9a8764
commit 2d8f62d005
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/carbon/carbonwinapi.inc
View File

@ -1401,7 +1401,8 @@ var
r : TRect;
begin
{$IFDEF VerboseWinAPI}
DebugLn('TCarbonWidgetSet.GetDCOriginRelativeToWindow HWnd: ' + DbgS(HWnd) + ' PaintDC: ' + DbgS(PaintDC));
DebugLn(Format('TCarbonWidgetSet.GetDCOriginRelativeToWindow WindowHandle: %x PaintDC: %x',
[WindowHandle, PaintDC]));
{$ENDIF}
Result := CheckDC(PaintDC, 'GetDCOriginRelativeToWindow');
@ -2056,7 +2057,7 @@ begin
Result := clNone;
{$IFDEF VerboseWinAPI}
DebugLn('TCarbonWidgetSet.GetTextColor DC: ' + DbgS(HDC));
DebugLn('TCarbonWidgetSet.GetTextColor DC: ' + DbgS(DC));
{$ENDIF}
if not CheckDC(DC, 'GetTextColor') then Exit;
@ -3281,7 +3282,8 @@ function TCarbonWidgetSet.SetMenu(AWindowHandle: HWND; AMenuHandle: HMENU): Bool
begin
Result := False;
{$IFDEF VerboseWinAPI}
DebugLn('TCarbonWidgetSet.SetMenu AWindowHAndle: ' + DbgS(HWnd) + ' AMenuHandle: ' + DbgS(AMenuHandle));
DebugLn(Format('TCarbonWidgetSet.SetMenu AWindowHAndle: %x AMenuHandle: %x',
[AWindowHandle, AMenuHandle]));
{$ENDIF}
if not CheckWidget(AWindowHandle, 'SetMenu') then Exit;