FiveTech Software tech support forums

Code: Select all

// FiveWin for Pocket PC - Testing the GROUP command

#include "FWCE.ch"

//----------------------------------------------------------------------------//

Function Main()

    /*
      The present FWPPC documentation for the GROUP command says

      @ <nTop> . <nLeft> [ GROUP <oGroup> ] TO <nBottom>, <nRight>

      which should mean that all of the following group frames will "sit"
      on row 8. However, as seen in the following code, they all have
      the same height instead. Likewise for the "nRight" parameter which
      is seen to be a width definition.

      The command should be corrected to be :-

      @ <nTop> . <nLeft> [ GROUP <oGroup> ] TO <nHeight>, <nWidth>

    */

   local oWnd, oGrp1, oGrp2, oGrp3, oGrp4, oGrp5, oGrp6

   DEFINE WINDOW oWnd TITLE "Test GROUPs"

        @ 1,  1 GROUP oGrp1 TO 8, 5 PROMPT " 1 "
        @ 2,  6 GROUP oGrp2 TO 8, 5 PROMPT " 2 "
        @ 3, 11 GROUP oGrp3 TO 8, 5 PROMPT " 3 "
        @ 4, 16 GROUP oGrp4 TO 8, 5 PROMPT " 4 "
        @ 5, 21 GROUP oGrp5 TO 8, 5 PROMPT " 5 "
        @ 6, 26 GROUP oGrp6 TO 8, 5 PROMPT " 6 "


   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "Click!" )

return nil

//----------------------------------------------------------------------------//