Смена Image1 при наведение сохраняя изображения в программу при компиляции

[doktor255]

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

Будте любезны , Не заходите и не пишите пожалуйста в этой теме , Вы мешаете очень !

Чем мешаю? Тем что в самом начале темы сказал, что нужно использовать PngImageList, чтоб ты не извращался конвертируя png в bmp и обратно пытаясь безуспешно сохранить альфаканал?
[censored]

[Serge_Bliznykov]

VMG, doktor255, общайтесь, пожалуйста, по делу, без перехода на личности и взаимных оскорблений!
Буду зверствовать! :[

Модератор

[Stilet]

Вот и ищу как подгрузить изображение с Image2 на Image1

Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'Images/button_exit_mouse.png');

Создаешь рядом с экзешником каталог Images, в него кидаешь картинки и все. И не нужно никаких ImageList.

[doktor255]

Stilet Человек в начале темы написал, что не желает использовать внешние ресурсы. Точнее

VMG Но меня это аж сипает

[Stilet]

Человек в начале темы написал, что не желает использовать внешние ресурсы. Точнее

Это не мешает мне ответить на реплику:

Но если запустить программу на другом компьютере то он ругается о том что нету картинки по данному адресу

[doktor255]

Stilet Парирую

VMG что бы не тащить программу с компонентами картинок , ибо их планируется более 50+ ...

[Stilet]

Парирую

Решать автору, но это неудачная идея пихать все в Экзешник. А вот как раз по моему мнению два выхода более лучших это:
1) Завести себе отдельный каталог. Позволит кстати менять картинки если понадобится без проблем
2) База данных простенькая с картинками в BLOB. Одним файлом все пойдет - это плюс. И сам экзешник в размере не увеличится. К тому же тут тоже будет проще если понадобится картинку менять.

ИМХО ресурсы экзешника нужно использовать осторожно.

[doktor255]

Каталог не айс. Лучше файл ресурсов. Например DLL. Надобность в каталоге отваливается, плюс отпадает надобность проверки наличия файла ресурсов при инициализации программы. В случае отсутствия DLL программа сама вывалит ошибку.

[Stilet]

Например DLL.

Согласен. ДЛЛ хороший вариант.
Кстати: http://delphiworld.narod.ru/base/bmp_load_from_dll.html

[VMG]

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

В общем суть такова : Как подгружать с других Image2 или Image3 в Image1 ?

В общем как всегда , методом тыка , я отвечаю на свои вопросы

Для того что бы осуществить функционал а именно :
Кнопка в качестве картинки , при наведение на неё , картинка меняется , при нажатии она ещё раз меняется , при выходе мышки из области картинки она становиться на прежнее место ...

По сути сценарий опять же ещё легче :

Берём форму , на неё размещаем TImage столько сколько у Вас картинок и кнопок ...
(В моём случае к примеру это кнопка запустить другую программу)
Так же стоим лёгкий алгоритм им :
Image1 -> button_start_default.png -> Запускает игру
Image2 -> button_start_move.png -> Будет подгружаться в Image1 когда на Image1 наведут мышкой
Image3 -> button_start_press.png -> Будет подгружаться в Image1 когда на Image1 нажимают
Image4 -> button_start_default.png -> будет подгружаться в Image1 когда на Image1 Нажимают

в общем приступаем :
Добавления сценария с Image1 производиться в Инспекторе на вкладке Events
Добавляем сценарий OnMouseDown , OnMouseLeave , OnMouseEnter .
Для тех кто не знает как добавить сценарий , просто нажимаем 2 раза в пустое окно справа имени сценария .
ну и добавляем теперь скрипты в сценарии

В OnMouseEnter

Image1.Picture.Assign(Image2.Picture);

В OnMouseDown

Image1.Picture.Assign(Image3.Picture);

В OnMouseLeave

Image1.Picture.Assign(Image4.Picture);

в общем полный скрипт с сценарием по сути выглядит так :

procedure TForm1.Image1MouseEnter(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.Picture.Assign(Image2.Picture);
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Image1.Picture.Assign(Image3.Picture);
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
 Image1.Picture.Assign(Image4.Picture);
end;

Потом берём Image2 Image3 Image4
в настройках Инспектора задаём им такие параметры
Height = 0 -> Высота картинки
Width = 0 -> Длина картинки
Left = 0 -> Начальное положение картинки с левой стороны программы
Top = 0 -> Начальное положение картинки с верхней стороны программы

Имхо ! И получается так что Image2 Image3 Image4 вообще не видно в программе , они словно не видимые !
При импорте изображения с Image2 Image3 Image4 параметры не импортируються ! а только изображение !
То есть влиять не будет то что Мы в инспекторе указали Image2,3,4 параметры h=0,w=0,l=0,t=0 (для тех кто в танке , изображение будет передано в оригинальном разрешение!)

Проверяем и Всё работает отлично !
Это для тех кто в танке и хочет что бы всё было в одном *.exe без дополнительных библиотек и файлов .
Допустим для Апдейтора какой то игры !
- Геморойно будет клиенту качать launcher.exe потом отдельные *.dll и файлы , потом закидывать их в ручную в одну папку что бы он заработал ...

Но всё же есть опять 1 проблема
При наведение на Image1 у меня подгрузилась картинка с Image2 , если держать курсор на месте , то оно отображает корректно !
Но если поводить (НЕ ВЫХОДЯ ЗА ПРЕДЕЛЫ Image1) оно начинает легонько мерцать !

Попробывал использовать аналогичный скрипт для импорта
за место :

Image1.Picture.Assign(Image2.Picture);

Этот :

Image1.Picture := Image2.Picture;