TBitmap verkleinern

[bitsetter]

Hallo,

oder so:

Delphi-Quellcode:

var
  Bild: TBitmap;
begin
  Bild:= TBitmap.Create;
  try
    Bild.Width:= 100;
    Bild.Height:= 100;
    SetStretchBltMode(Bild.Canvas.Handle, STRETCH_HALFTONE);
    SetBrushOrgEx(Bild.Canvas.Handle, 0, 0, nil);
    StretchBlt(Bild.Canvas.Handle, 0, 0, Bild.Width, Bild.Height, Image1.Picture.Bitmap.Canvas.Handle, 0, 0, Image1.Picture.Bitmap.Width, Image1.Picture.Bitmap.Height, SRCCOPY);
  finally
    Bild.SaveToFile('C:\bild.bmp');
  end;

Das Bild im Image ist das grosse Bild.