Ações e Diálogos no FiveWin

por **vmolina** » 13 Jan 2012 13:58

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

Segue código do primeiro programa que estou fazendo.

#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.

por **Pablo César** » 13 Jan 2012 18:12

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.

por **Toledo** » 13 Jan 2012 20:11

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

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

Agora basta abrir uma nova janela e colocar os GETs:

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,

por **vmolina** » 14 Jan 2012 08:06

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

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

por **rochinha** » 18 Jan 2012 11:45

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.

por **vmolina** » 18 Jan 2012 16:00

Valeu Rochinha, já estou acompanhando seus tutoriais.

Obrigado pela dica