Thumbnails erstellen - Seitenverhältnisse beibehalten

[DelphiMuffin]

Delphi-Quellcode:

procedure resizePicture(indir: string; outdir: string; width, height: integer;
                        aspectratio: boolean);
var bmp:TBitmap;
    jpeg:TJpegImage;
begin
     Jpeg:=TJpegImage.Create;
     try
        jpeg.LoadFromFile(indir);
        bmp:=TBitmap.Create;
        if aspectratio=true then height:=width * jpeg.Height div jpeg.Width;
        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);
           jpeg.assign(bmp);
        finally
        bmp.free;
        end;
     jpeg.SavetoFile(outdir);
     finally
     jpeg.free;
     end;
end;

Hab es selber hinbekommen...