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

MG: fixed uncapturing of mouse

Browse Source 
git-svn-id: trunk@1009 -
This commit is contained in:
lazarus 2002-02-09 01:47:38 +00:00
parent b0a7ca6d06
commit 3b16346f6f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtkobject.inc
View File

@ -3035,8 +3035,8 @@ begin
//writeln('>>> LM_DESTROY ',Sender.Classname,' Sender=',HexStr(Cardinal(Sender),8),' Handle=',HexStr(Cardinal(Handle),8));
// update mouse capturing
if (MCaptureHandle=Handle) or (MCaptureHandle=HWnd(FixWidget)) then
Uncapturehandle;
if (MouseCaptureWidget=Widget) or (MouseCaptureWidget=FixWidget) then
MouseCaptureWidget:=nil;
// update clipboard widget
if (ClipboardWidget=Widget) or (ClipboardWidget=FixWidget) then
@ -6528,6 +6528,9 @@ end;
{ =============================================================================
$Log$
Revision 1.253 2002/10/17 21:00:17 lazarus
MG: fixed uncapturing of mouse
Revision 1.252 2002/10/17 15:09:32 lazarus
MG: made mouse capturing more strict