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

MG: started debugging of mouse capturing

Browse Source 
git-svn-id: trunk@3233 -
This commit is contained in:
lazarus 2002-08-22 16:22:39 +00:00
parent 349457e0f7
commit bde677c04c
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/mouse.inc
View File

@ -1,3 +1,5 @@
// included by controls.pp
{****************************************************************************** {******************************************************************************
TMouse TMouse
****************************************************************************** ******************************************************************************
@ -19,13 +21,11 @@
constructor TMouse.Create; constructor TMouse.Create;
begin begin
inherited Create; inherited Create;
end; end;
destructor TMouse.destroy; destructor TMouse.destroy;
begin begin
inherited destroy; inherited destroy;
end; end;
@ -37,6 +37,9 @@ End;
Procedure TMouse.SetCapture(const Value : HWND); Procedure TMouse.SetCapture(const Value : HWND);
Begin Begin
{$IFDEF VerboseMouseCapture}
writeln('TMouse.SetCapture ');
{$ENDIF}
FCapture := Value; FCapture := Value;
if Value = 0 then ReleaseCapture else LCLLinux.SetCapture(Value); if Value = 0 then ReleaseCapture else LCLLinux.SetCapture(Value);
end; end;
@ -54,7 +57,5 @@ GetCaretPos(p);
Result := P; Result := P;
end; end;
// included by controls.pp