CoreLib: Fixed Canvas.StretchDraw(). I forgot to undo previous debug testing comments.

1 files changed, 6 insertions, 3 deletions

diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas
index 3669ca94..9ae7f503 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/gfxbase.pas
@@ -1277,8 +1277,8 @@ end;
 
 procedure TfpgBaseInterpolation.Execute(x, y, w, h: integer);
 begin
-//  tempimage := TfpgImageBase.Create;
-//  tempimage.AllocateImage(image.ColorDepth, w, image.Height);
+  tempimage := TfpgImageBase.Create;
+  tempimage.AllocateImage(image.ColorDepth, w, image.Height);
 
   xfactor   := image.Width / w;
   yfactor   := image.Height / h;
@@ -1296,7 +1296,7 @@ end;
 
 destructor TfpgBaseInterpolation.Destroy;
 begin
-//  tempimage.Free;
+  tempimage.Free;
   inherited Destroy;
 end;
 
@@ -1399,7 +1399,10 @@ begin
     dww := FWidth;
 
   FImageDataSize := dww * FHeight * 4;
+  FImageData := nil;
   GetMem(FImageData, FImageDataSize);
+  if FImageData = nil then
+    raise Exception.Create('Failed to allocate ' + IntToStr(FImageDataSize) + 'bytes of memory for FImageData');
 end;
 
 procedure TfpgImageBase.AllocateMask;