привязка размеров межу image

[Khad515]

Такая проблема. Имею 2 image(image1, image2)
image2 имеет включенное свойство transparent.
два image наложены друг на друга
в image1 загружается картинка и image1 получает размеры этой картинки

if OpenPictureDialog1.Execute then
begin
 Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
Image1.Width := Image1.Picture.Width;
Image1.Height := Image1.Picture.Height;

Все корректно изменяется.
Дальше мне нужно изменить размеры image2 под размеры картинки image1(размеры которой принял image1).Дописуем после кода(который сверху) один из методов записи кода тот что дальше я показую. Тут то и начинаются проблемы. Я пытался изменять размеры так

Image2.Width := Image1.Width;
Image2.Height := Image1.Height;

и так

Image2.Width := Image1.Picture.Width;
Image2.Height := Image1.Picture.Height;

Но по сути это одно и тоже. Проблема состоит в том, что визуально image2 не растягивается так как надо(он не заполняет всю область размером с картинку которую загрузил). Но если вывести эти данные на экран, то показует, что image2 принял размеры image1(а image1 имеет размеры картинки). Я не понимаю, что не так. Может есть другие более надежные способы изменить размер image2 под размер картинки в image1

П.С.: пробовал процедуру SetSize - не помогло. Так же использовал ClientWidth и ClientHeight - не помогло. параметры top и left image1 и image2 совпадают

[newerow1989]

Компонент tBitmap поможет

Image1.Picture.Bitmap.Width

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

[min@y™]

чему равны свойства autosize, center?

[Khad515]

Нет, не помогло. Вот какой эфект появляется. Выглядит как будто Image2. не покрывает полностью Image1. Если не изменять размеры image1 все хорошо. Проблема лишь в том, что при загруженной картинке в image1, image2 почему то не может нормально поймать нужные размер. Я уже 4 час сижу бьюсь, пока не доходит почему. Надеюсь на вас.

[newerow1989]

А если одновременно:

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

[Khad515]

Извеняюсь, забыл написать. Если чисто

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

то перестает вообще рисовать.
Если же оставить просто

Image2.Width:=Image1.Width;

без проблем рисует, но так как рисует на image2, а он не покрывает полностью image1.
Обе строчки - то єфект который сверху показал.(в других вариантах либо не рисовало, либо рисовало на области с не увеличенными размерами image2.(то есть не везьде рисовало))

[Khad515]

По идее, что бы я смог нормально рисовать на Image2 поверх Image1 мне надо растинуть

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

и

Image2.Width:=Image1.Width;

до размеров image1. Но я растягиваю, у меня размер image2 по всем параметрам(в смысле размером) сходится с image1, но визуально image2 не покрывает полностью image1.

[newerow1989]

Растягивание: Image2.Stretch, равным true

[Khad515]

Ничего не изменилось. Еще заметил такое. После того как я загрузил файл - нажал рисовать(эфект тот же что и всегда не тот что надо), я прокрутил к другому месту изображения и еще раз повторил функцию рисовать(там линия paint типо). Что произошло.. Image2 сдвинулся по top и left(хотя на самом деле они не поменялись). Тоесть изменилась зона рисования image2(проблема в том, что image2 не принимает размер image1, почему не знаю, код правильный))

[min@y™]

пусть горит в аду тот, кто учит школоту рисовать на TImage!