Подгон картинки под размер

@scroyler · Регистрация: 01.08.2011

Author24 — интернет-сервис помощи студентам

Добрый вечер.Подскажите пожалуйста как сделать так что бы нажав на кнопку выходило выбор картинки, потом эта картинка кидалась в Форм1 и уменьшалась/увеличивалась под размер моей рамки. ( можно ли сделать что бы рамку можно было еще и залить? туда же в программу)

@i8085 · 21.08.2011, 01:14

scroyler, используйте компоненты Image и OpenDialog.
Сделайте размер Image какой вам нужно и поставьте свойство Stretch в True (растягивать картинку под размер).
В обработчик нажатия кнопки вставьте:

Delphi

1	if OpenDialog1.Execute then Image1.Picture.LoadFromFile(OpenDialog1.Name);

Посмотрите также код в Программа для просмотра рисунков.

@scroyler · 21.08.2011, 07:30 **[ТС]**

Сообщение от i8085

scroyler, используйте компоненты Image и OpenDialog.
Сделайте размер Image какой вам нужно и поставьте свойство Stretch в True (растягивать картинку под размер).
В обработчик нажатия кнопки вставьте:

Delphi

1	if OpenDialog1.Execute then Image1.Picture.LoadFromFile(OpenDialog1.Name);

Посмотрите также код в Программа для просмотра рисунков.

Спасибо,но при запуске вылетает ошибка unknown picture file exctesion(.)

Добавлено через 23 минуты

Delphi

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Edit1.Text:=opendialog1.FileName;
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
end;
end.

Пишу так пишет unknown picture file exctesion(.jpg)

@Puporev · 21.08.2011, 09:21

Добавьте в раздел Uses Jpeg;

@scroyler 14 / 14 / 1 Регистрация: 01.08.2011 Сообщений: 332
		1
	Подгон картинки под размер 20.08.2011, 22:27. Показов 6238. Ответов 3 Метки нет (Все метки) Добрый вечер.Подскажите пожалуйста как сделать так что бы нажав на кнопку выходило выбор картинки, потом эта картинка кидалась в Форм1 и уменьшалась/увеличивалась под размер моей рамки. ( можно ли сделать что бы рамку можно было еще и залить? туда же в программу) 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	21.08.2011, 09:21	4
	Добавьте в раздел Uses Jpeg; 0