просмотр картинки - Мультимедиа в Delphi

zmeyy · 04.06.2009, 16:22

Такой вопрос как сделать чтоб в opendialog выбираешь картинку и она показывалась на форме

Neeter · 04.06.2009, 16:43

Кидайте на форму TImage с закладки Additional
Устанавливать свойства по вкусу:
Stretch - растягивание картинки по всему TImage
Center - центрирование картинки
Proportional - Сохранение пропорций картинки
Дальше кидайте кнопку и TOpenDialog с закладки Dialogs
Дальше в событии onClick кнопки пропишите:

Код:

 if OpenDialog1.Execute then
  Image1.Picture.LoadFromFile(OpenDialog1.FileName);

Все.
У OpenDialog можете изменить свойство Filter - это какие расширения будут показываться в диалоге.

mutabor · 04.06.2009, 18:11

Есть вообще OpenPictureDialog там еще и превьюшка есть

По теме: нужен TImage или TPaintBox на форме, и картинку в него.

04.06.2009, 16:22	#1
zmeyy Пользователь Регистрация: 03.06.2009 Сообщений: 22	просмотр картинки Такой вопрос как сделать чтоб в opendialog выбираешь картинку и она показывалась на форме

04.06.2009, 16:43	#2
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Кидайте на форму TImage с закладки Additional Устанавливать свойства по вкусу: Stretch - растягивание картинки по всему TImage Center - центрирование картинки Proportional - Сохранение пропорций картинки Дальше кидайте кнопку и TOpenDialog с закладки Dialogs Дальше в событии onClick кнопки пропишите: Код: `if OpenDialog1.Execute then Image1.Picture.LoadFromFile(OpenDialog1.FileName);` Все. У OpenDialog можете изменить свойство Filter - это какие расширения будут показываться в диалоге. Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

04.06.2009, 18:11	#3
mutabor Телепат с дипломом Старожил Регистрация: 10.06.2007 Сообщений: 4,929	Есть вообще OpenPictureDialog там еще и превьюшка есть По теме: нужен TImage или TPaintBox на форме, и картинку в него. The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen) Проверь себя! Онлайн тестирование \| Мой блог

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Просмотр картинки (бесконечная картинка)	D!zel	Мультимедиа в Delphi	1	31.01.2009 14:32
Размер Image изменяется на размер картинки, а сама она рисуется на области первой картинки	RPGer	Мультимедиа в Delphi	6	20.10.2008 19:54
Просмотр мультиков	ElenaA	Общие вопросы Delphi	8	19.05.2008 12:09
просмотр dll	jziiiiiii	Win Api	5	26.02.2008 18:54
Просмотр картинки	Terran	Общие вопросы Delphi	4	07.02.2008 08:05