PC Toledo

Código: Selecionar todos

#include "hwgui.ch"

FUNcTION MAIN()
LOCAL oToolbar1

 #define DB_DBFLOCK_VFP        3
      
REQUEST DBFCDX // CHAMADA AO BANCO DBFCDX OU _DBFCDX
RDDSETDEFAULT( "DBFCDX" ) // CARREGA RDD DEFINIDO NO CASO, *.CDX
DBSETDRIVER( "DBFCDX" ) // CARREGA RDD DEFINIDO NO CASO, *.CDX
  
SET DBFLOCKSCHEME TO DB_DBFLOCK_VFP
  
  SET EVENTMASK TO 159  
  SET DATE FRENCH   // FORMATO DD/MM/AAAA
  SET SCOREBOARD OFF
  SET TYPEAHEAD to 100
  
	*-SET EPOCH TO 1950 // PARA IMPEDIR QUE O ANO SEJA 00
	SET SOFTSEEK ON // PARA REALIZAR UMA BUSCA APROXIMADA
	SET WRAP ON //-Set( 35, "ON" ) // PARA MENUS
	SET DELETED ON // ON IMPEDIR VER REGISTROS MARCADOS PARA APAGAR
	SET EXCLUSIVE OFF // REDE NETUSE LIGADA
  SET OPTIMIZE ON
  SET AUTOSHARE TO  1
  SET STRICTREAD ON
	HB_LANGSELECT( 'PT' ) // Default language is now Portuguese
	//
INIT WINDOW oMain MAIN TITLE "TESTE" ;
  AT 0,0 SIZE  Getdesktopwidth(),GetdesktopHeight()-21 ;
  FONT HFont():Add( 'Arial',0,-12,400,,,);
   STYLE DS_CENTER +WS_SYSMENU+WS_VISIBLE    

  MENU OF oMain                                               
    MENU TITLE 'Tests' ID 32000 
      MENUITEM 'Test1 - Modal' ID 32001  ACTION ( _sergio() )  
      MENUITEM 'Sequencia - Prg' ID 32002  ACTION ( _sequencia())
      MENUITEM 'Sequencia - XML' ID 32007  ACTION ( doformxml("sequencia.xml"))
      MENUITEM 'Test3 - nomodal ' ID 32003  ACTION ( _empresa() )  
      MENUITEM 'New Teste - MODAL' ID 32008  ACTION ( _novoteste() )  
      SEPARATOR 
      MENUITEM 'Exit' ID 32006  ACTION ( EndWindow() )  
    ENDMENU  
   MENU TITLE 'Help' ID 32004 
     MENUITEM 'About' ID 32005  ACTION ( ShellAbout("HwGUI forms example","") )  
   ENDMENU  
 ENDMENU 

    @ 0,0 PANEL oPanel SIZE Getdesktopwidth(),40 //ON SIZE {|o,x,y|MoveWindow(o:handle,0,0,x,y-21)}
    @ 2,2 OWNERBUTTON  OF oPanel SIZE 60,36 ;
        STYLE WS_TABSTOP  FLAT  ;
        TEXT 'Test'  ;
        COORDINATES 0, 0, 0, 0  ;
        ON CLICK {|| _sergio() }

   @ 64,2 OWNERBUTTON   OF oPanel SIZE 60,36 ;
        STYLE WS_TABSTOP  FLAT  ;
        TEXT 'Test2'   ;
        COORDINATES 0, 0, 0, 0  ;
        ON CLICK {|| _sequencia() }
   @ 120,2 OWNERBUTTON   OF oPanel SIZE 60,36 ;
        STYLE WS_TABSTOP  FLAT  ;
        TEXT 'Cep'   ;
        COORDINATES 0, 0, 0, 0  ;
        ON CLICK {|| _ceps() }
     
   @ getdesktopwidth()-62,2 OWNERBUTTON OF oPanel SIZE 60,36 ;
        STYLE WS_TABSTOP  FLAT  ;
        TEXT 'Exit'  ;
        COORDINATES 0, 0, 0, 0  ;
        ON CLICK {|| omain:close() }
   
   @ 0,41 BITMAP oBmp SHOW "c:\xharbour\silabor\silabor.jpg"  ;
            SIZE 800,547
  
     ADD STATUS oStatus1 TO oMain  ; 
        PARTS 100, 80
        oStatus1:Name := 'oStatus1' 

 ACTIVaTe WINDOW omain MAXIMIZED

 RETURN

Código: Selecionar todos

 no código acima.
[/color]