ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
14.01.2008, 10:16
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
if OpenDialog1.Execute then begin
///тут код
end;
а что за код?
Так тот код, который нужен. К примеру, открывается OpenDialog, выбирается имя файла, затем с указанным файлом производятся некие действия, например, загрузка содержимого файла в компонент TMemo
Код:
if OpenDialog1.Execute then begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
...
end;
или открывается картинка и вставляется в компонент TImage
Код:
if OpenDialog1.Execute then begin
image1.Picture.LoadFromFile(opendialog1.filename);
...
end;
Все зависит от того, какие действия вы будете производить с файлом, открываемом через OpenDialog. Исходя из этого, такой и код будет =)
|
|
|
14.01.2008, 10:21
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
большое спасибо.
и как сделать что бы изображение отображалось равномерно. делаю так- с Win-32 перенес на форму PageControl, потом на PageControl перенес из дополнительно Image. вставил туда изображение, но оно отображается наполовину. и как сделать что бы при нажатии на Button1 открывалось новое окно с изображением?
и если можно на эти вопросы...
|
|
|
|
14.01.2008, 10:43
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Поиграйтесь со свойствами Stretch и Autosize компонента TImage
|
|
|
|
14.01.2008, 11:04
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
недает нужного эффекта. всетаки придется наверное для вызова рисунка применить кнопку. только как так сделать?
|
|
|
|
14.01.2008, 11:33
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Ну-ка поподробнее, рисунок вставляется в какой компонент?
|
|
|
|
14.01.2008, 11:47
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
вставляю в image. вообще хочется чтобы в image рисунок был небольшого размера (но полностью) а при нажатии на рисунок или на кнопку восстонавливался до исходного размера. точнее появлялось отдельное окно с полным рисунком.
Последний раз редактировалось GSM™; 14.01.2008 в 11:49..
|
|
|
|
14.01.2008, 12:08
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
А-а, то есть открываемый рисунок должен масштабироваться под размеры TImage? Тогда Stretch=True, Autosize=False. На вторую форму поместить еще один TImage, но уже со свойствами Stretch=False, AutoSize=True, а по кликанью по картинке на первой форме вписать код
Код:
Form2.show;
Form2.Image1.Picture.LoadFromFile(od.FileName);
если картинка небольшая, то можно и так оставить, если же нет, то лучше не вызывать LoadFromFile несколько раз, а юзать, например, TJpegImage и из него уже загружать во все TImages =) |
|
|
|
14.01.2008, 12:15
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
блин беда случилась. только что отключили свет. хотя у меня есть упсик но я неуспел сохранить программку и теперь пишет -
Error creating form: Line too long on line 1770.
это при загрузке программы в делфи вылетает окно с этой ошибкой. жму ок. потом жму ф9 и опять ошибка только в самом низу -
[Ошибка] RLINK32: Unsupported 16bit resource in file "Unit1.dfm"
|
|
|
|
14.01.2008, 12:44
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
Возможно, придется пересоздавать форму или даже весь проект. Файлы с расширением *.pas сохранились? Если форма небольшая, то проще пересоздать проект и вставить код из старых пасовских файлов
|
|
|
|
14.01.2008, 13:11
|
|
Участник форума
Регистрация: 02.11.2007
Сообщений: 230
Провел на форуме:
1819358
Репутация:
75
|
|
да. проще будет по новой создать...
А-а, то есть открываемый рисунок должен масштабироваться под размеры TImage? Тогда Stretch=True, Autosize=False. На вторую форму поместить еще один TImage, но уже со свойствами Stretch=False, AutoSize=True, а по кликанью по картинке на первой форме вписать код
именно так и получается неправильное отображение.
и как всетаки сделать вывод картинки в новом окне при нажатии Button?
Последний раз редактировалось GSM™; 14.01.2008 в 13:15..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид