Програмное уменьшение картинки |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Програмное уменьшение картинки |
DekaR |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 14 Пол: Мужской Репутация: 0 |
Пользователь с помошью OpenPictureDialog открывает картинку(jpg,bmp или gif). Программа должна её уменьшить или увеличить до размеров 290*290 и в уменьшеном виде сохранить.Сожранить-не проблемма,а вот уменьшить/увеличить....
|
Ozzя |
Сообщение
#2
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Код procedure TForm1.Button1Click(Sender: TObject); var MyRect : TRect; begin With MyRect do begin Left:=0; Right:=290; Top:=0; Bottom:=290; end; Image1.BoundsRect:=MyRect; Image1.Stretch:=True; end; |
Текстовая версия | 19.04.2024 14:21 |