paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 21:35:57 +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

27
lcl/include/mouse.inc
View File

@ -1,3 +1,5 @@
// included by controls.pp
{****************************************************************************** {******************************************************************************
TMouse TMouse
****************************************************************************** ******************************************************************************
@ -18,27 +20,28 @@
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;
Function TMouse.GetCapture : HWND; Function TMouse.GetCapture : HWND;
Begin Begin
Result := FCapture; Result := FCapture;
End; End;
Procedure TMouse.SetCapture(const Value : HWND); Procedure TMouse.SetCapture(const Value : HWND);
Begin Begin
FCapture := Value; {$IFDEF VerboseMouseCapture}
if Value = 0 then ReleaseCapture else LCLLinux.SetCapture(Value); writeln('TMouse.SetCapture ');
{$ENDIF}
FCapture := Value;
if Value = 0 then ReleaseCapture else LCLLinux.SetCapture(Value);
end; end;
Procedure TMouse.SetCursorPos(Value : Tpoint); Procedure TMouse.SetCursorPos(Value : Tpoint);
@ -48,13 +51,11 @@ end;
Function TMouse.GetCursorPos : TPoint; Function TMouse.GetCursorPos : TPoint;
var var
p : TPoint; p : TPoint;
Begin Begin
GetCaretPos(p); GetCaretPos(p);
Result := P; Result := P;
end; end;
// included by controls.pp