paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-20 05:29:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: started debugging of mouse capturing

Browse Source 
git-svn-id: trunk@838 -
This commit is contained in:
lazarus 2002-02-09 01:47:01 +00:00
parent 069da21d6f
commit b51eaa2182
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkproc.inc
View File

@ -965,6 +965,12 @@ var
LParam := 0; LParam := 0;
Result := longint(OldMouseCaptureHandle); // ToDo: 64bit faulty Result := longint(OldMouseCaptureHandle); // ToDo: 64bit faulty
end; end;
{$IFDEF VerboseMouseCapture}
writeln('UpdateMouseCaptureControl NotifyCurCaptureControl',
' Old=',HexStr(Cardinal(OldMouseCaptureHandle),8),
' New=',HexStr(Cardinal(MCaptureHandle),8)
);
{$ENDIF}
DeliverMessage(CurControl,CaptureChangedMsg); DeliverMessage(CurControl,CaptureChangedMsg);
end; end;
@ -2429,6 +2435,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.70 2002/08/22 16:22:39 lazarus
MG: started debugging of mouse capturing
Revision 1.69 2002/08/22 07:30:16 lazarus Revision 1.69 2002/08/22 07:30:16 lazarus
MG: freeing more unused GCs MG: freeing more unused GCs