Quadratische Thumbnails erstellen

[Bummi]

ich hatte nur einen Auschnitt meiner Tools geschickt, hier der fehlende Teil.

Delphi-Quellcode:

Procedure SaveBMPasJPG(Const FN:String;BMP:TBitmap;Qual:Integer);
var
  jp:TJpegImage;
begin
      jp:=TJpegImage.Create;
      jp.CompressionQuality :=  qual;
      try
      with jp do
        begin
          Assign(BMP);
          SaveToFile(fn)
        end;
      finally
      jp.Free;
      end;
end;