Выполните программу еще раз (см. пункт 3).

10. Вставьте в форму текстовое поле (объект типа Label) с текстом «Анкета сотрудника». Щелкните мышью по пиктограмме Label на закладке Standard палитры компонентов главного окна Delphi. Расположите вставленный объект, например, так, как показано на рис. П1.1, щелкнув мышью в выбранной точке на форме. Выделите компонент Label1 (активизируйте его), ив окне Object Inspector, измените значение свойства Caption с Labell на текст “Анкета сотрудника” (без кавычек). Измените значения свойства Font (шрифт) этого текстового поля на следующие:

Font=Times New Roman Cyr;

Font style=Bold;

Size=16;

Color=Purple.

Рисунок П1.1. Исходная форма для приложения «Анкета сотрудника»

Замечание. В окне Object Inspector отображается список свойств только активного на данный момент объекта.

11. Аналогично вставьте в форму еще несколько текстовых полей, где укажите свои биографические данные.Один из вариантов расположения текстовых полей показан на рис. П1.2.

Рисунок П1.2 - Возможный вариант формы «Анкета сотрудника».

12. Вставьте в форму объект типа Image (картинка). Для этого щелкните один раз левой клавишей мыши на пиктограмме Image закладки Additional (дополнительные) Палитры компонентов и, например, в нижнем правом углу формы обведите контур для будущего изображения (фотографии). Если нужно, измените размер формы или вставленного объекта и добейтесь наилучшего расположения на ней созданных ранее объектов. Менять размеры объекта можно методом их “растягивания” за маркеры (черные габаритные квадратики). Запомните название, которое среда присвоит этому объекту (значение свойства Name) или замените его по своему усмотрению. По умолчанию этот объект будет иметь стандартное название Imagel.

13. Вставьте свою портретную фотографию с помощью свойства Picture (иллюстрация) объекта Image1. Для этого выберите объект Image1 и активизируйте свойство Picture в окне Object Inspector. Щелкнув на кнопке , вызовите диалоговое окно выбора рисунка Picture Editor. Щелкните на кнопке Load (загрузить) и в окне Load picture укажите путь к файлу с фотографией. Если такого файла нет, воспользуйтесь любой картинкой из библиотеки 16со1оr, которая по умолчанию находится в папке C:\Program Files\Borland\Delphi x.0\Images\Splash\16color. Выберите любой файл => Open. Подтвердите свой выбор в окне Picture Editor нажатием на кнопку Ок. Задайте значение свойства Stretch для объекта Imagel – True.

14. Наложите свою художественную фотографию на портретную, вставив в форму еще один объект типа Image. Один из вариантов расположения фотографии показан на рис. П1.3. Пусть этот объект имеет название Image2.

Рисунок П1.3 - Форма с художественной фотографией.

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

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

16. Вставьте в форму кнопки для поочередного отображения наложенных одна на другую фотографий — два объекта типа Button с названиями Button1 и Button2. Пиктограмма компонента Button (кнопка) находится на закладке Standard палитры компонентов главного окна Delphi. Поменяйте подписи на кнопках (измените значения свойства Caption) на “Портретная фотография” и “Художественная фотография” соответственно. Выберите наилучший, на Ваше усмотрение, шрифт для подписей. Если Вы применили картинки из стандартной библиотеки Delphi, задайте подписи для кнопок на своё усмотрение. Один из вариантов расположения кнопок показан на рис. П1.3.

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

procedureTforml.ButtonlClick(Sender: Tobject);

Begin

end;

В заготовку необходимо вставить текст кода программы реакции на это событие. Процедура будет иметь такой вид:

procedureTForml.ButtonlClick(Sender: TObject);

Begin

{Портретная фотография становится видимой}

Image1.Visible: =True;

{Художественная фотография становится невидимой}

Image2.Visible:=False;

end;

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