вписать картинку в квадрат

← →
LexXL (2007-11-07 14:12) [0]

? есть картинко 1.jpg например (640*480)
как вписать ее в квадрат (150*200)
чтобы она не просто стала такого размера а вписалась в эти размеры
проорционально

//uses jpeg;

bmp: TBItmap;
jpg: TJpegImage;

jpg := TJpegImage.Create;
jpg.Loadfromfile("c:\123\1.jpg");
bmp:= Tbitmap.Create;

bmp.Width := strtoint(Edit1.text);
bmp.Height:= strtoint(Edit2.text);
bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpg );

jpg.Assign( bmp );
jpg.SaveToFile(ChangeFileext( "c:\123\1_thumb.jpg" ));

bmp.free;
jpg.free;

заранее огромное спасибо

← →
Галинка © (2007-11-07 14:16) [1]

StretchDraw?

← →
LexXL (2007-11-07 14:57) [2]

Ну так кто нить поможет

Тебе уже не поможешь, тут надо за тебя писать программу.

вписать картинку в квадрат Найти похожие ветки