paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 23:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Mattias Gaertner to fix memory leak

Browse Source 
git-svn-id: trunk@12235 -
This commit is contained in:
michael 2008-11-26 19:06:36 +00:00
parent 790a6a01b7
commit 22bb6c804b
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
packages/fcl-image/src/fpinterpolation.inc
View File

@ -166,19 +166,23 @@ var maxy : integer;
rx,ry : integer;
begin
tempimage := TFPMemoryImage.Create (w,image.height);
tempimage.UsePalette := false;
xfactor := image.Width / w;
yfactor := image.Height / h;
if xfactor > 1.0 then
xsupport := MaxSupport
else
xsupport := xfactor * MaxSupport;
if yfactor > 1.0 then
ysupport := MaxSupport
else
ysupport := yfactor * MaxSupport;
Horizontal (w);
Vertical (x,y,w,h);
try
tempimage.UsePalette := false;
xfactor := image.Width / w;
yfactor := image.Height / h;
if xfactor > 1.0 then
xsupport := MaxSupport
else
xsupport := xfactor * MaxSupport;
if yfactor > 1.0 then
ysupport := MaxSupport
else
ysupport := yfactor * MaxSupport;
Horizontal (w);
Vertical (x,y,w,h);
finally
tempimage.Free;
end;
end;
{ TMitchelInterpolation }