$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:

  • lines [OPTIONAL] Specifies the maximum vertical scrolling position.

$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:

  • lines [OPTIONAL] Specifies the maximum horizontal scrolling position.

Example: 

 
 $HSCROLL 400
 $VSCROLL 300
 
 GUI "Test"
 
 
 SUB FORMLOAD
   LOCAL  Form1 AS CONTROL
   LOCAL  Style AS INTEGER
 
   Style   = WS_HSCROLL OR WS_POPUP OR WS_CAPTION OR WS_VSCROLL OR 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!