PRB: Form Scrollbar Property Read-Only at Run-Time

MORE INFORMATION

Steps to Reproduce Behavior

1. The following code illustrates how to change the ScrollBar during run-time when the form initially runs with the ScrollBar property equal to "0 - None".

         frmScrollbar = CREATE("scrollbar")
         frmScrollbar.SHOW(1)
         *
         DEFINE CLASS SCROLLBAR AS FORM
             TOP = 13
             LEFT = 13
             HEIGHT = 176
             WIDTH = 352
             SCROLLBARS = 1 &&Any non-zero value
             DOCREATE = .T.
             CAPTION = "ScrollBar Example"
             NAME = "Form1"
   
             ADD OBJECT command1 AS COMMANDBUTTON WITH ;
                 TOP = 72, ;
                 LEFT = 180, ;
                 HEIGHT = 27, ;
                 WIDTH = 144, ;
                 CAPTION = "Change Scrollbar Prop", ;
                 NAME = "Command1"
   
             ADD OBJECT spinner1 AS SPINNER WITH ;
                 HEIGHT = 24, ;
                 LEFT = 70, ;
                 SPINNERHIGHVALUE =   3.00, ;
                 SPINNERLOWVALUE =   0.00, ;
                 TOP = 72, ;
                 WIDTH = 50, ;
                 NAME = "Spinner1"
   
             ADD OBJECT label1 AS LABEL WITH ;
                 HEIGHT = 48, ;
                 LEFT = 70, ;
                 TOP = 20, ;
                 WIDTH = 250, ;
                 WORDWRAP = .T., ;
                 CAPTION = ;
                 "Adjust the form size and then change the ;
                  ScrollBar property."
   
             PROCEDURE INIT
                 THIS.SCROLLBARS = 0
             ENDPROC
   
             PROCEDURE command1.CLICK
                 THISFORM.SCROLLBARS = THISFORM.spinner1.VALUE
             ENDPROC
   
         ENDDEFINE
   
         *-- Code ends here.