Bildgroesse veraendern

[SirThornberry]

und damit das Bild nach dem Stretchen auch ansehnlich ist sollte man:

Delphi-Quellcode:

SetStretchBltMode(image1.Picture.Bitmap.Canvas.Handle, STRETCH_HALFTONE);
SetBrushOrgEx(image1.Picture.Bitmap.Canvas.Handle, 0, 0, nil);

vor

Delphi-Quellcode:

StretchBlt(image1.Picture.Bitmap.Canvas.Handle, 0, 0, image1.Width, 
        image1.Height, Bild.Canvas.Handle, 0, 0, Bild.Width, Bild.Height, srccopy);

aufrufen.