mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-18 07:15:00 -05:00
f8fc7069d3
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@224 3f818213-9676-44b0-a9b4-5e4c4e03d09d
33 lines
659 B
Plaintext
33 lines
659 B
Plaintext
program Mouse;
|
|
|
|
{
|
|
This program illustrates the Mufasa Mouse Functions
|
|
}
|
|
|
|
var
|
|
w, h, x, y: integer;
|
|
begin
|
|
getclientdimensions(w,h);
|
|
writeln(inttostr(w) + ', ' + inttostr(h));
|
|
MoveMouse(0, 0);
|
|
getmousepos(x, y);
|
|
writeln(inttostr(x) + ', ' + inttostr(y));
|
|
wait(1000);
|
|
MoveMouse(w, 0);
|
|
getmousepos(x, y);
|
|
writeln(inttostr(x) + ', ' + inttostr(y));
|
|
wait(1000);
|
|
MoveMouse(0, h);
|
|
getmousepos(x, y);
|
|
writeln(inttostr(x) + ', ' + inttostr(y));
|
|
wait(1000);
|
|
MoveMouse(w, h);
|
|
getmousepos(x, y);
|
|
writeln(inttostr(x) + ', ' + inttostr(y));
|
|
wait(1000);
|
|
ClickMouse(0, 0, mouse_Right);
|
|
|
|
for x := 0 to 400 do
|
|
MoveMouse(x, x);
|
|
end.
|