Clipper On Line • Ver Tópico - drawlabel... não exibe o label na window

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

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

Moderador: Moderadores

 

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

Mensagempor FARLEY RIBEIRO » 12 Fev 2008 06:52

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

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 de usuário

FARLEY RIBEIRO
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 82
Data de registro: 24 Jul 2007 10:26
Cidade/Estado: MONTES CLAROS-MG
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor rochinha » 24 Fev 2008 23:59

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 fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Mensagempor gvc » 25 Fev 2008 09:17

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}
Avatar de usuário

gvc
Colaborador

Colaborador
 
Mensagens: 1269
Data de registro: 23 Ago 2005 10:57
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 11 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