Текущий архив: 2007.12.02;
Скачать: CL | DM;

Вниз

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

← →
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]

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

---

← →
Anatoly Podgoretsky ©   (2007-11-07 15:01) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.12.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c