PRB: Visual FoxPro Gives @...GET a Default Caption (138395)

RESOLUTION

1. Create a form using the form designer. For each of the controls, set the caption property to spaces.
2. Define a class based on the Visual FoxPro form class. Add the controls to the form, and set the Caption property to "". The following code demonstrates this method:

       *** Start Program ***
      *
      * The first five lines instantiate a form named 'newform' and add
      * the command button, option button, and check box controls to the form.
      *
      ***
   
      PUBLIC newform
      newform = CREATEOBJECT("FORM")
      newform.Addobject("Command1","CommandButton")
      newform.Addobject("Check1","CheckBox")
      newform.Addobject("Option1","Optionbutton")
   
      *
      * The next few lines set properties for the controls.
      *
   
      newform.Check1.Top = 20
      newform.Option1.Top = 40
   
      newform.setall('Caption', "")
      newform.setall('Visible',.T.)
   
      newform.show     &&Shows the form
   
      ***End Program ***
   						

3. Use a SHOW GET command in the WHEN clause of the READ, for example;

      *** Start Program ***
      *
      DEFINE WINDOW window1 FROM 1,10 TO 40,40 FLOAT CLOSE
      ACTIVATE WINDOW window1
   
      @ 5,5 GET command1 ;
           PICTURE "@*HN" ;
           DEFAULT 1
      @ 8,5 GET option1 ;
           PICTURE "@*RVN" ;
           DEFAULT 1
      @ 11,5 GET check1 ;
           PICTURE "@*C" ;
           DEFAULT 1
   
      READ CYCLE WHEN do_when()
      RELEASE WINDOW window1
   
      PROCEDURE do_when
      SHOW GET command1,1 PROMPT SPACE(0)
      SHOW GET option1, 1 PROMPT SPACE(0)
      SHOW GET check1,1 PROMPT SPACE(0)
      *
      *** End Program ***