paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 23:20:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed compilation with -dVerboseMouseBugFix

Browse Source 
git-svn-id: trunk@27635 -
This commit is contained in:
zeljko 2010-10-09 17:11:43 +00:00
parent 045c7df7b2
commit d38da8c53c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/wincontrol.inc
View File

@ -4575,7 +4575,7 @@ begin
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=',MouseMessage.Pos.X,',',MouseMessage.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,