Mit Bildern arbeiten

[Matze]

Delphi-Quellcode:

procedure TForm1.ResizePicture(dir: string; width, height: integer);
var bmp:TBitmap;
    jpeg:TJpegImage;
begin
  Jpeg:=TJpegImage.Create;
  try
    jpeg.LoadFromFile(dir);
    bmp:=TBitmap.Create;
      try
        If jpeg.width>jpeg.Height then
        begin
          bmp.width:=width;
          bmp.height:=height; 
        end else
        begin
          bmp.width:=height;
          bmp.Height:=width; 
        end;
        bmp.canvas.StretchDraw(Rect(0,0,bmp.width,bmp.height),jpeg);
        Image1.Canvas.Draw(0,0,bmp);
      finally
        bmp.free;
      end;
  finally
    jpeg.free;
  end;
end;

Alle Angaben ohne Gewähr!