Подскажите код для Дельфи для открытия диалога графических файлов

← →
Tray62 © (2006-11-22 21:27) [0]

Фишка такая. Пишу небольшой вьювер с регистрацией файлов за ним(т.е. чтобы при следующем открытии картинкаи, запускалась моя прога). Так вот, я не знаю какой код нужно ввести для кнопки открытия файлов. На Форме присутсвует компонент TOpenPictureDialog, и под него нужно код(точнее для кнопки Открытия, а компонент просто использовать). ПА-МА-ГИ-ТЕ ПЛЛЛИИИЗЗЗ!!!

← →
Джо © (2006-11-22 21:29) [1]

> Так вот, я не знаю какой код нужно ввести для кнопки открытия
> файлов.

А что именно должно происходить при нажатии "кнопки открытия файлов"?

← →
ProgRAMmer Dimonych © (2006-11-22 23:58) [2]

> Джо © (22.11.06 21:29) [1]
Опять!!! Задал вопрос и уплыл в неизвестность.

← →
Джо © (2006-11-23 00:03) [3]

>
>
> [2] ProgRAMmer Dimonych © (22.11.06 23:58)
> > Джо © (22.11.06 21:29) [1]
> Опять!!! Задал вопрос и уплыл в неизвестность.

Я или автор? Если автор — оно и понятно. Мой вопрос поверг его в глубокое рекурсивное раздумие...

← →
ProgRAMmer Dimonych © (2006-11-23 00:06) [4]

Нет, а реально: задать действия для нажатия кнопки открытия в диалоге. ;)

Хотя, наверное, имелось в виду нажатие какой-то TButton, за которым следует запуск диалога.

← →
Anatoly Podgoretsky © (2006-11-23 08:55) [5]

> Мой вопрос поверг его в глубокое рекурсивное раздумие...

Он проводит синтактический и морфологический анализ вопроса.

← →
Думкин © (2006-11-23 08:57) [6]

if OpenPictureDialog1.Execute....

← →
MikePetrichenko © (2006-11-23 09:03) [7]

> Подскажите код для Дельфи для открытия диалога графических
> файлов

Этот код находится в файле dialogs.pas класс TOpenPictureDialog.

← →
Tray62 © (2006-11-23 13:43) [8]

ВОТ! Комрад Думкин был прав... он начал мыслить хоть в ту сторону. А открываться должен Диалог поиска графического файла(ну как в Paint). Вот мне и нужен код для обработчика этого события. помагите мне плз. Авось дальше новый ACDSee сделаю... :)

← →
Сергей М. © (2006-11-23 13:46) [9]

> Авось дальше новый ACDSee сделаю

Вот он, русский авось, в полный рост)

← →
Tray62 © (2006-11-23 13:48) [10]

Да это я так... ну вообще просто охота свой вьювер сделать... Интересно все же

← →
Сергей М. © (2006-11-23 13:50) [11]

> охота свой вьювер сделать

И его, этот "вьювер", разумеется, следует начинать с фильтрации граф.файлов, а не с реализации алгоритмов их "вьювинга") ..

Правильно ?)

← →
Tray62 © (2006-11-23 13:56) [12]

А алгоритм реализации оч маленький(т к вьювер простой как 2 капейки), и мне осталось то немного: код для открытия файлов сделать и сделать(вместе с кодом) две кнопки, уменьшение и увеличение. И все

← →
Андрей Сенченко © (2006-11-23 14:27) [13]

так так ... уменьшение и увеличение чего вместе с кодом ?

← →
Anatoly Podgoretsky © (2006-11-23 14:30) [14]

> Андрей Сенченко (23.11.2006 14:27:13) [13]

Это не он ли сегодня писал про увеличение на 25-50%?

← →
Сергей М. © (2006-11-23 14:41) [15]

> Tray62 © (23.11.06 13:56) [12]

Да по тебе Орден Сутулова плачет !)

← →
Tray62 © (2006-11-23 15:22) [16]

Блин! да я вас как людейй помочь прошу... а вы... УВЕЛИЧЕНИЕ И УМЕНЬШЕНИЕ РИСУНКА! МАСШТАБИРОВАНИЕ называется. Ну а мне надо код для кнопки открытия рисунка(вызов диалога поиска рисунка) Напишите мне его кто знает!

← →
Virgo_Style © (2006-11-23 15:24) [17]

Tray62 © (23.11.06 15:22) [16]

[6]

← →
Джо © (2006-11-23 15:38) [18]

[6]-то оно, конечно...
Однако вот уже сутки прошли, а автор так и не удосужился нажать F1 на компоненте TOpenPictureDialog. Сдается мне, что новый ACDSee так и не будет написан... :o)

← →
Сергей М. © (2006-11-23 15:46) [19]

> Напишите мне его кто знает

Чукча не читатель, чукча - писатель ?)

Тот "кто знает", написал его тебе, чукче-писателю, уже в [6])

← →
Tray62 © (2006-11-23 15:56) [20]

Хе, джо шутник аднако... ща попробую...

← →
Джо © (2006-11-23 15:57) [21]

> [20] Tray62 © (23.11.06 15:56)
> Хе, джо шутник аднако...

Отнюдь нет. Я совершенно серьезно.

← →
Tray62 © (2006-11-23 19:42) [22]

