1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-23 07:48:50 -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; begin;
with cl.AddClassN(cl.FindClass('TObject'),'TMufasaBitmap') do with cl.AddClassN(cl.FindClass('TObject'),'TMufasaBitmap') do
begin; begin;
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);');
end; end;
@ -316,8 +317,9 @@ procedure RIRegister_Mufasa(cl: TPSRuntimeClassImporter);
begin; begin;
with cl.Add(TMufasaBitmap) do with cl.Add(TMufasaBitmap) do
begin begin
RegisterConstructor(@TMufasaBitmap.Create,'CREATE');
RegisterMethod(@TMufasaBitmap.SaveToFile, 'SAVETOFILE'); RegisterMethod(@TMufasaBitmap.SaveToFile, 'SAVETOFILE');
RegisterConstructor(@TMufasaBitmap.LoadFromFile, 'LOADFROMFILE'); RegisterMethod(@TMufasaBitmap.LoadFromFile, 'LOADFROMFILE');
end; end;
end; end;