Legal minha aplicação já possui mais interatividade.
O fato de utilizarmos imagens para exemplificar ações ao invés de palavras, muitas vezes faz o usuário pensar por muito tempo sobre o que significa aquela imagem, por isto devemos usar imagens mais corriqueiras e simples.
Mas se sua interface requer imagens nos botões um tanto ortodóxas utilize a técnica de dicas, as ToolTips.
Nesta aula iremos aprender como acrescentar aos nossos botões estas informações.
O resultado será como o que aparece abaixo:
Figura 06
Digite o código abaixo em um arquivo e de-lhe o nome de AULA06.PRG e compiLe utilizando o BUILD.BAT:
C:\>BUILD AULA06
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
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..." ;
TOOLTIP "Sou uma dica rapida para este controle."
DEFINE BUTTON OF oBar FILE "Open.bmp" ;
ACTION MsgInfo( "Coloque aqui uma chamada a um dialog ou window" ) ;
MESSAGE "Coloque aqui uma mensagem..." ;
TOOLTIP "Sou uma dica rapida para este controle."
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
Até a próxima.