Vamos tentando... alguma coisa acaba saindo.
Talvez seja interessante usar pra GETs.

Moderador: Moderadores
This control can be created from the BUTTON class by using the CreateWindowEx function. It has the BS_GROUPBOX, WS_CHILD, and WS_GROUP styles.
::style := WIN_WS_CHILD + BS_GROUPBOX + WIN_WS_GROUP + BS_NOTIFY + BS_FLAT
PROCEDURE Main
LOCAL GetList := {}, cText := Space(20)
SetColor( "W/B" )
SetMode( 33, 80 )
CLS
@ 2, 2 GET cText
@ Row() + 3, 2 GET cText
@ Row() + 3, 2 GET cText
@ Row() + 3, 2 GET cText
@ Row() + 3, 2 GET cText
@ Row() + 3, 2 GET cText
@ Row() + 3, 2 GET cText
@ Row() + 3, 2 GET cText
SetGetBox( GetList )
READ
RETURN
FUNCTION SetGetBox( oGetList )
LOCAL oBox, oGet
FOR EACH oGet IN oGetList
oBox := wvgGroupBox():New()
oBox:PointerFocus := .F.
oBox:Caption := "test of groupbox use in gets"
oBox:Create( , , { -( oGet:Row - 1 ), -oGet:Col }, { -2, -Len( Transform( oGet:VarGet(), oGet:Picture ) ) } )
oBox:ToolTipText := "test"
NEXT
RETURN NIL
SetColor( "W/B,W/GR+,,,W/B" )
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes