Ações e Diálogos no FiveWin

[vmolina]

Boa tarde pessoal, sou iniciante na programação fivewin e to aqui apanhando pra aprender.

Segue código do primeiro programa que estou fazendo.

Código: Selecionar todos

#include "FiveWin.ch"

Static oWnd

Function Main()  

LOCAL oWnd, oWnd2

MENU oMenu 
MENUITEM "OPCAO1" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window1")
MENUITEM "OPCAO2" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window2")   
MENUITEM "OPCAO3" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window3")      
MENUITEM "FECHAR" ACTION oWnd:End() 
ENDMENU                                                       

DEFINE WINDOW oWnd TITLE "MEU PRIMEIRO PROGRAMA" MDI MENU oMenu    COLOR "W/BG"
SET MESSAGE OF oWnd TO "SOFTWARE PARA AUTOMAÇÃO" CLOCK DATE CENTERED

DEFINE WINDOW oWnd2 TITLE "oWnd2" COLOR "B/WG" ;
FROM 8, 8 TO 30, 50 



ACTIVATE WINDOW oWnd MAXIMIZED VALID MsgYesNo( "Deseja sair ?" ) 

return nil

1º Como faço para a opção 1, 2,3 acionar uma janela com uma caixa de dialogo dentro com alguns campos para preenchimento de dados?


Obrigado e fico no aguardo.

[Pablo César]

Olá Molina, seja bem vindo ao fórum !

Como faço para a opção 1, 2,3 acionar uma janela com uma caixa de dialogo dentro com alguns campos para preenchimento de dados?

Justamente, como faz com janela, mas está faltando...
Não programa com FW, mas pelo que eu percebo, é justamente isso que estaria faltando: definir a JANELA e ativá-la.

[Toledo]

Molina, para dar ação para um menu basta definir a função que será executada:

Código: Selecionar todos

MENUITEM "OPCAO1" ACTION Janela1()
MENUITEM "OPCAO2" ACTION Janela2()  
MENUITEM "OPCAO3" ACTION Janela3()

Agora basta abrir uma nova janela e colocar os GETs:

Código: Selecionar todos

function Janela1()
   local oDlg, oGet1, oGet2
   local cCodigo := SPACE(5)
   local cNome := SPACE(40)

   DEFINE DIALOG oDlg FROM 1, 5 TO 40, 200 TITLE "Janela com GETs"
   
   @  05, 3  SAY "Código " OF oDlg
   @  06, 3  SAY "Nome   " OF oDlg

   @  05,  11 GET oGet1 VAR cCodigo  OF oDlg SIZE 50,20
   @  06,  11 GET oGet2 VAR cNome  OF oDlg SIZE 120,20

   ACTIVATE DIALOG oDlg CENTERED
   
return nil

Abraços,

[vmolina]

Valeu Pablo Cézar obrigado, gostei do fórum...

Toledo muito obrigado pela dica e atenção, defini a função e rodou beleza.

[rochinha]

Amiguinho,

Aproveitando de uma busca aqui no forum por "dificil aprendizado". São uma série de posts relacionados a Fivewin, com exemplos simples e explicados para inicio rápido.

[vmolina]

Valeu Rochinha, já estou acompanhando seus tutoriais.

Obrigado pela dica