Só um teste

[JoséQuintas]

Foi só um teste, tinha esquecido dele, mas esqueci de apagar do fonte:

Nada demais, depois dos gets:

Código: Selecionar todos

SetPaintGetList( GetList )

E a função só cria o groupbox que inventei.

Código: Selecionar todos

FUNCTION SetPaintGetList( GetList )

   LOCAL oGet, oControl

   FOR EACH oGet IN GetList
      oControl := wvgTstGroupbox():New()
      oControl:cText := oGet:Name
      oControl:Create( , , { -oGet:Row+0.5, -oGet:Col+0.5 }, { -1.5, -1-Len( Transform( oGet:VarGet(), oGet:Picture ) ) } )
   NEXT

   RETURN NIL

É só ajustar linha/coluna que fica resolvido.
Mas foi só um teste de uns dias atrás.
Só pra curiosidade sobre possibilidades.

É só um dos controles que criei há mais de um ano, e não uso.

[Adalberto]

Maestro JoséQuintas, buenas noches

Me gustaría probar el ejemplo que nos ha compartido pero no consigo la función
wvgTstGroupbox():New()

Si le es posible compartirnos esa función, desde ya le agradezco mucho.

Un atento saludo, Adalberto

[JoséQuintas]

Por enquanto é só pra Harbour 3.4.

Vou ver se consigo uma alternativa mais simples para o Harbour 3.2 usando wvgStatic(), que deve servir pra agrupar a maioria.