Click above to get retro games delivered to your door ever month!

#xtranslate _PARM_BLOCK_10_( <uAction> ) => ;
            \{ |bp1,bp2,bp3,bp4,bp5,bp6,bp7,bp8,bp9,bp10| <uAction> \}

#xcommand @ <nRow>, <nCol> VBX [<oVbx>] ;
             [ OF <oWnd> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ <file: FILE, FILENAME, DISK> <cVbxFile> ] ;
             [ CLASS <cVbxClass> ] ;
             [ ON <cClause1> <uAction1> ;
             [ ON <cClauseN> <uActionN> ] ] ;
             [ WHEN <uWhen> ] ;
             [ VALID <uValid> ] ;
             [ <lPixel: PIXEL> ] ;
             [ <lDesign: DESIGN> ] ;
       => ;
          [ <oVbx> := ] TVbControl():New( <nRow>, <nCol>, <nWidth>, <nHeight>,;
             <oWnd>, <cVbxFile>, <cVbxClass>, ;
             \{ [ <(cClause1)>, _PARM_BLOCK_10_( <uAction1> ) ] ;
              [,<(cClauseN)>, _PARM_BLOCK_10_( <uActionN> ) ] ;
             \}, [<{uWhen}>], [<{uValid}>], <.lPixel.>, <.lDesign.> )

#xcommand REDEFINE VBX [<oControl>] ;
             [ ID <nId> ] ;
             [ OF <oDlg> ] ;
             [ COLOR <nClrFore> [,<nClrBack>] ] ;
             [ ON <cClause1> <uAction1> ;
             [ ON <cClauseN> <uActionN> ] ] ;
       => ;
          [ <oControl> := ] TVbControl():ReDefine( <nId>, <oDlg>,;
             <nClrFore>, <nClrBack>, ;
             \{ [ <(cClause1)>, _PARM_BLOCK_10_( <uAction1> ) ] ;
              [,<(cClauseN)>, _PARM_BLOCK_10_( <uActionN> ) ] ;
             \} )

/*----------------------------------------------------------------------------//