сжатие фотографий в квадрат

[AnKor94]

нужно переделать

begin 
jpg := TJpegImage.Create; 
jpg.Loadfromfile('C:\\1.jpg'); 
if jpg.Height > jpg.Width then 
scale := 250 / jpg.Height 
else 
scale := 250 / jpg.Width; 
bmp:= Tbitmap.Create; 
bmp.Width := Round( jpg.Width * scale ); 
bmp.Height:= Round( jpg.Height * scale ); 
bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpg ); 
Self.Canvas.Draw( 2000, 10, bmp ); 
jpg.Assign( bmp ); 
jpg.SaveToFile( 'C:\\1small.jpg' ); 
bmp.free; 
jpg.free; 
end;

так, чтобы фотографии становились квадратными - но не растягивались, а свободное место занималось белым цветом...

эта программа выкладывает на ftp фотографии и если они не квадратные - то скрипт их показывает очень неупорядоченно.. вот пример http://www.sch-10.ru/photo/mart/

[notHaker]

BitMap := TBitMap.Create;
BitMap.LoadFromFile(_file);
try
  if BitMap.Width = bmp.Height then exit;
  if BitMap.Width > bmp.Height then
  begin   //Первый случай, если ширина > длинны
    DestMap.Width := BitMap.Width;
    DestMap.Height := BitMap.Width;
    DestMap.Draw(0, (BitMap.Width - bmp.Height) div 2, BitMap);
  end
  else
  begin
    //по аналогии
  end;
finally
  BitMap.Free;
end;

А дальше ужимаете StretcBlt в HALFTONE