SetVCRControls (assign field equates to FormVCR scrolling)

Top  Previous  Next

 

SetVCRControls (pVCRTop, pVCRUp, pVCRPageUp, pVCRPageDown, pVCRDown, pVCRBottom, pVCRNewRecord=0)

The SetVCRControls method assigns the related field equate of a control to a particular FormVCR scrolling function. Each parameter specified is a SIGNED integer.

Implementation:

The SetVCRControls method is used to map an appropriate control to a particular scrolling action. If the parameter is not set by the SetVCRControls method, than the action is not supported.

Example:

 

OPEN(QuickWindow)                                ! Open window

 SELF.Opened=True

! Initialize the FormVCR manager

 FormVCR6.Init(?FormVCRControls,10,FormVCR6::View,Relate:people,SELF)

 FormVCR6.InsertWhenNoRecords = True

 FormVCR6.SetVCRControls|

 (?FormVCR:Top,?FormVCR:PageUp,?FormVCR:Up,?FormVCR:Down,|

  ?FormVCR:PageDown,?FormVCR:Bottom)

  FormVCR6.SetRequestControl|

 (?FormVCR:Request,?FormVCR:Request:View,?FormVCR:Request:Insert,|

 ?FormVCR:Request:Change,?FormVCR:Request:Delete)