|
Страница 34 из 59
Компонент TScrollBox TObject-^TPersistent->TCornponent->TControl-”TWinControl->. ->TScrollingWinControl—”TScrollBox Модуль FORMS Страница Палитры компонентов Additional Компонент представляет собой прямоугольную область, снабженную парой линеек прокрутки. В этой области могут располагаться другие компоненты. Указатели на горизонтальную и вертикальную полосы прокрутки являются свойствами компонента: (Pb) property'HorzScrollBar: TControlScrollBar; (Р1з) property VertScrollBar: TControlScrollBar; Диапазон и шаг изменения, текущее положение и другие свойства такой полосы описаны в классе TControlScrollBar, который будет рассмотрен чуть ниже. Если свойство (Pb) property AutoScroll: Boolean; установлено в True, пара полос прокрутки сама определяет требуемый диапазон изменения (Range), исходя из расположения, размеров и способа выравнивания всех дочерних элементов управления. При этом метод: procedure ScrollInView(AControl: TControl); помещает дочерний элемент управления AControl в видимую область, изменяя, если необходимо, положение бегунков полос прокрутки. Стиль обрамления компонента определяется свойством: (Pb) property BorderStyle: TBorderStyle; При изменении размеров компонента возникает событие: (Pb) property OnResize: TNotifyEvent; Рассмотрим свойства класса TControlScrollBar. Это полоса прокрутки, обязательно принадлежащая какому-либо оконному элементу управления. Компонент этого типа не должен в явном виде создаваться пользователем, т. к. пара полос является составной частью компонента TScrollBox, а также формы TForm. Но зачастую бывает необходим доступ к свойствам полосы: | (Ro) property Kind: TScrollBarKind; TScrollBarKind = (sbHorizontal, sbVertical); | Определяет направление полосы прокрутки. | | (Pb) property Margin: Word; | Определяет начальный отступ полосы прокрутки, который автоматически учитывается. По умолчанию его значение равно 0. | | IPb) property Increment: TScrollBarInc; TScrollBarInc = 1..32767; | Содержит минимальную единицу приращения при прокрутке. | | (Pb) property Position: Integer; | Содержит текущее положение бегунка. Это и следующее свойства изменяются системой, например, при перемещении бегунка, при смене фокуса у элементов и при изменении размеров содержащего полосу компонента. | | (Pbi property Range: Integer; | Определяет диапазон изменения положения бегунка. | | (Ro) property ScrollPos: Integer; | Возвращает положение бегунка Position, если он видим. В противном случае свойство равно 0. | |