| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
вписать картинку в квадрат [D7, XP]
LexXL © (2007-11-07 14:12:00)? есть картинко 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;
заранее огромное спасибо
Anatoly Podgoretsky (2007-11-07 15:01:00) [1]Тебе уже не поможешь, тут надо за тебя писать программу.
LexXL (2007-11-07 14:57:00) [2]Ну так кто нить поможет
Галинка (2007-11-07 14:16:00) [3]StretchDraw?
| |
