PC Toledo

Bom dia,

Obrigado pela as informaçoes, foi muito util.

Eu me deparei com outro problema com variavel, no clipper funciona certinho, mas aqui deu um pequeno pau.


PRG principal
function Main()

clear
cor1=´w,w´
cor2=´g,w´ -> para facilitar a mudança de cor do sistema.
cor3=´n,g´
etc..


box3d(01,01,24,78) - para fazer uma tela em 3d


principa() - tela principal



Outro PRG
function box3d()
setcolor(cor1)
rotina
setcolor(cor2)
rotina
setcolor(cor3)
rotina



ate ai tudo certo ele copila certinho nao da nehum erro, mais, mas na hora que eu executo da o seguinte erro

variaveis nao existe,

sende que esta variaveis estao no meu primeiro PRG



DESDE JA AGREDECO A AJUDA.

Olá,

Variaveis que desejam ser visíveis por todos os PRGs devem ser declaradas como públicas, o que era padrão no clipper, mas no xHarbour não, são privadas.

Declare-as como:

PUBLIC cor1 := "w/n"


Ok, boa sorte.