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

Gtk2: fixed compilation with -dVerboseMouseBugFix

Browse Source 
git-svn-id: trunk@24193 -
This commit is contained in:
zeljko 2010-03-24 17:04:26 +00:00
parent 9dde8efaf2
commit e1d960ff51
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/wincontrol.inc
View File

@ -4541,12 +4541,12 @@ begin
dec(P.X,ClientBounds.Left); dec(P.X,ClientBounds.Left);
dec(P.Y,ClientBounds.Top); dec(P.Y,ClientBounds.Top);
{$IFDEF VerboseMouseBugfix} {$IFDEF VerboseMouseBugfix}
DebugLn('TWinControl.IsControlMouseMsg ',Name,' -> ',Control.Name, DebugLn(['TWinControl.IsControlMouseMsg ',Name,' -> ',Control.Name,
' MsgPos=',TheMessage.Pos.X,',',TheMessage.Pos.Y, ' MsgPos=',TheMessage.Pos.X,',',TheMessage.Pos.Y,
' Control=',Control.Left,',',Control.Top, ' Control=',Control.Left,',',Control.Top,
' ClientBounds=',ClientBounds.Left,',',ClientBounds.Top, ' ClientBounds=',ClientBounds.Left,',',ClientBounds.Top,
' Scrolled=',GetClientScrollOffset.X,',',GetClientScrollOffset.Y, ' Scrolled=',GetClientScrollOffset.X,',',GetClientScrollOffset.Y,
' P=',P.X,',',P.Y ' P=',P.X,',',P.Y]
); );
{$ENDIF} {$ENDIF}
end; end;
@ -4908,7 +4908,7 @@ var
' P=',P.X,',',P.Y, ' P=',P.X,',',P.Y,
' ControlPos=',dbgs(ControlPos), ' ControlPos=',dbgs(ControlPos),
' ClientBounds=',ClientBounds.Left,',',ClientBounds.Top,',',ClientBounds.Right,',',ClientBounds.Bottom, ' ClientBounds=',ClientBounds.Left,',',ClientBounds.Top,',',ClientBounds.Right,',',ClientBounds.Bottom,
' OnlyCl=',OnlyClientAreas, // ' OnlyCl=',OnlyClientAreas,
' Result=',Result]); ' Result=',Result]);
{$ENDIF} {$ENDIF}
if Result then if Result then