From f46f841658bf81abb0c3101c0a4074d5c55873bd Mon Sep 17 00:00:00 2001 From: Niels Date: Thu, 4 Aug 2011 00:00:54 +0200 Subject: [PATCH] Commented functions that cannot be imported yet for lape. --- Units/MMLAddon/LPInc/lpexportedmethodsinc.inc | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Units/MMLAddon/LPInc/lpexportedmethodsinc.inc b/Units/MMLAddon/LPInc/lpexportedmethodsinc.inc index dd2daa9..194cd76 100644 --- a/Units/MMLAddon/LPInc/lpexportedmethodsinc.inc +++ b/Units/MMLAddon/LPInc/lpexportedmethodsinc.inc @@ -1,5 +1,5 @@ AddGlobalFunc('function ps_CreateBitmapString(bmp: integer): string', @Lape_CreateBitmapString); -AddGlobalFunc('function ps_GetMufasaBitmap(bmp: integer): TMufasaBitmap', @Lape_GetMufasaBitmap); +//AddGlobalFunc('function ps_GetMufasaBitmap(bmp: integer): TMufasaBitmap', @Lape_GetMufasaBitmap); AddGlobalFunc('function ps_CreateBitmap(w,h: integer): integer', @Lape_CreateBitmap); AddGlobalFunc('procedure ps_FreeBitmap(Number: integer);', @Lape_FreeBitmap); AddGlobalFunc('procedure ps_SaveBitmap(Bmp: integer; path: string);', @Lape_SaveBitmap); @@ -20,7 +20,7 @@ AddGlobalFunc('procedure ps_DrawTPABitmap(bitmap: integer; TPA: TPointArray; Col AddGlobalFunc('procedure ps_DrawATPABitmap(bitmap: integer; ATPA: T2DPointArray);', @Lape_DrawATPABitmap); AddGlobalFunc('procedure ps_DrawATPABitmapEx(bitmap: integer; ATPA: T2DPointArray; Colors: TIntegerArray);', @Lape_DrawATPABitmapEx); AddGlobalFunc('procedure ps_FastDrawClear(bmp: integer; Color: TColor);', @Lape_FastDrawClear); -AddGlobalFunc('procedure ps_DrawBitmap(Bmp: Integer; Dest: TCanvas; x, y: Integer);', @Lape_DrawBitmap); +//AddGlobalFunc('procedure ps_DrawBitmap(Bmp: Integer; Dest: TCanvas; x, y: Integer);', @Lape_DrawBitmap); AddGlobalFunc('procedure ps_FastDrawTransparent(x, y: Integer; SourceBitmap, TargetBitmap: Integer);', @Lape_FastDrawTransparent); AddGlobalFunc('procedure ps_SetTransparentColor(Bmp: integer; Color: TColor);', @Lape_SetTransparentColor); AddGlobalFunc('function ps_GetTransparentColor(Bmp: integer): TColor', @Lape_GetTransparentColor); @@ -82,19 +82,19 @@ AddGlobalFunc('function ps_FindDTMsRotatedSE(DTM: Integer; var Points: TPointArr AddGlobalFunc('procedure ps_SetDTMName(DTM: integer; const name: string);', @Lape_SetDTMName); AddGlobalFunc('function ps_DTMFromString(const DTMString: String): Integer', @Lape_DTMFromString); AddGlobalFunc('procedure ps_FreeDTM(DTM: Integer);', @Lape_FreeDTM); -AddGlobalFunc('function ps_GetDTM(index: Integer): TMDTM', @Lape_GetDTM); +//AddGlobalFunc('function ps_GetDTM(index: Integer): TMDTM', @Lape_GetDTM); AddGlobalFunc('function ps_AddTSDTM(const d: TSDTM): Integer', @Lape_AddTSDTM); -AddGlobalFunc('function ps_AddDTM(const d: TMDTM): Integer', @Lape_AddDTM); -AddGlobalFunc('procedure ps_PrintDTM(const aDTM: TMDTM);', @Lape_PrintDTM); -AddGlobalFunc('function ps_MDTMToSDTM(Const DTM: TMDTM): TSDTM', @Lape_MDTMToSDTM); -AddGlobalFunc('function ps_SDTMToMDTM(Const DTM: TSDTM): TMDTM', @Lape_SDTMToMDTM); +//AddGlobalFunc('function ps_AddDTM(const d: TMDTM): Integer', @Lape_AddDTM); +//AddGlobalFunc('procedure ps_PrintDTM(const aDTM: TMDTM);', @Lape_PrintDTM); +//AddGlobalFunc('function ps_MDTMToSDTM(Const DTM: TMDTM): TSDTM', @Lape_MDTMToSDTM); +//AddGlobalFunc('function ps_SDTMToMDTM(Const DTM: TSDTM): TMDTM', @Lape_SDTMToMDTM); AddGlobalFunc('function ps_CreateDTMPoint(x,y,c,t,asz: integer; bp: boolean): TMDTMPoint', @Lape_CreateDTMPoint); AddGlobalFunc('function ext_UnTar(const Input: string; var Content: TStringArray): boolean', @Lape_); AddGlobalFunc('function ext_UnTarEx(const Input: string; const outputdir: string; overwrite: boolean): boolean', @Lape_); AddGlobalFunc('function ext_DecompressBZip2(const input: string; var output: string; const BlockSize: Cardinal): boolean', @Lape_); AddGlobalFunc('function ext_GetPage(const url: string): string', @Lape_); -AddGlobalFunc('function ext_MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer', @Lape_); -AddGlobalFunc('function ext_SDTMToMDTM(Const DTM: TSDTM): TMDTM', @Lape_); +//AddGlobalFunc('function ext_MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer', @Lape_); +//AddGlobalFunc('function ext_SDTMToMDTM(Const DTM: TSDTM): TMDTM', @Lape_); AddGlobalFunc('function ext_InputQuery(const ACaption, APrompt: String; var Value: String): Boolean', @Lape_); AddGlobalFunc('function ext_ScriptText: string', @Lape_); AddGlobalFunc('function ext_GetSelectedText: string', @Lape_);