сжатие фотографий

[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/

[mihali4]

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

Темы с вложениями вместо исходного кода, а также с неправильно оформленным кодом будут мгновенно закрываться, а нарушитель - получать нарушение №6 - "Нарушение правил форума" и штраф 6 очков.