Simba/Units/MMLAddon/LPInc/Wrappers/lp_window.inc

procedure Lape_SetDesktopAsClient(const Params: PParamArray);
begin
  ps_SetDesktopAsClient();
end;

procedure Lape_SetTargetArray(const Params: PParamArray; const Result: Pointer);
begin
  Pinteger(Result)^ := ps_SetTargetArray(PInteger(Params^[0])^, Pinteger(Params^[1])^, Pinteger(Params^[2])^);
end;

procedure Lape_SetTargetBitmap(const Params: PParamArray; const Result: Pointer);
begin
  Pinteger(Result)^ := ps_SetTargetBitmap(PInteger(Params^[0])^);
end;

procedure Lape_SetEIOSTarget(const Params: PParamArray; const Result: Pointer);
begin
  Pinteger(Result)^ := ps_SetEIOSTarget(Pstring(Params^[0])^, PVariant(Params^[1])^);
end;

procedure Lape_SetImageTarget(const Params: PParamArray);
begin
  ps_SetImageTarget(Pinteger(Params^[0])^);
end;

procedure Lape_SetKeyMouseTarget(const Params: PParamArray);
begin
  ps_SetKeyMouseTarget(Pinteger(Params^[0])^);
end;

procedure Lape_GetImageTarget(const Params: PParamArray; const Result: Pointer);
begin
  Pinteger(Result)^ := ps_GetImageTarget();
end;

procedure Lape_GetKeyMouseTarget(const Params: PParamArray; const Result: Pointer);
begin
  Pinteger(Result)^ := ps_GetKeyMouseTarget();
end;

procedure Lape_ExportImageTarget(const Params: PParamArray; const Result: Pointer);
begin
  PTarget_Exported(Result)^ := ps_ExportImageTarget();
end;

procedure Lape_ExportKeyMouseTarget(const Params: PParamArray; const Result: Pointer);
begin
  PTarget_Exported(Result)^ := ps_ExportKeyMouseTarget();
end;

procedure Lape_FreeTarget(const Params: PParamArray);
begin
  ps_FreeTarget(Pinteger(Params^[0])^);
end;

procedure Lape_GetClientDimensions(const Params: PParamArray);
begin
  ps_GetClientDimensions(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
end;

procedure Lape_GetClientPosition(const Params: PParamArray);
begin
  ps_GetClientPosition(Pinteger(Params^[0])^, Pinteger(Params^[1])^);
end;

procedure Lape_Freeze(const Params: PParamArray; const Result: Pointer);
begin
  Pboolean(Result)^ := ps_Freeze();
end;

procedure Lape_Unfreeze(const Params: PParamArray; const Result: Pointer);
begin
  Pboolean(Result)^ := ps_Unfreeze();
end;

procedure Lape_ActivateClient(const Params: PParamArray);
begin
  ps_ActivateClient();
end;

procedure Lape_IsTargetValid(const Params: PParamArray; const Result: Pointer);
begin
  Pboolean(Result)^ := ps_IsTargetValid();
end;