Копирование картинки из одного Image в другой Image

[Oleg_SS]

Доброго времени суток!
Помогите скопировать картинку из одного Image в другой.
На форме есть два Image. Один Image1 виден и картинка в нем периодически меняется (грузится из файла). А другой Image2 не виден, но картинка в нем загружена постоянно на этапе проектирования.
Надо скопировать из Image2 в Image1 картинку.
На просторах инета нашел обсуждение этого вопроса, но решение меня не устраивает.
Может можно как то проще это сделать?
При этом свойства оставить как и были, а копировать только картинку.

[doktor255]

Сначала инициализируем в OnCreate формы те имаджи, в которых ещё нет картинок

Image1.Picture.Graphic := TJpegImage.Create; // Png, Bmp по ситуации

И в нужном участке кода копируем

Image1.Picture.Graphic.Assign(Image2.Picture.Graphic);

Устраивает?
P.S. Использовать скрытый Image, как контейнер для хранения картинки, это не правильно. Существует ImageList, сторонний PngImageList, а так же ресурсы для хранения любого контента.

[Oleg_SS]

Решено.
Изначально вставлял JPG, а копировать пытался BMP
Image1.Picture.Bitmap := Image2.Picture.Bitmap;
Загрузил BMP и все получилось.

Ваш пример тоже получился

Да согласен, что так хранить это дурной тон, но мне кажется, что чем проще, тем лучше.
Спасибо!

[Oleg_SS]

А как скопировать из ImageList?
Делаю так:
ImageList_Menu.GetBitmap(10, Image1.Picture.Bitmap)
Тоже все получается, НО
картинка искаженная, т.к. при загрузке в ImageList она уменьшается в размерах.
Если при загрузке картинки на этапе проектирования сказать, что разбить на несколько фрагментов, то тогда я не знаю, как все это собрать в одну картинку.

[doktor255]

картинка искаженная, т.к. при загрузке в ImageList она уменьшается в размерах.

Чушь. У ImageList есть свойства width, height, которые определяют размеры ВСЕХ изображений, загруженных в него. Если ограничение по размеру не утраивает, то можно использовать ресурсы. Там без разницы что хранить, и какого размера.

Image1.Picture.Bitmap := Image2.Picture.Bitmap;

Категорически не согласен. Обьясняю почему. При присвоении одного битмапа другому, копирования, как такового не происходит, а происходит присвоение участка памяти, хранящего изображение. В итоге при изменении картинки любого из Image автоматически изменится картинка и во втором, ибо контейнер один.

[Oleg_SS]

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

Чушь. У ImageList есть свойства width, height, которые определяют размеры ВСЕХ изображений, загруженных в него. Если ограничение по размеру не утраивает, то можно использовать ресурсы. Там без разницы что хранить, и какого размера.

Спорить не буду. Согласен.

Категорически не согласен. Обьясняю почему. При присвоении одного битмапа другому, копирования, как такового не происходит, а происходит присвоение участка памяти, хранящего изображение. В итоге при изменении картинки любого из Image автоматически изменится картинка и во втором, ибо контейнер один.

А тут вы не правы. Именно копируется, т.к. при изменении Imeg1 и последующем копировании картинки из Image2 все нормально.
Можно долго думать как это устроено, но лучше проверьте на практике.

[phomm]

doktor255, там не просто указатель наружу выставлен, а свойство с сеттером, а в этом сеттере вызывается Assign, который именно копирует данные (рисованием), а не указатель.
У многих элементов VCL подобное поведение и реализация, у шрифтов, например, за обычным присвоением скрывается много чего, ибо свойства.

[Oleg_SS]

В общем разобрались.
Всем спасибо!