1:
2:
3:
4:
5:
6:
7:
8:

procedure TGpGraphics.DrawImage(Image: TGPImage; X, Y, Width, Height: Integer);
begin
if ((Image.Width <= 10) and (Width > Image.Width)) or           
   ((Image.Height <= 10) and (Height > Image.Height))  then
     DrawSmallStretchedImage(Image, X, Y, Width, Height)
else
  GdipDrawImageRectI (fGraphics, Image.fHandle, X, Y, Width, Height);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

//.....
 graphics := TGPGraphics.Create(HDCImage.Canvas.Handle);
  graphics.SetInterpolationMode(InterpolationModeHighQualityBicubic);
  graphics.DrawImage(
    image,
    MakeRect(destx,  desty , faktor * width, faktor * height),  
    0, 0,        
    width,       
    height,      
    UnitPixel);
//.....