IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Програмное уменьшение картинки
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


Пользователь с помошью OpenPictureDialog открывает картинку(jpg,bmp или gif). Программа должна её уменьшить или увеличить до размеров 290*290 и в уменьшеном виде сохранить.Сожранить-не проблемма,а вот уменьшить/увеличить....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


У и как?Там в качестве "некачественного" есть пример :
procedure TForm1.Button1Click(Sender: TObject); 
begin
Form1.Canvas.Font.Size := 24;
Form1.Canvas.TextOut(0, 0, 'Text');
Form1.Canvas.CopyRect(Bounds(0, 50, 25, 10), Form1.Canvas,
Bounds(0, 0, 100, 40));
end;

А мне нужно:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OPD1.Execute then begin
Image1.picture.loadfromfile (OPD1.FileName);
label3.Caption:=OPD1.FileName;
{Здесь надо вставить код,который уменьшает изборажение в Image1.picture до размеров 290*290}
Image1.Show;
Form1.podpis.SetFocus;
end;
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 18.05.2022 12:40
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name