mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-23 01:32:17 -05:00
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.
|