paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-31 13:35:56 +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
******************************************************************************
@ -18,27 +20,28 @@
constructor TMouse.Create;
begin
inherited Create;
inherited Create;
end;
destructor TMouse.destroy;
begin
inherited destroy;
inherited destroy;
end;
Function TMouse.GetCapture : HWND;
Begin
Result := FCapture;
Result := FCapture;
End;
Procedure TMouse.SetCapture(const Value : HWND);
Begin
FCapture := Value;
if Value = 0 then ReleaseCapture else LCLLinux.SetCapture(Value);
{$IFDEF VerboseMouseCapture}
writeln('TMouse.SetCapture ');
{$ENDIF}
FCapture := Value;
if Value = 0 then ReleaseCapture else LCLLinux.SetCapture(Value);
end;
Procedure TMouse.SetCursorPos(Value : Tpoint);
@ -48,13 +51,11 @@ end;
Function TMouse.GetCursorPos : TPoint;
var
p : TPoint;
p : TPoint;
Begin
GetCaretPos(p);
Result := P;
GetCaretPos(p);
Result := P;
end;
// included by controls.pp