Clipper On Line • Ver Tópico - Dúvida Menu

Dúvida Menu

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

Moderador: Moderadores

 

Dúvida Menu

Mensagempor Darc » 05 Jun 2008 15:20

Estou começanda a estudar o FIVEWIN, já programo a 10 anos em clipper, porém estou com um problema que não consigo resolver, criei uma tela principal com um menu (TELA.PRG), clico em uma opção do menu, que deveria chamar outra tela (EMPRESA.PRG), meu fonte está assim:

MENU oMenu
MENUITEM "Arquivo"
MENU
MENUITEM "Empresas"
EMPRESAS()
ENDMENU
ENDMENU
Darc
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 73
Data de registro: 09 Jul 2004 12:41
Cidade/Estado: Juiz de Fora
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Re: Dúvida Menu

Mensagempor sygecom » 05 Jun 2008 15:38

Darc escreveu:Estou começanda a estudar o FIVEWIN, já programo a 10 anos em clipper, porém estou com um problema que não consigo resolver, criei uma tela principal com um menu (TELA.PRG), clico em uma opção do menu, que deveria chamar outra tela (EMPRESA.PRG), meu fonte está assim:

MENU oMenu
MENUITEM "Arquivo"
MENU
MENUITEM "Empresas"
EMPRESAS()
ENDMENU
ENDMENU


Buenas,
Faltou o "ACTION" antes de EMPRESAS()

Seu exemplo fica assim:
       MENU oMenu
                MENUITEM "Arquivo"
                MENU
                       MENUITEM "Empresas"
                         ACTION EMPRESAS()
                ENDMENU
       ENDMENU

Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7005
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Re: Dúvida Menu

Mensagempor Darc » 05 Jun 2008 16:02

Quando coloco ACTION EMPRESAS(), da um erro:

Error C2001 Syntax error: ´EMPRESAS´

Será que porque são PRGS separados?
Darc
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 73
Data de registro: 09 Jul 2004 12:41
Cidade/Estado: Juiz de Fora
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Re: Dúvida Menu

Mensagempor sygecom » 05 Jun 2008 16:06

Darc escreveu:Quando coloco ACTION EMPRESAS(), da um erro:

Error C2001 Syntax error: ´EMPRESAS´

Será que porque são PRGS separados?

O que vc esta usando para compilar sua app? esta linkando os dois .PRG juntos ?
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7005
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Re: Dúvida Menu

Mensagempor Darc » 05 Jun 2008 16:18

Crie um bat, com as seguintes linhas:

ECHO Compiling...
clipper FC /n/a/v/w/i..\include %2 %3
clipper EMPRESA /na/v/w/i..\include %2 %3

ECHO Linking...
blinker fi FC, EMPRESA @..\include\fivewin.lnk
Darc
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 73
Data de registro: 09 Jul 2004 12:41
Cidade/Estado: Juiz de Fora
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Re: Dúvida Menu

Mensagempor sygecom » 05 Jun 2008 23:14

Darc, em Fivewin eu uso xharbour 9961, não sei se faz alguma diferença para clipper, vamos esperar algum colega responder.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7005
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Re: Dúvida Menu

Mensagempor aferra » 06 Jun 2008 11:09

Olá Darc.

Eu aconselharia a fazer desta forma.
1)Setar no autoexec essas linhas
SET PATH=%PATH%;C:\cl53\bin;C:\Blinker\bin
SET INCLUDE=C:\CL53\INCLUDE;C:\FW20\INCLUDE
SET LIB=C:\CL53\LIB;C:\FW20\LIB
SET OBJ=C:\CL53\OBJ

onde cl53 == pasta onde se encontra o clipper
onde fw20 == pasta onde se encontra o fivewin

e usar arquivos .lnk e .rmk para linkar seu aplicativo
Exmplo de LNK
Blinker Incremental           Off
Blinker Clipper     Symbol    Off
Blinker Overlay     PageFrame On
Blinker Overlay     Umb       On
Blinker Executable  Extended
Blinker Executable  NoDelete
Blinker Executable  Alignment  64
Blinker Procedure   Depth      50
Blinker Overlay     Threshold  64
Blinker Segment     Threshold  65500
Blinker Overlay     Opsize     40
Blinker Cache Xms   50%, 2048
Blinker Cache Ems   50%, 2048

Map A,S

BeginArea
   // arquivo para retirar varios BUGs do clipper
   FILE mpar,vmw,cdxlock
   FILE <seus arquivo .prg>
ENDAREA

LIB <de terceiros>
//Libs do Fivewin
SEARCH Five,FiveC,Objects,WinApi
//Libs do Clipper que no caso uso o RDD CDX
SEARCH DbfCdx,_DbfCdx,Clipper,Extend,Terminal
//Se for usar o o RDD NTX use estas linha e desabilita a de cima
//SEARCH DbfCdx,_DbfCdx,Clipper,Extend,Terminal

DEFBEGIN
   NAME        Nome do Programa
   DESCRIPTION 'By Compania'
   EXETYPE     WINDOWS 3.11
   CODE        PRELOAD MOVEABLE DISCARDABLE
   DATA        PRELOAD MOVEABLE
   STACKSIZE   27500
   HEAPSIZE    4096
   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

output <seu executavel>


Exemplo de RMK
.PRG.OBJ:
   CLIPPER $< /n
<seu.obj>: <seu.prg>

<seu.exe>: <seu.obj>
    Blinker @<seu.lnk>


Agora qto ao cl.bat as seguintes linhas, no caso como estão meus clipper e fivewin
set cldir=c:\cl53
set fwdir=c:\fw20

%cldir%\bin\clipper fs /n /i%fwdir%\include > clip.log
%cldir%\bin\clipper Emrpesa /n /i%fwdir%\include > clip.log

//No caso eu guardo o blinker dentro da pasta bin do clipper, mas ai é so vc setar tb
%cldir%\bin\blinker fi FS,Empresa @%fwdir%\include\FiveWin.lnk > Blink.log

IF NOT ERRORLEVEL 1 FS.EXE


Eu tirei algumas coisa que são particulares mas deve funcionar se esqueci de algo é só avisar.
Um grande abraço :)Pos
aferra
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 38
Data de registro: 30 Mai 2008 06:55
Cidade/Estado: Ribeirão Preto/SP
Curtiu: 0 vez
Mens.Curtidas: 3 vezes

Re: Dúvida Menu

Mensagempor Darc » 12 Jun 2008 16:56

Fiz os procedimentos da resposta anterior, mas quando executo o sistema, a primeira janela que aparece é a do cadastro de empresas e não a tela principal, onde está o menu, para chamar o cadastro, o que pode ser ???
Darc
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 73
Data de registro: 09 Jul 2004 12:41
Cidade/Estado: Juiz de Fora
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Re: Dúvida Menu

Mensagempor aferra » 13 Jun 2008 10:03

Olá Darc.

provavelmente deve haver algum erro dentro de seu fs.prg,
1) vc colocou FUNCTION MAN()
2) Não definiu o menu corretamente
3) se nenhuma da alternativas, então mostre como está fazendo!!!
aferra
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 38
Data de registro: 30 Mai 2008 06:55
Cidade/Estado: Ribeirão Preto/SP
Curtiu: 0 vez
Mens.Curtidas: 3 vezes

Re: Dúvida Menu

Mensagempor rochinha » 13 Jun 2008 11:40

Amiguinho

Veja estes exemplos:

Dificil Aprendizado - Janelas
Dificil Aprendizado - Aula 2
Dificil Aprendizado - Aula 6
Dificil Aprendizado - Aula 7

Caso algum link esteja com problemas de me um toque.
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




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