I got the feeling not everyone understands that I do not want to write a different mouse function. Just change the x and y integer parameters to one TPoint, preferably by overloading. But can also be done by creating function clones like this:
Simba Code:
procedure MousePoint(MousePoint: TPoint; ranx, rany: Integer; button:Variant);
begin
Mouse(MousePoint.x, MousePoint.y, ranx, rany, button);
end;
Originally Posted by
weequ
Actually your method is currently quite detectable as it can only move mouse right and down. Try this
GetMousePos(x,y);
Mouse(x-1,y-1,3,3,mouse_Left);
I wish pascal/simba supported function overloading. Then we could have multiple procedures called "Mouse" where the only difference is the parameters.
Might be tackled with this:
Simba Code:
procedure Mouse(MousePoint: TPoint; ranx, rany: Integer; button:Variant); overload;
begin
Mouse(MousePoint.x-ranx, MousePoint.y-rany, ranx, rany, button);
end;
But maybe it would be better to change in the regular mouse method, oh well.