Cada vez que testo uma lib... testo algo na gtwvg

[JoséQuintas]

Faltou saber como pegar o nome da variável, mas como é apenas teste, serve assim.... rs

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

Nada demais, só o groupbox

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

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...

[JoséQuintas]

Uia.. wvgMLE, é o multi line edit.
Tem também o wvgSLE, que é o single line edit.
Eita nomezinhos de merd... para o que seria o textbox, mas funcionam...
Usei o mesmo exemplo anterior.

[microvolution]

JOsé, tô vendo que vc gosta mesmo é da GTWVG... por isso que tô contigo e não abro mão!

[microvolution]

a tela abaixo, é 100% HMG:

TELA GRÁFICA 100% HMG 3.4.4 (Roberto Lopez)

Já a tela abaixo, é uma cópia (quase idêntica, pois ainda não está pronta) da mesma tela acima, feita em 100% GUI GTWVG:

TELA GRÁFICA 100% GTWVG - compilando com uso da IDE/HMG 3.4.4 (Roberto Lopez)

A tela acima, usa o jeito procedural do harbour (ex clipper), do jeito que aprendi a programar, com acréscimo de poucas linhas está quase semelhante.
Está incompleta... faltando alguns detalhes... mais detalhes postei no tópico do harbour/começando em "GUI" de autoria do JQuintas.
Vlw amigos!