Pascal 7 & Objects

       

Построение полос прокрутки


-----------------------------------------------------------------

Кроме обычных 6 параметров управляющего объекта, конструктор Init полосы прокрутки воспринимает флаг типа Boolean, указываю- щий, является ли полоса прокрутки горизонтальной. Приведем описа- ние конструктора полосы прокрутки:

constructor TScrollBarInit(AParent: PWindowsObject; AnID: Integer; X, Y, W, H: Integer; IsHScrollBar: Boolean);

Если вы зададите нулевую ширину вертикальной полосы прокрут- ки, Windows присвоит ей стандартную ширину (аналогичную полосе прокрутки блока списка). То же самое касается задания нулевой вы- соты горизонтальной полосы прокрутки. Вызов:

ThermScroll := New(PScrollBar, Init(@Self, id_ThermScroll, 20, 170, 340, 0, True));

создает горизонтальную полосу прокрутки стандартной высоты, как это показано на Рис. 12.5. Init конструирует полосы прокрутки со стилями ws_Child, ws_Visible и sbs_Horz или sbs_Vert для горизон- тальной или вертикальной полосы прокрутки соответственно. Разно- образные полосы прокрутки показаны на Рис. 12.6.

+-----------------------------------------------------------+-+-+ |#=#XXXXXXXXXXXXXXXXXXXScroll Bar TesterXXXXXXXXXXXXXXXXXXXX|^|v| +-----------------------------------------------------------+-+-| | +--+ +-+ | | +--+--|/\|---------------------------+--+ |^| | | |/X|##+--|###########X###############|X\| +-| | | |\X|##|##|###########X###############|X/| |#| | | +--+--|XX|---------------------------+--+ |X| | | |##| |#| | | |##| |#| | | |##| +-| | | +--| |v| | | |\/| +-+ | | +--+ | | +--+----------------------------------------------------+--+ | | |<X|#################X##################################|X>| | | +--+----------------------------------------------------+--+ | | | | | +---------------------------------------------------------------+

Рис. 12.6 Окно с разнообразными полосами прокрутки.



Содержание раздела