1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-24 08:18:52 -05:00
Simba/Tests/PS/mouse.mufa
2010-03-12 18:10:10 +01:00

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.