Bildgroesse veraendern

[bitsetter]

Hi,

für ein Bitmap könnte man es so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bild : TBitmap;
  Pfad : AnsiString;
begin
  Pfad := 'c:\Bild.bmp';
  if FileExists(Pfad) then
  begin
    Bild := TBitmap.Create;
    try
      Bild.LoadFromFile(Pfad);
      image1.Height := 100;
      image1.Width := 100;
      image1.Picture.Bitmap.Height := image1.Height;
      image1.Picture.Bitmap.Width := image1.Width;
      StretchBlt(image1.Picture.Bitmap.Canvas.Handle, 0, 0, image1.Width,
        image1.Height, Bild.Canvas.Handle, 0, 0, Bild.Width, Bild.Height, srccopy);

      image1.Picture.Bitmap.SaveToFile('C:\BildTest.bmp');
    finally
      Bild.Free;
    end;
  end;
end;

In der Delphi Hilfe steht "Hinweis: Stretch hat keine Wirkung, wenn die Eigenschaft Picture ein Bitmap enthält."