vhclara

Pessoal, tenho uma dúvida, gostaria de contar com o auxílio de vocês. Bem, o problema é o seguinte. Estou tentando compilar uma tela simples em Clipper, porém, não é exibida. Ele não mostra erros, mas não mostra o resultado final. Estou enviando o código. Obrigado. #include "fivewin.ch" function main() tela("testes fivewin") return nil Procedure Tela(Texto1,Texto2,Fantasia,Empresa,Movimento) Public _tela_ Private ColorTela := SetColor() SetColor("W/B+") //Clear @ 0,00 To 3,79 Double // Borda Superior @ 5,00 To 22,79 Double Setcolor("B/W") @ 01,01 clear To 02,78 SetColor("N/W") SetColor("W+/BG") If !Empty(Fantasia) @ 02,03 Say " " @ 02,Col()+1 Say Fantasia Endif If !Empty(Empresa) @ 02,03 Say Empresa Endif If !Empty(Movimento) @ 01,03 Say Movimento Endif IF !Empty(Texto1) SetColor("N/W") Centraliza(1,Texto1) Endif IF !Empty(Texto2) SetColor("N/W") Centraliza(2,Texto2) Endif SetColor(ColorTela) Stela(1,@_tela_) Return procedure STela(Modo,Varv) If Modo = 1 Varv := SaveScreen(00,00,MaxRow(),MaxCol()) Elseif Modo = 2 RestScreen(00,00,MaxRow(),MaxCol(),Varv) Endif return Function Centraliza(Linha,Texto) Private Colun := 40-(Len(Texto)/2) msginfo(Texto) Return(Colun)

Pessoal, tenho uma dúvida, gostaria de contar com o auxílio de vocês. Bem, o problema é o seguinte. Estou tentando compilar uma tela simples em Clipper, porém, não é exibida. Ele não mostra erros, mas não mostra o resultado final. Estou enviando o código. Obrigado. #include "fivewin.ch" function main() tela("testes fivewin") return nil Procedure Tela(Texto1,Texto2,Fantasia,Empresa,Movimento) Public _tela_ Private ColorTela := SetColor() SetColor("W/B+") //Clear @ 0,00 To 3,79 Double // Borda Superior @ 5,00 To 22,79 Double Setcolor("B/W") @ 01,01 clear To 02,78 SetColor("N/W") SetColor("W+/BG") If !Empty(Fantasia) @ 02,03 Say " " @ 02,Col()+1 Say Fantasia Endif If !Empty(Empresa) @ 02,03 Say Empresa Endif If !Empty(Movimento) @ 01,03 Say Movimento Endif IF !Empty(Texto1) SetColor("N/W") Centraliza(1,Texto1) Endif IF !Empty(Texto2) SetColor("N/W") Centraliza(2,Texto2) Endif SetColor(ColorTela) Stela(1,@_tela_) Return procedure STela(Modo,Varv) If Modo = 1 Varv := SaveScreen(00,00,MaxRow(),MaxCol()) Elseif Modo = 2 RestScreen(00,00,MaxRow(),MaxCol(),Varv) Endif return Function Centraliza(Linha,Texto) Private Colun := 40-(Len(Texto)/2) msginfo(Texto) Return(Colun)

Pessoal, tenho uma dúvida, gostaria de contar com o auxílio de vocês. Bem, o problema é o seguinte. Estou tentando compilar uma tela simples em Clipper, porém, não é exibida. Ele não mostra erros, mas não mostra o resultado final. Estou enviando o código. Obrigado. #include "fivewin.ch" function main() tela("testes fivewin") return nil Procedure Tela(Texto1,Texto2,Fantasia,Empresa,Movimento) Public _tela_ Private ColorTela := SetColor() SetColor("W/B+") //Clear @ 0,00 To 3,79 Double // Borda Superior @ 5,00 To 22,79 Double Setcolor("B/W") @ 01,01 clear To 02,78 SetColor("N/W") SetColor("W+/BG") If !Empty(Fantasia) @ 02,03 Say " " @ 02,Col()+1 Say Fantasia Endif If !Empty(Empresa) @ 02,03 Say Empresa Endif If !Empty(Movimento) @ 01,03 Say Movimento Endif IF !Empty(Texto1) SetColor("N/W") Centraliza(1,Texto1) Endif IF !Empty(Texto2) SetColor("N/W") Centraliza(2,Texto2) Endif SetColor(ColorTela) Stela(1,@_tela_) Return procedure STela(Modo,Varv) If Modo = 1 Varv := SaveScreen(00,00,MaxRow(),MaxCol()) Elseif Modo = 2 RestScreen(00,00,MaxRow(),MaxCol(),Varv) Endif return Function Centraliza(Linha,Texto) Private Colun := 40-(Len(Texto)/2) msginfo(Texto) Return(Colun)

Olá, gostaria de saber se existe alguém neste fórum que tenha bons conhecimentos em Clipper e FiveWin, e que more em Belo Horizonte. Favor enviar email para: vhclara@hotmail.com Editado por - vhclara on 28/07/2005 08:52:08

Olá, gostaria de saber se existe alguém neste fórum que tenha bons conhecimentos em Clipper e FiveWin, e que more em Belo Horizonte. Favor enviar email para: vhclara@hotmail.com Editado por - vhclara on 28/07/2005 08:52:08

Olá, gostaria de saber se existe alguém neste fórum que tenha bons conhecimentos em Clipper e FiveWin, e que more em Belo Horizonte. Favor enviar email para: vhclara@hotmail.com Editado por - vhclara on 28/07/2005 08:52:08