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

Windows: fix compilation with DebugLn.

Browse Source 
git-svn-id: trunk@29823 -
This commit is contained in:
juha 2011-03-13 20:10:25 +00:00
parent b2fdcc9693
commit eb49696a40
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32callback.inc
View File

@ -45,7 +45,7 @@ begin
if PtrUInt(Str) <= $FFFF then exit; // global atom handle
//DebugLn('Trace:PropEnumProc - Start');
//DebugLn(Format('Trace:PropEnumProc - Property %S (with value 0x%X) from window 0x%X removed',
[String(Str), Data, Window]));
// [String(Str), Data, Window]));
RemoveProp(Window, Str);
Result := True;
//DebugLn('Trace:PropEnumProc - Exit');

4
lcl/interfaces/win32/win32winapi.inc
View File

@ -1127,7 +1127,7 @@ var
{$endif}
begin
//DebugLn(Format('trace:> [TWin32WidgetSet.DrawText] DC:0x%x, Str:''%s'', Count: %d, Rect = %d,%d,%d,%d, Flags:%d',
[DC, Str, Count, Rect.Left, Rect.Top, Rect.Right, Rect.Bottom, Flags]));
// [DC, Str, Count, Rect.Left, Rect.Top, Rect.Right, Rect.Bottom, Flags]));
{$ifdef WindowsUnicodeSupport}
// use temp buffer, if count is set, there might be no null terminator
@ -1154,7 +1154,7 @@ begin
{$endif}
//DebugLn(Format('trace:> [TWin32WidgetSet.DrawText] DC:0x%x, Str:''%s'', Count: %d, Rect = %d,%d,%d,%d, Flags:%d',
[DC, Str, Count, Rect.Left, Rect.Top, Rect.Right, Rect.Bottom, Flags]));
// [DC, Str, Count, Rect.Left, Rect.Top, Rect.Right, Rect.Bottom, Flags]));
end;
{------------------------------------------------------------------------------