Zitat von
Chakotay1308:
Hat das jemand schon probiert oder auch so spontan einen Vorschlag?
Ja.
Delphi-Quellcode:
procedure ResizeImage(newWidth, newHeight: integer; Image: TImage);
begin
Image.Canvas.StretchDraw(Rect(0,0,newWidth,newHeight), Image.Picture.Graphic);
Image.Picture.Graphic.Width := newWidth;
Image.Picture.Graphic.Height := newHeight;
end;
Delphi-Quellcode:
// The Test Sample
procedure TForm1.Button1Click(Sender: TObject);
begin
ResizeImage(image1.picture.Width div 2 , image1.picture.Height div 2, image1);
end;
Halt! Stopp, das geht so nicht. (nur mit Bitmaps zum verkleinern)