mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-24 02:02:17 -05:00
f45d6bbad7
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.
65 lines
2.6 KiB
PHP
65 lines
2.6 KiB
PHP
procedure Lape_rs_GetUpText(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PString(Result)^ := ps_rs_GetUpText();
|
|
end;
|
|
|
|
procedure Lape_rs_GetUpTextAtEx(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_rs_GetUpTextAtEx(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pboolean(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_rs_GetUpTextAt(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_rs_GetUpTextAt(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_BitmapFromText(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pinteger(Result)^ := ps_BitmapFromText(PString(Params^[0])^, PString(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_MaskFromText(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PMask(Result)^ := ps_MaskFromText(PString(Params^[0])^, PString(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_TPAFromTextWrap(const Params: PParamArray);
|
|
begin
|
|
ps_TPAFromTextWrap(PString(Params^[0])^, PString(Params^[1])^, Pinteger(Params^[2])^, Pinteger(Params^[3])^, PPointArray(Params^[4])^);
|
|
end;
|
|
|
|
procedure Lape_TPAFromText(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PPointArray(Result)^ := ps_TPAFromText(PString(Params^[0])^, PString(Params^[1])^, Pinteger(Params^[2])^, Pinteger(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_GetTextATPA(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_GetTextATPA(P2DPointArray(Params^[0])^, Pinteger(Params^[1])^, Pstring(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_GetTextAt(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_GetTextAt(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^, Pinteger(Params^[3])^, Pinteger(Params^[4])^, Pinteger(Params^[5])^, Pinteger(Params^[6])^, Pinteger(Params^[7])^, Pstring(Params^[8])^);
|
|
end;
|
|
|
|
procedure Lape_GetTextAtEx(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_GetTextAtEx(Pinteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^, Pinteger(Params^[3])^, Pinteger(Params^[4])^, Pinteger(Params^[5])^, Pinteger(Params^[6])^, Pinteger(Params^[7])^, Pinteger(Params^[8])^, Pstring(Params^[9])^);
|
|
end;
|
|
|
|
procedure Lape_LoadSystemFont(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_LoadSystemFont(PFont(Params^[0])^, Pstring(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_LoadFont(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_LoadFont(Pstring(Params^[0])^, Pboolean(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_FreeFont(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_FreeFont(Pstring(Params^[0])^);
|
|
end;
|