moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-25 07:51:46 -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('procedure Free');
RegisterMethod('function SaveToFile(const FileName : string) :boolean;'); RegisterMethod('function SaveToFile(const FileName : string) :boolean;');
RegisterMethod('procedure LoadFromFile(const FileName : string);'); RegisterMethod('procedure LoadFromFile(const FileName : string);');
RegisterMethod('procedure LoadFromTBitmap(bmp: TBitmap);');
RegisterProperty('Width','Integer',iptR); RegisterProperty('Width','Integer',iptR);
RegisterProperty('Height','Integer',iptR); RegisterProperty('Height','Integer',iptR);
RegisterProperty('Index','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.free,'FREE');
RegisterMethod(@TMufasaBitmap.SaveToFile, 'SAVETOFILE'); RegisterMethod(@TMufasaBitmap.SaveToFile, 'SAVETOFILE');
RegisterMethod(@TMufasaBitmap.LoadFromFile, 'LOADFROMFILE'); RegisterMethod(@TMufasaBitmap.LoadFromFile, 'LOADFROMFILE');
RegisterMethod(@TMufasaBitmap.LoadFromTBitmap, 'LOADFROMTBITMAP');
end; end;
end; end;