paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:00:07 +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;
Var
Event : TMouseEvent;
begin
InitMouse;
Writeln('Click right mouse button to quit.');
SetMouseXY(40,12);
Repeat
Writeln(GetMouseX,',',GetMouseY);
If (GetMouseX>70) then
SetMouseXY(10,GetMouseY);
If (GetMouseY>20) then
SetMouseXY(GetMouseX,5);
GetMouseEvent(Event);
Until (Event.Buttons=MouseRightButton) and
(Event.Action=MouseActionDown);
Until (GetMouseButtons=MouseRightButton);
DoneMouse;
end.