Delphi 6 программирование
/B> а) окно выбора доступного
Рисунок 18.2 . а) окно выбора доступного шаблона; б) форма с размещенным на ней шаблоном
Свойства входящих в шаблон компонентов, а также свойства самого размещенного на форме шаблона можно менять, приспосабливая их к конкретным нуждам программы.
Компонент TFrame является потомкам TScrollingWinControl, от которого ему достались три описываемых ниже специфичных свойства (остальные свойства, события и методы унаследованы от rwin-controi и описаны в гл. 17):
| property AutoScroll: Boolean;property HorzScrollBar: TControlScrollBar; | Определяет свойства горизонтальной полосы прокрутки | |
| property VertScrollBar: TControlScrollBar; | Определяет свойства вертикальной полосы прокрутки | |
Класс TControlScrollBar, к которому принадлежат свойства HorzScrollBar и VertScrollBar, устанавливает все необходимые свойства и методы для полос прокрутки.
Свойства TControlScrollBar:
| property Margin: Word; | Определяет минимальное расстояние от полосы до края компонента, в котором она расположена |
| property ButtonSize: Integer; | Определяет размер кнопок полосы прокрутки |
| property Color: TColor; | Определяет цвет полосы |
| type=(sbHorizontal,sbVertical) ; property Kind: ScrollBarKind; | Указывает ориентацию полосы (это свойство - только для чтения) |
| type TScrollBarInc = 1..32767; property Increment: TScrollBarInc; | Указывает перемещение бегунка при щелчке мышью на концевой кнопке полосы |
| property ParentColor: Boolean; | Если содержит True, цвет полосы определяется системными установками Windows. Установка значения в свойство color при
водит к автоматической установке значения False в свойство ParentColor |
| property Position: Integer; | Определяет положение бегунка на полосе прокрутки |
| property Range: Integer; | Определяет размер скроллируемой области |
| property ScrollPos: Integers; | Определяет положение скроллируемой области |
| property Size: Integer; | Определяет ширину полосы в пикселях |
| property Smooth: Boolean; | Если содержит True, прокрутка осуществляется стандартным образом: щелчок по концевой кнопке вызывает смещение приблизительно на 1/10 части всей прокручиваемой области. Если содержит False, смещение определяется свойством Increment |
| TScrollBarStyle = (ssRegular,
ssFlat, ssHotTrack); |
Определяет стиль полосы: ssRegular обычная полоса; ssFlat - плоская полоса; |
| property Style: TScrollBarStyle; | ssHotTrack - плоская полоса, ее компоненты выделяются цветом при перемещении над ней указателя мыши |
| property ThumbSize: Integer; | Определяет ширину бегунка в пикселях |
| property Tracking: Boolean; | Разрешает/запрещает динамическую прокрутку при перемещении ползунка |
| property Visible: Boolean; | Определяетвидимость полосы |
