PC Toledo

Enviado: **03 Nov 2004 03:39**

Amiguinhos

Nesta aula iremos acrescentar mais interatividade, tornando a interface um pouco mais robusta.

será acrescentada a mesma uma barra de botões.

As barras de botões, assim como os menus ativarão as opções definidas pelo usuário que terão uso maior no aplicativo sendo visualmente mais rápidas.

Imagem

Figura 05

Digite o código abaixo em um arquivo e de-lhe o nome de AULA05.PRG e compiLe utilizando o BUILD.BAT:

C:\>BUILD AULA05

Código: Selecionar todos

#include "fivewin.ch"

function main()
   local oWnd
   DEFINE WINDOW oWnd TITLE "Janela principal" ;
          FROM 5, 5 TO 24, 64 ;
          MENU Menu() ;
          MDI
   DEFINE BUTTONBAR oBar OF oWnd
   SET MESSAGE OF oWnd TO "Forum Clipper-On-Line" KEYBOARD DATE CLOCK
   ACTIVATE WINDOW oWnd
   return nil

FUNCTION Menu()
   local oMenu, oMenu1, oMenu2
   local oSub1,oSub2,oSub3
   MENU oMenu
      MENUITEM oMenu1 PROMPT "Opcao &1"
         MENU
            MENUITEM "&Clientes"
               MENU
                  MENUITEM "Incluir"   ACTION MDIChild()
                  MENUITEM "Excluir"   ACTION MDIChild()
                  SEPARATOR
                  MENUITEM "Consultar" ACTION MDIChild()
               ENDMENU
            MENUITEM "&Fornecedores"
               MENU
                  MENUITEM "Incluir"   ACTION MDIChild2()
                  MENUITEM "Excluir"   ACTION MDIChild2()
                  SEPARATOR
                  MENUITEM "Consultar" ACTION MDIChild2()
               ENDMENU
         ENDMENU
      MENUITEM oMenu2 PROMPT "Opcao &2" DISABLED
         MENU
            MENUITEM "Item 1" DISABLED ACTION MDIChild()
            MENUITEM "Item 2" DISABLED ACTION MDIChild()
         ENDMENU
   ENDMENU
   return oMenu

function MDIChild()
   local oWnd1
   DEFINE WINDOW oWnd1 TITLE "Janela Normal" ;
                 FROM 1, 1 TO 10, 30
   ACTIVATE WINDOW oWnd1
   return nil

function MDIChild2()
   local oWnd1
   DEFINE WINDOW oWnd1 TITLE "Janela MDI" MDICHILD ;
                 FROM 1, 1 TO 10, 30
   ACTIVATE WINDOW oWnd1
   return nil

Modifique o código à seguir de forma que possa suportar alguns botões:

Código: Selecionar todos

   DEFINE BUTTONBAR oBar OF oWnd
   DEFINE BUTTON OF oBar FILE "exit.bmp" ;
          ACTION MsgInfo( "Coloque aqui uma chamada a um dialog ou window" ) ;
          MESSAGE "Coloque aqui uma mensagem..."
   DEFINE BUTTON OF oBar FILE "Open.bmp" ;
          ACTION MsgInfo( "Coloque aqui uma chamada a um dialog ou window" ) ;
          MESSAGE "Coloque aqui uma mensagem..."
   SET MESSAGE OF oWnd TO "Forum Clipper-On-Line" KEYBOARD DATE CLOCK

Serão necessários também os BMPs apresentados abaixo:

http://www.5volution.com.br/downloads/forum/exit.bmp
http://www.5volution.com.br/downloads/forum/open.bmp
http://www.5volution.com.br/downloads/forum/cut.bmp

O resultado ficará assim:

Imagem

Figura 05a

Até a próxima.

PC Toledo

DIFICIL APRENDIZADO - Aula 05

DIFICIL APRENDIZADO - Aula 05