Ну так кто нибудь мне поможет то в конце концов? Не рабочий код вот:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture:=OpenPictureDialog1.FileName;
в последней строчке при компиляции пишет мол Несоотвествие типов. Че делать - не знаю. подскажите плз.

← →
Tray62 © (2006-11-23 19:42) [23]

← →
Джо © (2006-11-23 19:44) [24]

> Image1.Picture:=OpenPictureDialog1.FileName;

Image1.Picture.LoadFromFile (OpenPictureDialog1.FileName)

Видишь, а ты говорил, что я шучу. А я вовсе не шутил, что ты до сих пор не научился нажимать F1 и вот тому еще один пример.
И сколько тех еще примеров будет, пока не научишься.

← →
Anatoly Podgoretsky © (2006-11-23 19:46) [25]

> Tray62 (23.11.2006 19:42:22) [22]

Смотри по справке типы Picture и FileName сразу все станет ясно.

← →
Tray62 © (2006-11-23 19:50) [26]

Джо, если заработает то, что ты мне написал, я те ПаМЯТНИК ПОСТАВЛЮ!!! :)

← →
Джо © (2006-11-23 19:51) [27]

> [26] Tray62 © (23.11.06 19:50)
> Джо, если заработает то, что ты мне написал, я те ПаМЯТНИК
> ПОСТАВЛЮ!!! :)

Не надо памятник, лучше F1 выучи как пользоваться :)

← →
Германн © (2006-11-23 20:15) [28]

> Не надо памятник, лучше F1 выучи как пользоваться :)

У автора по F1 вызывается браузер с начальной страницей http://www.delphimaster.ru/cgi-bin/forum.pl?n=18
:)

← →
Tray62 © (2006-11-24 19:44) [29]

так джо. прикол с памятником отменяется. Делфя пишет (выводит) ашибку что не найдем не то класс не то компонент TWebBrowser. Может он в типах не обозначен, а если надо обозначить то как?

← →
Anatoly Podgoretsky © (2006-11-24 19:58) [30]

> Tray62 (24.11.2006 19:44:29) [29]

> Может он в типах не обозначен, а если надо обозначить то как?

А это просто, обозначить в uses

← →
Джо © (2006-11-24 20:01) [31]

> Делфя пишет (выводит) ашибку что не найдем не то класс не
> то компонент TWebBrowser

Причем здесь вообще TWebBrowser к сабжу?

Подгоретский-сначала тебе вопрос: я знаю что в разделе uses обозначить, но что туду вписать-то еще надо?
Теперь Джо: я в душе не представляю на кой там сдался TWebBrowser, но факт остается фактом: при нажатии F9 вылетает сообщение об ошибке.

> Tray62 (24.11.2006 21:35:32) [32]

Вписать надо нужный модуль, какой именно - определить чего не хватает (не это ругается) найти по справке имя модули и его прописать. Если по справке нет, то поиском по исходникам.

Пора записываться в пророки. Новый ACDSee так и не будет написан, ибо автор за несколько дней так и не нашел ни F1, ни книги по языку.
Говорят, что Моисей сорок лет водил евреев по пустыне. Я не Моисей, да и Анатолий, скорее всего, тоже. Автора — в вольное плавание, IMO.

> Джо © (25.11.06 02:50) [35]
>
> Пора записываться в пророки.

Ну уж если записываешься в пророки, будь любезен предоставить Манну Небесную!

Какой тупой развод. Ужос.

> Джо (25.11.2006 2:50:35) [35]

Он тоже не Моисей, так 40 лет ему не хватит.

Эх... блин, тож мне пророки... Да нажимал я F1, да скопировал я из него нужную строку. Так вот теперь при компиляции он выносит Эрор(какой, описывал выше), а че теперь делать-не знаю.

F1 существует не для скопировать/вставить

← →
RASkov (2006-11-25 18:40) [41]

> [39] Tray62 © (25.11.06 16:57)

Слушай, ну что ты тупишь здесь. Тебе уже написали твой код для кнопки открытия рисунка(вызов диалога поиска рисунка), что тебе еще надо? Ты зачем сюда вопрос с TWebBrowser задал? Он никакам боком сюда не относится. Только говорит о том, что ты делфи низнаешь вообще. Что ты там у себя на форму еще накидал, что поудалял в порывах гнева, никто не знает. Начни новый проект, но с новым мало-мальским опытом и все получится. Вот тебе для закрепления пройденного: В новом проекте брось на форму один Image, OpenDialog и кнопку два раза кликни по кнопки и впиши между begin и end; следующее:

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

Хотя тебе это уже говорили, но... если не получится, то у тебя есть какие то проблемы, и если ты их грамотно опишишь, то помогут, иначе ты так и останишься "неудачником".

← →
RASkov (2006-11-25 18:42) [42]

Ну да... вместо OpenDialog лучше OpenPictureDialog и соответственно
> if OpenDialog.Execute then
> Image1.Picture.LoadFromFile(OpenDialog.FileName);

заменить на [24] Джо ©

Image1.Picture.LoadFromFile (OpenPictureDialog1.FileName)

Расков... я промолчу по поводу "иначе ты так и останишься "неудачником", z я хорощшо знаю Pascal, Action Script(для Flash) и немного HTML... Ладно, не будем устраивать тут скандалы и флуды, я в последний раз попробую и все...

> я хорощшо знаю Pascal

Ты себе льстишь...

Подскажите код для Дельфи для открытия диалога графических файлов Найти похожие ветки