mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-22 23:38: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:
parent
7041409533
commit
4c33f0798a
@ -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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user