WVW_DrawLabel

[paulovirt]

Prezados amigos
Estou utilizando este código abaixo

"addobj(lastwindow,{|janela|WVW_DrawLabel(janela,7, 4, cdescricao,"ta_left",,,,, "Arial", 25, 18, , , , .f., .f., .f. )})"

para exibir, através do gtwvw caracteres grandes. Entretando gostaria de saber
como posso inserir cores nas letras e no plano de fundo, entretanto sem o uso da função "RGB(200,200,200)", pois quando tento
compilar com ela, retorna erro na biblioteca What32.

Abraços

[leandrolinauer]

Bom dia
Tive o mesmo problema, e não consegui encontrar nada que me ajudasse, até hoje, fiz um teste com a função da WvW_GetPalette(), pesquisando diretamente sobre o retorno da função GetSysColor(), vi que o retorno GetSysColor(4), dava a cor do fundo do windows, pelo menos até agora na minha máquina deu certo, retornou a cor do fundo pra mim.
Teste aí e verifique alterando o RBG do fundo da função draw_label.

"addobj(lastwindow,{|janela|WVW_DrawLabel(janela,7, 4, cdescricao,"ta_left",,,GetSysColor(4),, "Arial", 25, 18, , , , .f., .f., .f. )})"

Blz. t+
X:)

[cjp]

Seria possível passar mais detalhes sobre essa WVW? Não entendi como usá-la.

[angeiras]

Olá,

Uso a wvw_DrawLabel() assim :

Código: Selecionar todos

wvw_DrawLabel( win, lin, col, titulo, TA_RIGHT,, RGB( 0, 133, 0 ), RGB( 228, 228, 228 ), "Tahoma", 140, 40, FW_BOLD, PROOF_QUALITY )

onde

win = janela para exibição
lin,col = linha, coluna da janela
TA_RIGHT = forma de alinhamento ( + opções em winuser.ch )
RGB(...) = cor do texto e cor do fundo ( nessa ordem )
140, 40 = Largura e Altura da fonte
FW_BOLD = identifica se a fonte vai ser em negrito, itálico, etc. ( ver winuser.ch )
PROOF_QUALITY = "qualidade" da fonte ( ver winuser.ch )

A função RGB(...) voce mesmo pode definir no seu fonte. Eu uso assim :

Código: Selecionar todos

#define RGB( nR,nG,nB )             ( nR + ( nG * 256 ) + ( nB * 256 * 256 ) )

Para saber mais sobre a GTWVW, pode-se baixar uma documentação em portugues em

http://ge.tt/2arbxdk/v/0?c


[]s
M.Angeiras

[carlos_dornelas]

Angeiras,

Você conseguiu utilizar a WVW com o harbour? Pergunto porque eu ainda a utilizo com o xharbour .99.70 e ainda näo consegui utilizá-la a contento com o harbour. Tive problemas ao carregar imagens nos botöes (pb_create)...

Antonio Carlos
Curitiba

[angeiras]

Olá Carlos,

Uso a GTWVW com xHB 1.0. Testei com a versão atual do xHB mas tive vários problemas, além de não conseguir implementar algumas alterações que tinha feito na GTWVW antiga. Quer dizer, até dava pra implementar, mas era perder muito tempo para uma lib de transição apenas. Na versão do Xhb que uso, 1.2.1 rev 9575, já uso o Fivewin sem problemas.

Não posso te falar nada sobre o Harbour por que não uso.

[]s
M.Angeiras

[cjp]

Eu uso o Harbour. Não tem jeito então?

[leandrolinauer]

Boa noite.
Eu uso o HARBOUR 3.1 com a gtwvw, não migrei ainda porque tenho que reescrever tudo novamente, mas por enquanto eu uso ela sim com o harbour 3.1 com problemas, e muitos não estou contente com ela, apenas quebrando galho, por exemplo: o menu, fiz todo o menu e para meu desespero "ele trava" do nada em execução e trava, fiz um programinha bem pequeno apenas cadastro com o menu com todas as opções liberadas e "trava", por isto voltei ao meu menu que eu usava a muito tempo, um igualzinho ao da visuallib, bom resumidamente para quem precisa de um quebra galho, vai bem a gtwvw por deixar a linha de programação igualzinha a do velho clipper.
Mas se vai migar, eu ja gostei muito da HWGUI, fiz uns brinquedos com ela, mas ainda nao mudei nada no meu principal, porque só consegui usar com xharbour ja com harbour nao consegui compilar.
Ja olhei tbem a qt e gostei mais ainda, mas só baixei e usei os teste com HARBOUR 3.1 com QT.

Então se alguem precisar de ajuda com HARBOUR 3.1 e GTWVW eu passo as informações até aonde eu ja usei.

Agora sobre a wvw_DrawLabel, como fiz a compílação em WIN7 e havia dado certo a transparencia, fiquei muito feliz, mas ao colocar o programa no velho xp, bahhh, não funcionou, o que estava transparente ficou branco o fundo voltando a estaca zero, por isto e outros motivos estou saindo aos poucos da gtwvw, estudando a QT porque gostei muito da interface dela, problema que não encontrei manual suficiente para deslanchar.

Ps: miguei para HARBOUR o sistema devido a necessidade de usar SQLITE3 o que não havia conseguido usar em XHB, mas gostei muito do HARBOUR, achei melhor, melhorou a velocidade do sistema.

Um abraço a todos.
:xau

[leandrolinauer]

Boa tarde.
Fiz os teste novamente e achei o valor que deu certo para todos 2003, 2008, xp e win7

Código: Selecionar todos

"addobj(lastwindow,{|janela|WVW_DrawLabel(janela,7, 4, cdescricao,"ta_left",,,GetSysColor(15),, "Arial", 25, 18, , , , .f., .f., .f. )})"

T+