PRB: Grid Header Alignment Property Accepts Any Value

MORE INFORMATION

According to Visual FoxPro Online help, values 0 through 9 are valid Grid Header Alignment values, but values outside this range do not cause errors. In general, values below 0 align the header to the middle left and values above 9 align the header to the bottom center.

Steps to Reproduce Behavior

1. Run the following code and change the Grid Header Alignment property by using the Spinner control:

         frmAlignment=CREATEOBJECT('form')
         frmAlignment.ADDOBJECT('grdHeader','grid')
         frmAlignment.ADDOBJECT('spnSpinner','Gridspinner')
         frmAlignment.grdHeader.COLUMNCOUNT = 3
         frmAlignment.grdHeader.VISIBLE = 1
         frmAlignment.grdHeader.column1.header1.CAPTION = "I"
         frmAlignment.grdHeader.column1.header1.ALIGNMENT = 0 &&Aligned Left
         frmAlignment.SHOW(1)
   
         DEFINE CLASS gridspinner AS SPINNER
             TOP = 225
             VISIBLE = .T.
             PROCEDURE INTERACTIVECHANGE
                 frmAlignment.grdHeader.column1.header1.ALIGNMENT=THIS.VALUE
             ENDPROC
         ENDDEFINE