Clipper On Line • Ver Tópico - DIFICIL APRENDIZADO - Aula 04

DIFICIL APRENDIZADO - Aula 04

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

DIFICIL APRENDIZADO - Aula 04

Mensagempor rochinha » 03 Nov 2004 02:07

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

Imagem
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:

Imagem
Figura 04a

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


Até a próxima.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes



Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 12 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro