moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-27 11:32:18 -05:00
Code Issues Releases Wiki Activity

Exported LoadFromTBitmap; untested.

Browse Source 
I have not been able to verify that it works yet, because PascalScript
on Linux fails. Will see if the new autobuild system works. :-)
This commit is contained in:
Merlijn Wajer 2011-10-14 13:00:16 +02:00
parent 5a886fd6bd
commit 3ee1d74427
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Units/MMLAddon/PSInc/uPSC_mml.pas
View File

@ -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);

1
Units/MMLAddon/PSInc/uPSR_mml.pas
View File

@ -142,6 +142,7 @@ begin
RegisterMethod(@TMufasaBitmap.free,'FREE');
RegisterMethod(@TMufasaBitmap.SaveToFile, 'SAVETOFILE');
RegisterMethod(@TMufasaBitmap.LoadFromFile, 'LOADFROMFILE');
RegisterMethod(@TMufasaBitmap.LoadFromTBitmap, 'LOADFROMTBITMAP');
end;
end;