1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-24 10:12:20 -05:00
Simba/Units/MMLAddon/LPInc/Wrappers/lp_mouse.inc
Merlijn Wajer f45d6bbad7 Lape: Update wrappers.
Squashes following commits:

-   Lape: New wrappers.
-   Lape: Updated exported methods.
-   Lape: Renamed wrapper files.
-   Lape: Renamed methods in exported methods.
-   Lape: Update MMLPSThread.
-   Lape: Compilation fixes.
2011-08-06 14:57:03 +02:00

40 lines
1.2 KiB
PHP

procedure Lape_MoveMouse(const Params: PParamArray);
begin
ps_MoveMouse(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
end;
procedure Lape_ScrollMouse(const Params: PParamArray);
begin
ps_ScrollMouse(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
end;
procedure Lape_GetMousePos(const Params: PParamArray);
begin
ps_GetMousePos(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
end;
procedure Lape_ConvIntClickType(const Params: PParamArray; const Result: Pointer);
begin
PClickType(Result)^ := ConvIntClickType(PInteger(Params^[0])^);
end;
procedure Lape_HoldMouse(const Params: PParamArray);
begin
ps_HoldMouse(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
end;
procedure Lape_ReleaseMouse(const Params: PParamArray);
begin
ps_ReleaseMouse(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
end;
procedure Lape_ClickMouse(const Params: PParamArray);
begin
ps_ClickMouse(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
end;
procedure Lape_IsMouseButtonDown(const Params: PParamArray; const Result: Pointer);
begin
Pboolean(Result)^ := ps_IsMouseButtonDown(Pinteger(Params^[0])^);
end;