14. Наложите свою художественную фотографию на портретную, вставив в форму еще один объект типа Image.

Один из вариантов расположения фотографии показан на рис.5. Пусть этот объект имеет название Image2.

Замечание. При наложении объектов может возникнуть необ­ходимость менять порядок их отображения. Для этого исполь­зуют команды Send То Back (переслать назад) или Bring То Front (перенести вперёд), находящиеся в контекстном меню.

15. Поэкспериментируйте со свойством Visible (видимость) двух изображений, каждый раз выполняя программу (см. Пункт 3).

После этого установите значение свойства Visible в False для обоих изображений.

Рис. 5

16. Вставьте в форму кнопки для поочередного отображения на­ложенных одна на другую фотографий - два объекта типа Button с названиями Buttonl и Button2.

Пиктограмма объекта типа Button (кнопка) находится на закладке Standard палитры компонентов главного окна Delphi. Поменяйте подписи на кнопках (измените значения свойства Caption) на «Портретная фотография» и «Художественная фото­графия» соответственно. Выберите наилучший, на Ваше усмотре­ние, кириллизированный шрифт для подписей. Если Вы приме­нили картинки из стандартной библиотеки Delphi, задайте подписи для кнопок на своё усмотрение. Один из вариантов рас­положения кнопок показан на рис. 6.

Рис. 6

17. Запрограммируйте кнопку «Портретная фотография» так, чтобы после ее нажатия в форме появлялась портретная фотография.

Для программирования кнопки Buttonl необходимо два раза щелкнуть на ней левой клавишей мыши. В результате активизи­руется окно текста программы с заготовкой процедуры ButtonlClick, которая будет обрабатывать событие щелканья на кнопке Buttonl:

procedureTforml.ButtonlClick(Sender: Tobject); begin

end;

В заготовку необходимо вставить текст программы реакции на это событие. Процедура будет иметь такой вид:procedureTForml.ButtonlClick(Sender:TObject); begin

{Портретная фотография становится видимой) Imagel.Visible: =True;

{Художественная фотография становится невидимой) Image2 .Visible: =False; end;

С помощью данной процедуры свойство видимости для объекта Imagel включаем, а это же свойство для объекта Image2 выклю­чаем. Для кнопки «Художественная фотография» действия будут противоположные. Обратите внимание на использование состав­ных имен типа Imagel.Visible, в которых название объекта от его свойства отделяется точкой. Такие составные имена дают доступ к значению конкретного свойства некоторого объекта.

18. Запрограммируйте кнопку «Художественная фотография» соответственно ее назначению (см. Пункт 17).

Текст процедуры для этой кнопки будет иметь вид:

procedureTForml.Button2Click(Sender: TObject); begin

{Портретная фотография становится невидимой) Imagel.Visible:=False;

end;

Чтобы создать такую процедуру быстро, можно скопировать две команды присваивания из предыдущей процедуры в новую и поменять выражения справа.