Workaround: TMufasabitmap = Pointer in lape.

Villavu · Jul 5, 2012 · f37c35a · f37c35a
1 parent 599a790
commit f37c35a
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/Units/MMLAddon/LPInc/lpcompile.inc b/Units/MMLAddon/LPInc/lpcompile.inc
@@ -129,3 +129,7 @@ addGlobalType('array of TSysProc', 'TSysProcArr');
 addGlobalType('packed record _type, is_text_color: integer; r_low,r_high,g_low,g_high,b_low,b_high,set_col: integer; ref_color,tol,cts: integer; end;', 'TOCRFilterData');
 
 addGlobalType('array of TOCRFilterData', 'TOCRFilterDataArray');
+
+{ This is a workaround to allow Lape to export TMufasaBitmaps.
+  Also see lpexportedmethods.inc }
+addGlobalType('Pointer', 'TMufasaBitmap');
diff --git a/Units/MMLAddon/LPInc/lpexportedmethods.inc b/Units/MMLAddon/LPInc/lpexportedmethods.inc
@@ -44,7 +44,11 @@ AddGlobalFunc('function CreateDTMPoint(x,y,c,t,asz: integer; bp: boolean): TMDTM
 { Bitmap }
 
 AddGlobalFunc('function CreateBitmapString(bmp: integer): string', @Lape_CreateBitmapString);
-//AddGlobalFunc('function GetMufasaBitmap(bmp: integer): TMufasaBitmap', @Lape_GetMufasaBitmap);
+
+{ This is a temporary workaround to allow Lape to pass TMufasaBitmaps to plugins.
+  Also see lpcompile.inc}
+AddGlobalFunc('function GetMufasaBitmap(bmp: integer): Pointer', @Lape_GetMufasaBitmap);
+
 AddGlobalFunc('function CreateBitmap(w,h: integer): integer', @Lape_CreateBitmap);
 AddGlobalFunc('procedure FreeBitmap(Number: integer);', @Lape_FreeBitmap);
 AddGlobalFunc('procedure SaveBitmap(Bmp: integer; path: string);', @Lape_SaveBitmap);