$VSCROLL directive
Purpose: Currently intended to be used with the BCX_FORM statements, $VSCROLL adds a complete form vertical scrollbar handler to the default Windows Procedure.
Syntax: $VSCROLL [lines] Parameters:
|
$HSCROLL directive
Purpose: Currently intended to be used with the BCX_FORM statements, $HSCROLL adds a complete form horizontal scrollbar handler to the default Windows Procedure.
Syntax: $HSCROLL [lines] Parameters:
|
Example:
$HSCROLL
400
$VSCROLL
300
GUI
"Test"
SUB
FORMLOADLOCAL
Form1AS
CONTROLLOCAL
StyleAS
INTEGER Style=
WS_HSCROLLOR
WS_POPUPOR
WS_CAPTIONOR
WS_VSCROLLOR
WS_SYSMENU Form1=
BCX_FORM
(
"A 4-Way Scrollable Form"
,6
,18
,175
,135
, Style)
BCX_GROUP
(
"Gender"
, Form1,0
,1
,1
,53
,45
)
BCX_LABEL
(
"First Name"
, Form1,0
,60
,5
,45
,11
)
BCX_LABEL
(
"Last Name"
, Form1,0
,60
,25
,45
,11
)
BCX_LABEL
(
"Comments"
, Form1,0
,10
,50
,50
,8
)
BCX_RADIO
(
"Male"
, Form1,0
,5
,10
,40
,10
)
BCX_RADIO
(
"Female"
, Form1,0
,5
,20
,40
,10
)
BCX_RADIO
(
"Other"
, Form1,0
,5
,30
,40
,10
)
BCX_BUTTON
(
"Submit"
, Form1,0
,110
,45
,40
,14
)
BCX_EDIT
(
"Kevin"
, Form1,0
,105
,5
,45
,12
)
BCX_EDIT
(
"Diggins"
, Form1,0
,105
,25
,45
,12
)
BCX_EDIT
(
"Play With The ScrollBars!"
, Form1,0
,5
,80
,150
,40
)
CENTER
(
Form1)
SHOW
(
Form1)
END
SUB
BEGIN
EVENTS
' Don't let this fool you. BCX will generate lots of
END
EVENTS
' HSCROLL & VSCROLL runtime code, so you don't have to!