vhclara Posted July 28, 2005 Report Share Posted July 28, 2005 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) Quote Link to comment Share on other sites More sharing options...
vhclara Posted July 28, 2005 Author Report Share Posted July 28, 2005 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) Quote Link to comment Share on other sites More sharing options...
vhclara Posted July 28, 2005 Author Report Share Posted July 28, 2005 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) Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted July 28, 2005 Report Share Posted July 28, 2005 Olá, Você tentando fazer tudo como fazia no Clipper. É necessário uma WINDOW ou DIALOG para se mostrar alguma coisa. Tente assim só para você pegar o jeitão da coisa: #include "FiveWin.ch" //---------------------------------------------------------- tela("testes fivewin") return nil //---------------------------------------------------------- function Tela(Texto1,Texto2,Fantasia,Empresa,Movimento) local oWnd DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ; TITLE "BEM VINDO" COLOR "W/B" @ 2, 2 SAY TEXTO1 ACTIVATE WINDOW oWnd ; ON RIGHT CLICK MsgInfo( "Right Click" ) ; VALID MsgYesNo( " Deseja Sair ? ",OemToAnsi( " " ) ) return nil Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação Quote Link to comment Share on other sites More sharing options...
betovsp Posted July 28, 2005 Report Share Posted July 28, 2005 vhclara, seja bem vindo ao forum. O que acontece no Fivewin, é que como vc esta trabalhando em ambiente windows, vc precisa definir, pra começar, a window que vc vai trabalhar, ex: DEFINE WINDOW oWab FROM 100,100 TO 490,600 PIXEL MDI TITLE "Teste Window"; MENU CriaMenu() ACTIVATE WINDOW oWab MAXIMIZED RETURN(NIL) FUNCTION CriaMenu() LOCAL oMenu MENU oMenu MENUITEM "&Cadastros" MESSAGE "Manutenção dos Cadastros" MENU MENUITEM oMenu10 PROMPT "&Campanhas" MESSAGE "Manutenção das Campanhas" ACTION MatCam() MENUITEM oMenu11 PROMPT "&OfÃcio" MESSAGE "Manutenção dos OfÃcios" ACTION MatOfi() ENDMENU ENDMENU Return(omenu) Espero ter ajudado, dentro da pasta de seu fivewin, tem a pasta sample, lá vc encontrará muitos fontes pra poder te ajudar, fora os amigos desse forum. Abraços. Beto betovsp@hotmail.com (16)9148-1515 CL53B + FW2.0 + @ SAY + BLINKER 7 Ribeirão Preto/SP Quote Link to comment Share on other sites More sharing options...
supi Posted July 28, 2005 Report Share Posted July 28, 2005 isso mesmo . Resposta correta. BETOVSP ......... Ow. campanha / oficios...... Cuidado com a CPI aà heim. hehehehehe SUPI Quote Link to comment Share on other sites More sharing options...
betovsp Posted July 28, 2005 Report Share Posted July 28, 2005 citação:BETOVSP ......... Ow. campanha / oficios......Cuidado com a CPI aà heim. id=quote>id=quote>eheheheheheeheh. Pois é, mais aqui nada de mensalão, nem dolares nas calças. ehehehehehehehe. Beto betovsp@hotmail.com (16)9148-1515 CL53B + FW2.0 + @ SAY + BLINKER 7 Ribeirão Preto/SP Quote Link to comment Share on other sites More sharing options...
personal Posted July 28, 2005 Report Share Posted July 28, 2005 Procura direitinho, quem sabe na cueca. Porque em clientes... Quote Link to comment Share on other sites More sharing options...
betovsp Posted July 28, 2005 Report Share Posted July 28, 2005 Sergio, nem na cueca, e como vc disse, em cliente..... aà é que não tem mesmo. ehehehehehehehehehe Beto betovsp@hotmail.com (16)9148-1515 CL53B + FW2.0 + @ SAY + BLINKER 7 Ribeirão Preto/SP Quote Link to comment Share on other sites More sharing options...
Valdir Posted July 28, 2005 Report Share Posted July 28, 2005 Olá vhclara... Bem Vindo(a) ao Fórum... Além das respostas corretas acima, vale lembrar que pode ser utilizado o WorkShop (FW-Clipper) ou o Pelles (xHarbour) para construir as suas telas... um abraço Valdir - Jundiaà - S.P. FW23/CLIP52E/BLINKER7 Quote Link to comment Share on other sites More sharing options...
supi Posted July 29, 2005 Report Share Posted July 29, 2005 BELEZA BETO. SE PRECISAR DE MULA , PRA TRANSPORTAR AVISA AI' , SE APARECER GRANA ! TAMO PRECISANDO AQUI HEHEHEHEHEHEHEHEHEHEHE SUPI Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 29, 2005 Report Share Posted July 29, 2005 Ola. Ja que ninguém mencionou. compile assim CLIPPER /N /M id=blue> Abra seu editor preferido.. copie e cole, de um nome a ele pode ser bli.lnkid=blue> *********** BLINKER CLIPPER SYMBOL OFF fi ADM FI id=blue> OUT id=red> //* NOME DO SEU EXECUTÃVEL.EXE PACKCODE PACKDATA DEFBEGIN name Contas description 'LED-INFO' exetype Windows 3.1 code moveable discardable preload data preload moveable stacksize 20000 heapsize 85204 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable segment 'OM_TEXT' nondiscardable segment 'OSMEM_TEXT' nondiscardable segment 'SORTOF_TEXT' nondiscardable segment 'STACK_TEXT' nondiscardable DEFEND NOBELL sear Five, FiveC, Objects, _DBFCDX .. ETECETERAS faça assim BLINKER @SEUARQUIVO.LNKid=blue> Pimba ! tá pronto seu primeiro executavel em FiveWin Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 . Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 29, 2005 Report Share Posted July 29, 2005 Luiz Arruda... E o Arquivo.rmk kadê?? Bad Boy - São Paulo. kmt_karinha@pop.com.br - 1 GB de Espaço. FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 29, 2005 Report Share Posted July 29, 2005 He! he! he! isquici De uma olhada neste exemplo, que refresca... (alembria) http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=3382 http://www.fivewin.com.br/exibedicas.asp?id=484 Inté a próchima. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 . Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 29, 2005 Report Share Posted July 29, 2005 citação:He! he! he! isquici De uma olhada neste exemplo, que refresca... (alembria) http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=3382 http://www.fivewin.com.br/exibedicas.asp?id=484 Inté a próchima. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 . id=quote>id=quote>Rapaiz.. Tú tá ficando bom nessa bagaça... Acho ke você vai 'bater' o the best ANGELO... hehehehe. Parabéns, é isso mesmo. Bad Boy - São Paulo. kmt_karinha@pop.com.br - 1 GB de Espaço. FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 29, 2005 Report Share Posted July 29, 2005 he! he! brigadu.. é que vivendo entre feras, ou vc. se torna uma, ou será devorado por elas... Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 . Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.