Clipper On Line • Ver Tópico - GET CAPTION

GET CAPTION

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

GET CAPTION

Mensagempor JoséQuintas » 05 Jan 2018 11:39

Alguém sabe a funcionalidade disso?
Estou tentando usar pra outra coisa, mas está aparecendo na tela.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

GET CAPTION

Mensagempor JoséQuintas » 05 Jan 2018 11:46

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

caption.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

GET CAPTION

Mensagempor JoséQuintas » 05 Jan 2018 11:56

Resolvido, troquei caption por cargo.

   #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()


caption.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

GET CAPTION

Mensagempor JoséQuintas » 05 Jan 2018 15:22

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

wvg.png
wvg.png (10.57 KiB) Visualizado 409 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.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro