drawlabel... não exibe o label na window

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

Avatar do usuário
FARLEY RIBEIRO
Usuário Nível 2
Usuário Nível 2
Mensagens: 89
Registrado em: 24 Jul 2007 10:26
Localização: MONTES CLAROS-MG

drawlabel... não exibe o label na window

Mensagem por FARLEY RIBEIRO »

pessoal,

não estou conseguindo exibir um label na window abaixo... simplesmente não mostra nada... estou utilizando wvwtools.

o que pode ser?

grato

farley

Código: Selecionar todos

func marcos

LOCAL oWindow, nChoice

owindow:=wndinit(03,01,20,79,"CLIENTES")
WVW_DrawLabel( owindow, 06, 35, "CADASTRO", 6, 5, RGB(225,225,76), RGB(230,139,44), "Tahoma",,, 2 )
inkey( 0 )
mcor = substr("N/W,W/R,,,N/W+"+space(40),1,40)
do while (.t.)
   @ 10,02 say "Cor get:"
   @ 10,15 get mcor
   read
   if lastkey()=27
      exit
   endif
enddo

wndclose()

RETURN .t.
Borland BCC(5.51)/PellesC(5.01)/Fivewin(2.6)/xHarbour.org(0.99.50)/Med(3.02)/DBFNTX/DBFCDX /WvWToools(0.83)
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Mensagem por rochinha »

Amiguinho

Se voce usa Fivewin, porque faz as telas usando a WVWTools?
Qual seria o diferencial que ela proporciona?
Voce chegou a verificar os exemplos que porventura venham com a biblioteca?
Nem me lembro mais como funciona um INKEY() mas qual a funcionalidade dele antes do DO..WHILE?
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

inkey // No FW provoca GPF. A I/O é controlada pelo Windows.

// Loop até que vc aperte o <ESC> ???
// Não importa o que vc coloque em mcor (???)
do while (.t.)
@ 10,02 say "Cor get:"
@ 10,15 get mcor
read
if lastkey()=27
exit
endif
enddo

Desculpe, mas o seu código parece não ter lógica nessas partes.
Vc esta fazendo testes?
Esse código não parece ser FW.
Desculpe se eu estiver enganado.
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
Responder