DIFICIL APRENDIZADO - Aula 04

[rochinha]

Amiguinhos

Nesta aula daremos uma melhorada em nossa janela colocando-lhe algumas informações visuais para nosso usuário.

Iremos acrescentar uma mensagem de rodapé muito simples


Figura 04

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

C:\>BUILD AULA04

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
   SET MESSAGE OF oWnd TO "Forum Clipper-On-Line"
   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

Poderemos acrescentar também informações de estado de teclado, hora e data bastando acrescentar ao comando SET MESSAGE os parametros a seguir:


Figura 04a

Código: Selecionar todos

   ...
   SET MESSAGE OF oWnd TO "Forum Clipper-On-Line" KEYBOARD CLOCK DATE
   ...

Até a próxima.