Faltou saber como pegar o nome da variável, mas como é apenas teste, serve assim.... rs
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
Nada demais, só o groupbox
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
Não funciona no Harbour 3.2, porque nele não tem a modificação pra aceitar decimais.
Apesar de componente Windows, resize automático, junto com a tela.
Sei lá... talvez algum dia use... acho que faz mais de um ano que criei isso e nunca usei.... rs
Não lembro se tinha testado pra usar no get...