|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как подогнать размеры bmp 556х794(А5)
у мне имеется рисунок с размером 1680х2421 надо
подогнать размеры 556х794 |
#2
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); var bmp1, bmp2: TBitmap; begin bmp1 := TBitmap.Create; try bmp1.LoadFromFile('Имя файла исходного рисунка'); bmp2 := TBitmap.Create; try bmp2.Width := 556; bmp2.Height := 794; bmp2.Canvas.StretchDraw(Rect(0, 0, bmp2.Width, bmp2.Height), bmp1); bmp2.SaveToFile('Имя файла подогнанного рисунка'); finally bmp2.Free; end; finally bmp1.Free; end; end; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Akmal (08.04.2014)
|
#3
|
|||
|
|||
Thank you
Thank you worked
|