Шаг 5. Создание панели About

Окно About – это такое окно, которое открывается по нажатию кнопки и в нем может появляться справочная информация о программе (название, автор, версия или эмблема фирмы в виде цветов). Надо добавить панель About к ранее созданному проекту с нескольки­ми формами. Если этот проект сейчас не открыт, выберите в главном меню пункт File|Open или щелкните на кнопке Open Project панели инструментов и найдите нужный файл.

Добавляем к форме кнопку, которая будет отображать диа­логовую панель About.

1. Выберите компонент Button в палитре компонентов и поместите кнопку на форму.

2. Расположите кнопки, имеющиеся теперь на форме, так, чтобы форма имела сбалансированный вид.

3. Измените значение свойства Name новой кнопки на AboutButton, а значе­ние свойства Caption – на About...

4. Дважды щелкните на только что созданной кнопке AboutButton. На экра­не появится окно редактора кода с курсором, установленным в функ­ции-обработчике события. Добавьте следующую строку кода, начиная с положения курсора:

AboutBox.ShowModal;

Форма About еще не создана, но она получит имя AboutBox, поэтому стро­ку кода можно ввести уже сейчас.

Создаем саму диалоговую панель.

1. Создайте новую форму (для этого нажмите кнопку New Form панели инструментов). Уменьшите ее размер до размера типичного диалога About.

2. Измените значение свойства Name на AboutBox, а значение свойства Capti­on – на About This Program.

3. Найдите свойство BorderStyle (оно расположено выше Caption) и измените его значение на bsDialog.

4. Добавьте три текстовых метки. Отредактируйте текст так, чтобы форма включала следующие надписи: «Picture View Program», «Version 1.0» и «Copyright 2007 by Ivanov». (При желании можно ввести любой дру­гой текст.) Значения свойств Name для этих компонентов можно не изме­нять, поскольку в дальнейшем эти свойства не будут использоваться.

Рис. 2 - Форма диалога About с добавленными текстовыми метками

Добавляем значок в панель About.

1. Щелкните на закладке Additional палитры компонентов и выберите компонент Image. Поместите его слева от текста.

2. Найдите свойство AutoSize компонента Image и измените его на True.

3. Найдите свойство Picture и дважды щелкните в столбце значений. От­кроется диалог редактора изображений.

4. Нажмите кнопку Load. В диалоге File Open перейдите в каталог

\Program Files\Common Files\Borland Shared\Images\Icons и выберите значок из списка. Нажмите кнопку ОК. Выбранный значок появится в окне редактора. Нажмите еще раз кнопку ОК, чтобы закрыть редактор. Значок бу­дет помещен на форму. Обратите внимание, что размер компонента Image автоматически подстроился под размер значка.

5. Расположите значок желаемым образом.

Помещаем на форму кнопку ОК.

1. Щелкните на закладке Additional палитры компонентов, если она еще не открыта. Выберите компонент BitBtn и поместите его в нижнюю часть формы, отцентрировав по горизонтали.

2. Найдите свойство Kind и измените его значение на bkOK. Заметьте, что на кнопке появилась зеленая галочка, а свойство Caption изменило значение на ОК. Это все, что нужно сделать с кнопкой. Компонент BitBtn уже со­держит код для закрытия формы при нажатии кнопки ОК.

Последний штрих в оформлении панели About.

1. Найдите кнопку Bevel (на закладке Additional палитры компонентов) и щелкните на ней.

2. Переместите компонент на форму, но вместо того, чтобы щелкать кноп­кой мыши, растяните прямоугольник вокруг текста. Компонент появится после отпускания кнопки. Если это не удалось сделать точно, измените размеры компонента или переместите его.

3. Найдите свойство Shape и измените его значение на bsFrame. Рамка во­круг текста станет объемной. Сохраните модуль (File|Save), дав ему имя About.

Пока еще не все готово для компиляции и запуска программы. Необходимо включить модуль About в список uses главной формы.

1. Измените значение свойства Name на AboutBox.

2. Сохраните модуль под именем PVAbout.

3. Перейдите к странице PctViewU в окне редактора кода (нажмите F12). Выберите в главном меню пункт File|Use Unit… и включите модуль PVAbout.

4. Нажмите F12, чтобы перейти обратно к главной форме. Выберите в меню пункт Help|About. Вы окажетесь в окне редактора кода, содержащем обработчик главного пункта меню.

5. Добавьте к тексту обработчика такую строку:

AboutBox.ShowМodal;

6. Нажмите кнопку Run и попробуйте вызвать панель About через меню.