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
#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
...
SET MESSAGE OF oWnd TO "Forum Clipper-On-Line" KEYBOARD CLOCK DATE
...
Até a próxima.