PC Toledo

Código: Selecionar todos

PROCEDURE Main

   LOCAL GetList := {}, cNome := Space(30), cEndereco := Space(30), cCidade := Space(20)
   LOCAL cUF := Space(2), cCep := Space(9)

   SetMode( 40, 100 )
   SetColor( "W/B,N/W,,,W/B" )
   CLS
   @  2, 5 GET cNome
   @ Row(), Col() + 4 GET cEndereco
   @ Row() + 3, 5     GET cCidade
   @ Row(), Col() + 4 GET cUF
   @ Row(), Col() + 4 GET cCep
   SetFrameGet( GetList )
   READ

Código: Selecionar todos

FUNCTION SetFrameGet( oGetList )

   LOCAL oElement, oControl, nRow, nCol, nLen, cText

   FOR EACH oElement IN oGetList
      nRow  := oElement:Row - 1
      nCol  := oElement:Col - 1
      nLen  := GetLen( oElement ) + 2
      cText := "nome do get"
      IF Len( cText ) > nLen - 2
         cText := Pad( cText, nLen - 2 )
      ENDIF
      oControl := wvgtstGroupbox():New()
      oControl:cText := cText
      oControl:Create( , , { -nRow, -nCol }, { -2.1, -nLen } )
   NEXT

   RETURN NIL