[suche] bild verkleinern <-- einfachsten weg

[Hador]

So ich habe dir mal ein kleines Beispiel dazu geschrieben:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  Types, Graphics;

var
  bmp, tmpbmp: TBitmap;

begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('...');

  tmpbmp := TBitmap.Create;
  tmpbmp.Width := 500;
  tmpbmp.Height := 500;
  tmpbmp.Canvas.StretchDraw(Rect(0, 0, 500, 500), bmp);
  bmp.Assign(tmpbmp);
  tmpbmp.Free;

  bmp.SaveToFile('...');
  bmp.Free;
end.