Програмное уменьшение картинки |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Програмное уменьшение картинки |
DekaR |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 14 Пол: Мужской Репутация: 0 |
Пользователь с помошью OpenPictureDialog открывает картинку(jpg,bmp или gif). Программа должна её уменьшить или увеличить до размеров 290*290 и в уменьшеном виде сохранить.Сожранить-не проблемма,а вот уменьшить/увеличить....
|
volvo |
Сообщение
#2
|
Гость |
Скачай DRKB и читай темы:
"Качественно уменьшить изображение" и "Как качественно увеличить изображение при помощи билинейной интерполяции" |
DekaR |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 14 Пол: Мужской Репутация: 0 |
10 метров Вы издеваетесь? У меня диал-ап со скоросмтью 48
|
volvo |
Сообщение
#4
|
Гость |
А ты что, хочешь, чтобы я выложил сюда этот кусок? И потом придет человек, у которого ТАК ЖЕ КАК У ТЕБЯ диалап и скажет, "А зачем??? Это решение у меня уже есть - оно же есть в DRKB!!! Я ищу другое!" А открытие страницы - траффик, а за траффик он платит... И кто прав?
А если надо будет 4 функции WinAPI? Тебе и из MSDN их сюда копировать? |
DekaR |
Сообщение
#5
|
Новичок Группа: Пользователи Сообщений: 14 Пол: Мужской Репутация: 0 |
У и как?Там в качестве "некачественного" есть пример :
procedure TForm1.Button1Click(Sender: TObject); А мне нужно: procedure TForm1.Button1Click(Sender: TObject); |
Ozzя |
Сообщение
#6
|
Гуру Группа: Пользователи Сообщений: 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; |
Гость |
Сообщение
#7
|
Гость |
|
Текстовая версия | 27.07.2024 21:12 |