--- fcl/image/fpcanvas.inc	2006-06-29 20:31:38.000000000 +0200
+++ ../fotoweb/fpcanvas.inc	2006-08-20 23:36:50.000000000 +0200
@@ -605,3 +605,26 @@
     end;
 end;
 
+procedure TFPCustomCanvas.StretchDraw(x, y, w, h: integer; source: TFPCustomImage);
+var i : TFPCustomInterpolation;
+    FreeInterpolation : boolean;
+    IP : TFPCustomInterpolation;
+begin
+  FreeInterpolation := not assigned (FInterpolation);
+  if FreeInterpolation then
+    IP := TMitchelInterpolation.Create
+  else
+    IP := FInterpolation;
+  try
+    with IP do
+      begin
+      Initialize (source, self);
+      Execute (x,y,w,h);
+      end;
+  finally
+    if FreeInterpolation then
+      IP.Free;
+  end;
+end;
+
+
