Clipper On Line • Ver Tópico - Ações e Diálogos no FiveWin
Página 1 de 1

Ações e Diálogos no FiveWin

MensagemEnviado: 13 Jan 2012 13:58
por 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.

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

Ações e Diálogos no FiveWin

MensagemEnviado: 13 Jan 2012 18:12
por 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.

Ações e Diálogos no FiveWin

MensagemEnviado: 13 Jan 2012 20:11
por Toledo
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,

Ações e Diálogos no FiveWin

MensagemEnviado: 14 Jan 2012 08:06
por 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.

Ações e Diálogos no FiveWin

MensagemEnviado: 18 Jan 2012 11:45
por 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.

Ações e Diálogos no FiveWin

MensagemEnviado: 18 Jan 2012 16:00
por vmolina
Valeu Rochinha, já estou acompanhando seus tutoriais.

Obrigado pela dica