--- 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; + +