paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use getmousebutton

Browse Source
This commit is contained in:
peter 2004-11-06 20:03:53 +00:00
parent 23ebe1907e
commit 8a24647d5c
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
docs/mouseex/ex7.pp
View File

@ -4,20 +4,16 @@ Program Example7;
Uses mouse; Uses mouse;
Var
Event : TMouseEvent;
begin begin
InitMouse; InitMouse;
Writeln('Click right mouse button to quit.'); Writeln('Click right mouse button to quit.');
SetMouseXY(40,12); SetMouseXY(40,12);
Repeat Repeat
Writeln(GetMouseX,',',GetMouseY);
If (GetMouseX>70) then If (GetMouseX>70) then
SetMouseXY(10,GetMouseY); SetMouseXY(10,GetMouseY);
If (GetMouseY>20) then If (GetMouseY>20) then
SetMouseXY(GetMouseX,5); SetMouseXY(GetMouseX,5);
GetMouseEvent(Event); Until (GetMouseButtons=MouseRightButton);
Until (Event.Buttons=MouseRightButton) and
(Event.Action=MouseActionDown);
DoneMouse; DoneMouse;
end. end.