1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-05 00:45:14 -05:00

Exported TMufasaBitmap with LoadFromFile and SaveToFile

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@303 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-12-20 20:53:54 +00:00
parent 7041409533
commit 4c33f0798a

View File

@ -307,6 +307,7 @@ procedure SIRegister_Mufasa(cl: TPSPascalCompiler);
begin;
with cl.AddClassN(cl.FindClass('TObject'),'TMufasaBitmap') do
begin;
RegisterMethod('function SaveToFile(const FileName : string) :boolean;');
RegisterMethod('procedure LoadFromFile(const FileName : string);');
end;
@ -316,8 +317,9 @@ procedure RIRegister_Mufasa(cl: TPSRuntimeClassImporter);
begin;
with cl.Add(TMufasaBitmap) do
begin
RegisterConstructor(@TMufasaBitmap.Create,'CREATE');
RegisterMethod(@TMufasaBitmap.SaveToFile, 'SAVETOFILE');
RegisterConstructor(@TMufasaBitmap.LoadFromFile, 'LOADFROMFILE');
RegisterMethod(@TMufasaBitmap.LoadFromFile, 'LOADFROMFILE');
end;
end;