moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-23 15:58:51 -05:00
Code Issues Releases Wiki Activity

FIXED YO ERRORS!

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@48 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-09-13 05:00:13 +00:00
parent 5ca4ac75e1
commit dee2b98fd9
1 changed files with 328 additions and 322 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Units/MMLCore/bitmaps.pas
View File

@ -210,7 +210,7 @@ begin
end; end;
FreeSpots[FreeSpotsHigh] := Number; FreeSpots[FreeSpotsHigh] := Number;
end; end;
BmpArray[Number].Free; FreeAndNil(BmpArray[Number]);
end; end;
function TMufasaBitmap.SaveToFile(const FileName: string): boolean; function TMufasaBitmap.SaveToFile(const FileName: string): boolean;
@ -220,7 +220,7 @@ var
begin begin
ArrDataToRawImage(FData,Point(w,h),RawImage); ArrDataToRawImage(FData,Point(w,h),RawImage);
// Bmp := Graphics.TBitmap.Create; // Bmp := Graphics.TBitmap.Create;
Bmp := TLazIntfImage.Create(RawImage,true); Bmp := TLazIntfImage.Create(RawImage,false);
Bmp.SaveToFile(FileName); Bmp.SaveToFile(FileName);
Bmp.Free; Bmp.Free;
end; end;
@ -259,8 +259,14 @@ begin
end; end;
destructor TMBitmaps.Destroy; destructor TMBitmaps.Destroy;
var
I : integer;
begin begin
for i := 0 to BmpsCurr do
if BmpArray[i] <> nil then
FreeAndNil(BmpArray[i]);
SetLength(BmpArray,0);
SetLength(FreeSpots,0);
inherited Destroy; inherited Destroy;
end; end;
@ -314,7 +320,7 @@ end;
destructor TMufasaBitmap.Destroy; destructor TMufasaBitmap.Destroy;
begin begin
if Assigned(FData) then if Assigned(FData) then
Freemem(FData,w*h*SizeOf(TRGB32)); Freemem(FData);
inherited Destroy; inherited Destroy;
end; end;