GET CAPTION

[JoséQuintas]

Alguém sabe a funcionalidade disso?
Estou tentando usar pra outra coisa, mas está aparecendo na tela.

[JoséQuintas]

Código: Selecionar todos

   @  2, 5 GET cNome CAPTION "Nome"
   @ Row(), Col() + 4 GET cEndereco CAPTION "Endereço"
   @ Row() + 3, 5     GET cCidade CAPTION "Cidade"
   @ Row(), Col() + 4 GET cUF CAPTION "UF"
   @ Row(), Col() + 4 GET cCep CAPTION "CEP"

O problema está sendo o Harbour mostrar o caption em posição aparentemente aleatória.

[JoséQuintas]

Resolvido, troquei caption por cargo.

Código: Selecionar todos

   #command @ <row>, <col> GET <v> [PICTURE <pic>] ;
                           [VALID <valid>] [WHEN <when>] [SEND <snd>] ;
                           [CAPTION <cap>] [MESSAGE <msg>] => ;
         SetPos( <row>, <col> ) ;;
         AAdd( GetList, _GET_( <v>, <"v">, <pic>, <{valid}>, <{when}> ) ) ;;
       [ ATail( GetList ):Cargo := <cap> ;;
         ATail( GetList ):CapRow := ATail( Getlist ):row ;;
         ATail( GetList ):CapCol := ATail( Getlist ):col - __CapLength( <cap> ) - 1 ;] ;
       [ ATail( GetList ):message := <msg> ;] [ ATail( GetList ):<snd> ;] ;
         ATail( GetList ):Display()

[JoséQuintas]

Só falta descobrir como alterar a cor da frame.
Do texto já deu, qualquer uma das milhões de cores do Windows...

wvg.png (10.57 KiB) Exibido 501 vezes

Se alguém tiver alguma dica....
É o groupbox da API do Windows.
Queria alterar a cor do retângulo apenas.

Tentei o estilo SS_GRAYFRAME, mas aí altera também a cor de fundo, e deixa de ser transparente.