From 3ee1d74427a684c33c424b58f5fee830f32f8a73 Mon Sep 17 00:00:00 2001 From: Merlijn Wajer Date: Fri, 14 Oct 2011 13:00:16 +0200 Subject: [PATCH] Exported LoadFromTBitmap; untested. I have not been able to verify that it works yet, because PascalScript on Linux fails. Will see if the new autobuild system works. :-) --- Units/MMLAddon/PSInc/uPSC_mml.pas | 1 + Units/MMLAddon/PSInc/uPSR_mml.pas | 1 + 2 files changed, 2 insertions(+) diff --git a/Units/MMLAddon/PSInc/uPSC_mml.pas b/Units/MMLAddon/PSInc/uPSC_mml.pas index 21b7d2e..c99813b 100644 --- a/Units/MMLAddon/PSInc/uPSC_mml.pas +++ b/Units/MMLAddon/PSInc/uPSC_mml.pas @@ -44,6 +44,7 @@ begin RegisterMethod('procedure Free'); RegisterMethod('function SaveToFile(const FileName : string) :boolean;'); RegisterMethod('procedure LoadFromFile(const FileName : string);'); + RegisterMethod('procedure LoadFromTBitmap(bmp: TBitmap);'); RegisterProperty('Width','Integer',iptR); RegisterProperty('Height','Integer',iptR); RegisterProperty('Index','Integer',iptR); diff --git a/Units/MMLAddon/PSInc/uPSR_mml.pas b/Units/MMLAddon/PSInc/uPSR_mml.pas index a472367..eec1b51 100644 --- a/Units/MMLAddon/PSInc/uPSR_mml.pas +++ b/Units/MMLAddon/PSInc/uPSR_mml.pas @@ -142,6 +142,7 @@ begin RegisterMethod(@TMufasaBitmap.free,'FREE'); RegisterMethod(@TMufasaBitmap.SaveToFile, 'SAVETOFILE'); RegisterMethod(@TMufasaBitmap.LoadFromFile, 'LOADFROMFILE'); + RegisterMethod(@TMufasaBitmap.LoadFromTBitmap, 'LOADFROMTBITMAP'); end; end;