6.3.1. TFrame – рама и шаблоны компонентов

Этот компонент впервые введен в Delphi 5. Он определяет раму – контейнер для размещения других компонентов. В функциональном отношении компонент почти повторяет свойства формы и отличается от нее, в основном, лишь тем, что его можно помещать на формы или в другие рамы. Фактически рама представляет собой удобное средство создания шаблонов – произвольных наборов компонентов, максимально приспособленных для нужд конкретного пользователя. Раз созданный шаблон может подобно любому другому компоненту размещаться на форме или другой раме (допускается неограниченная вложенность рам). Любые изменения в базовой раме (т.е. в раме, сохраненной в палитре) тут же отображаются во всех проектах, использующих данную раму.

Первоначально проекту ничего неизвестно о, возможно, ранее созданных рамах, поэтому попытка поместить на пустую форму компонент-раму вызовет сообщение:

No frames in project. To create a frame select File | New Frame.

(В проекте нет рам. Чтобы создать раму выберите File | New Frame.)

Это сообщение и описываемая ниже методика подключения шаблонов – единственное, что отличает механизм использования шаблонов от использования стандартных компонентов.

Создадим простую раму, содержащую две кнопки – mbOk и mbCancel. Такой шаблон может пригодиться при конструировании различных диалоговых окон.

1. Создадим новый проект (File| New Application).

2. Создайте новую раму – выберите File | New Frame.

3. Поместите на раму две кнопки TBitBtn и установите следующие свойства для кнопок и рамы:

Установленные параметры создадут минимальную по размерам раму с двумя именованными кнопками. Так как свойство Anchors рамы содержит значения [akRight, akBottoms], рама будет все время отслеживать свое положение относительно правого нижнего угла контейнера, в который она будет помещена.

4. Щелкните по раме правой кнопкой мыши и выберите в локальном меню Add To Palette – на экране появится диалоговое окно с предложением сохранить модуль шаблона в дисковом файле.

5. Сохраните шаблон в файле с именем DlgBtnsF в папке для ваших программ. На экране появится окно регистрации шаблона в палитре компонентов. В окне предлагается установить для нового компонента имя класса и страницу палитры компонентов, в которую он помещен. Обратите внимание на автоматически созданное умалчиваемое имя заготовки – TFrame1Tamplate. Так как это имя будет появляться в ярлычке Hint при высвечивании компонента мышью, следует дать ему более осмысленное имя, например, TDialogButtons. И еще одно замечание: в качестве страницы палитры компонентов в окне предлагается страница Templates (шаблоны), которая отсутствует в начальном наборе страниц палитры. Если вы сохраните это имя, в Delphi будет создана новая страница компонентов.

6. Задайте имя класса шаблона и страницу его размещения, после чего щелкните по кнопке ОК - шаблон готов для использования.

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

8. Щелкните по пиктограмме на странице Standard палитры компонентов и затем по пустому месту в форме Form1 - на экране появится окно с предложением выбрать нужный шаблон. Нажмите Enter, и шаблон появится в форме так, как если бы это был любой другой компонент.

Следует отметить, что, если вы откроете новый проект и попытаетесь разместить на форме раму со страницы Standard, на экране вновь появится сообщение о том, что в проекте нет рам. Однако если вы присоедините модуль DlgBtnsF к проекту клавишами Shift-F11. Если в новом проекте попробовать установить на пустую форму компонент-шаблон со страницы Templates (или с любой другой страницы, куда он был ранее помещен на этапе регистрации), на экране появится окно с такой надписью:

The following unit: DIgBtnsF, is needed in your project to create the template. Do you wish to add it?

(Модуль DIgBtnsF необходим в вашем проекте, чтобы создать шаблон. Хотите его добавить?)

Свойства входящих в шаблон компонентов, а также свойства самого размещенного на форме шаблона можно менять, приспосабливая их к конкретным нуждам программы.

Компонент TFrame является потомком TScrollingWinControl, от которого ему достались три описываемых ниже специфичных свойства (остальные свойства, события и методы унаследованы от TWinControl):

PROPERTY AutoScroll: Boolean;	Разрешает/запрещает автоматическую вставку полос прокрутки, если не все размещенные на раме компоненты умещаются в отведенных ей размерах.
PROPERTY HorzScrollBar: TControlScrollBar;	Определяет свойства горизонтальной полосы прокрутки.
PROPERTY VertScrollBar: TControlScrollBar;	Определяет свойства вертикальной полосы прокрутки.

Класс TControlScrollBar, к которому принадлежат свойства HorzScrollBar и VertScrollBar, устанавливает все необходимые свойства и методы для полос прокрутки.

Свойства TControlScrollBar:

PROPERTY ButtonSize: Integer;	Определяет размер кнопок полосы прокрутки.
PROPERTY Color: TColor;	Определяет цвет полосы.
TYPE TScrollBarInc = 1..32767; PROPERTY Increment: TScrollBarInc;	Указывает перемещение бегунка при щелчке мышью на концевой кнопке полосы.
TYPE=(sbHorizontal, sbVertical); PROPERTY Kind: ScrollBarKind;	Указывает ориентацию полосы (это свойство - только для чтения).
PROPERTY Margin: Word;	Определяет минимальное расстояние от полосы до края компонента, в котором она расположена.
PROPERTY ParentColor: Boolean;	Если True, цвет полосы определяется системными установками Windows. Установка значения в свойство Color приводит к автоматической установке значения False в свойство ParentColor.
PROPERTY Position: Integer;	Определяет положение бегунка на полосе прокрутки.
PROPERTY Range: Integer-	Определяет размер скроллируемой области.
PROPERTY ScrollPos: Integer-	Определяет положение скроллируемой области.
PROPERTY Size: Integer-	Определяет ширину полосы в пикселях.
PROPERTY Smooth: Boolean;	Если содержит True, прокрутка осуществляется стандартным образом: щелчок по концевой кнопке вызывает смещение приблизительно на 1/10 часть всей прокручиваемой области. Если содержит False, смещение определяется свойством Increment.
TScrollBarStyle = (ssRegular, ssFlat, ssHotTrack) ; PROPERTY Style: TScrollBarStyle;	Определяет стиль полосы: ssRegular – обычная полоса; ssFlat - плоская полоса; ssHotTrack -плоская полоса, но ее компоненты выделяться цветом при перемещении над ней указателя мыши.
PROPERTY Thumbsize: Integer;	Определяет ширину бегунка в пикселях.
PROPERTY Tracking: Boolean;	Разрешает/запрещает динамическую прокрутку при перемещении ползунка.
PROPERTY Visible: Boolean;	Определяет видимость полосы.