TBitmap verkleinern

[bitsetter]

Delphi-Quellcode:

...  
  bmpGross.Canvas.StretchDraw(Rect(0,0,100,100), bmpGross);

  bmpGross.Width:= 100;
  bmpGross.Height:= 100;

  bmpGross.SaveToFile(ExtractFilePath(ParamStr(0)) + 'BildNeu.bmp');
  bmpGross.Free;
  bmpKlein.Free;
end;

Da du das grosse Bild abspeicherst.