|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.05.2008, 01:40 | #1 |
Ra-Ra ?
Форумчанин
Регистрация: 06.03.2008
Сообщений: 286
|
Показ картинок, как реализовать.
Здрасте, мне надо чтобы картинка показывалась во весь экран и вокруг картинки была чёрная заливка. Вопрос у меня в том как это реализовать, пока что появилась идея, брать Image с чёрным фоном, растягивать его на весь экран, и показывать на нем картинку нужную, но как это еще можно сделать?
|
19.05.2008, 03:12 | #2 |
Баламучу слегка...
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,585
|
Form1.color := clBlack;
Form1.BorderStyle := bsNone; From1.WindowState := wsMaximized; |
19.05.2008, 03:19 | #3 |
Ra-Ra ?
Форумчанин
Регистрация: 06.03.2008
Сообщений: 286
|
Спасибо, у меня возник сейчас еще один вопрос, проблема в том что у меня не 1 картинка будет, а предположительно 200 8) Как можно их все поочередно показывать? Для этого надо сделать все 200 Image и потом поочереди Visible := true ставить?
|
19.05.2008, 03:42 | #4 |
Участник клуба
Регистрация: 21.11.2007
Сообщений: 1,690
|
Если картинки находятся в одном каталоге, то смотри FindFirst() и FindNext(), а найденную картинку загружаешь в Image1 таким способом Image1.Picture.LoadFromFile().
|
19.05.2008, 16:44 | #5 |
Ra-Ra ?
Форумчанин
Регистрация: 06.03.2008
Сообщений: 286
|
Еслибы были они в папке все былобы просто, мне хотелось бы чтобы все картинки были в самом EXE, просто подумал что можно их както туда запихнуть, пока тока идея кучу имеиджев сделать, хотелось бы узнать как можно еще.
|
19.05.2008, 17:02 | #6 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
Засунь их в *.рес, и загружай оттуда.
Нет невыполнимых задач, всё дело времени...
|
19.05.2008, 17:27 | #7 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
В ресурсы, но это ж какой екзешник получится
Ищи статьи по работе с ресурсами, вопросы потом, когда что-то получаться не будет. Ключевая фраза Jpeg в ресурсы Дельфи Delphi
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)
Проверь себя! Онлайн тестирование | Мой блог |
19.05.2008, 17:57 | #8 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
Есть еще вариант. Переведи картинки в числовое представление, пиксель равен какому то цвету. Получиться матрица n на m размер рисунка в пикселях. создай соответствующие матрицы и потом отображай их циклом попиксельно в имидж или на форму...
ГЫ.
Нет невыполнимых задач, всё дело времени...
|
19.05.2008, 18:23 | #9 | ||
Ra-Ra ?
Форумчанин
Регистрация: 06.03.2008
Сообщений: 286
|
Цитата:
Цитата:
Последний раз редактировалось Zeraim; 19.05.2008 в 18:26. |
||
20.05.2008, 17:50 | #10 |
Ra-Ra ?
Форумчанин
Регистрация: 06.03.2008
Сообщений: 286
|
Здрасте, посмотрите код, где ошибка? Дельфи на меня ругается: Internal Error EVA-2889.
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
TWebBrowser без картинок | LeoN | Работа с сетью в Delphi | 8 | 30.03.2009 14:38 |
Показ всех имен файлов в каталоге[Delphi] | sergey31 | Помощь студентам | 2 | 27.07.2008 16:43 |
Эффекты картинок | Andrey1433 | PHP | 1 | 17.03.2008 02:07 |
Нету картинок... | BETONOMESHALKA | Общие вопросы Delphi | 1 | 27.07.2007 08:13 |
Сравнение картинок | bloood | Общие вопросы C/C++ | 1 | 30.03.2007 15:54 |