GTWVG - Melhorias

[JoséQuintas]

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

groupbox.png (8.24 KiB) Exibido 5030 vezes

[JoséQuintas]

E o pushbutton com resize automático de imagem

[JoséQuintas]

Como consegui o groupbox?
Nada demais.

https://msdn.microsoft.com/en-us/librar ... s.85).aspx

Aí mostra que é só criar como classe BUTTON.
E na janela, colocar os "styles" pra groupbox:

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.

Então, peguei PUSHBUT.PRG como base, que atende o pushbutton e....
alterei esta parte

Código: Selecionar todos

   ::style       := WIN_WS_CHILD + BS_GROUPBOX + WIN_WS_GROUP + BS_NOTIFY + BS_FLAT

Como eu já disse por aqui, os controles WVG* são janelas Windows comuns.
E como o fonte é PRG, facilita alterar.

Imaginem então quem conhece GUI, o que poderiam fazer com a GTWVG....

Minhas teorias estão começando a aparecer na prática.... rs

[JoséQuintas]

Teste simples do groupbox nos GETs.
Só uma linha a mais.

Código: Selecionar todos

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

É só protótipo.
Falta descobrir como alterar as cores do texto e do contorno.

Nota: Se fosse uso prático, não poderia ser a mesma descrição pra todos os Gets.

[JoséQuintas]

com cores no get, e tamanho maior

Código: Selecionar todos

SetColor( "W/B,W/GR+,,,W/B" )