Código: Selecionar todos
#include "inkey.ch"
#include "visual2.ch"
#include "wvtwin.ch" // em razão do FW_MEDIUM
#include "hbgtinfo.ch" // HB_GTI_DESKTOPWIDTH
INIT FUNCTION MOLDER()
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_LANGSELECT("PT")
HB_SetCODEPAGE( "PT850" )
REQUEST WVT_SETCODEPAGE
WVT_SETCODEPAGE(255) //850
SETMODE(25,80)
AddFont()
SET TYPEAHEAD TO 0
SET INTENSITY ON
SET SCOREBOARD OFF
SET DELETED ON
SET SAFETY OFF
SET DATE BRITISH
SET ESCAPE ON
SET CENTURY ON
SET DELIMITERS TO
SET CURSOR OFF
SET EXCLUSIVE OFF
SET WRAP ON
SET EPOCH TO 1990
Do Case
Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 1024
Wvt_SetFont('VisualLib',28,11,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 800
Wvt_SetFont('VisualLib',21,11,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
OtherWise
Wvt_SetFont('VisualLib',15,7,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
EndCase
WvT_SetAltF4Close( .F. )
*WvT_SetPointer( 0, 100 ) // AQUI DA PAU ACREDITO QUE SEJA ALGO RELACIONADO COM O PONTEIRO DO MOUSE, NÃO VOU USAR
WvT_SetTITLE('Sistema X - Vs.1.0')
RETURN Nil
FUNCTION MAIN()
MENSAGEM :="Agendament System Protocol & Service"
DESKTOP( MENSAGEM , WT_VERM1CINZA , WD_VERM1CINZA )
* Menu do Sistema
mBar := NewBarMenu()
mARQ := NewDownMenu()
mARQ1 := NewDownMenu()
AddDownItem( mARQ , "&1 - Clientes" , Hb_AnsiToOem("Sistema Cadastro de Clientes"),)
AddDownSep ( mARQ )
AddDownItem( mARQ , "&2 - Protocolos" , Hb_AnsiToOem("Sistema Cadastro de Protocolos de Remessa e Recebimento"),mARQ1 )
AddDownItem( mARQ1 , "&A - Protocolos Remessa " , Hb_AnsiToOem("Cadastro de Protocolos de Remessa") , {|| Msgbox("oi") , WaitState(), RstEnv( aEnv ) })
AddDownItem( mARQ1 , "&B - Protocolos Recebimento" , Hb_AnsiToOem("Cadastro de Protocolos de Recebimento"), {|| MsgBox1("E ai?"), WaitState(), RstEnv( aEnv ) })
AddBarItem( mBar, "&Arquivos" , "Sistema Controle de Clientes" , mARQ )
Private aENV := SavEnv(0,0,24,79)
while .t.
BarMenu( mBar )
set key K_F10 to
SetKeyMouse( K_F10, {} )
VLExit()
set key K_F10 to saida()
SetKeyMouse( K_F10, { 24, 24, 72, 79 } )
End
* End of Function Main()
RETURN nil
FUNCTION Saida()
aKM := SetKeyMouse( K_F10, {} )
set key K_F10 to
VLExit()
set key K_F10 to saida()
SetKeyMouse( K_F10, aKM )
RETURN nil
STATIC FUNCTION AddFont()
Local nRet := AddFontResource("VISUALLIB.TTF")
If nRet == 0
MsgBox("A fonte VISUALLIB.TTF não foi adicionada ao sistema.")
Else
MsgBox("A fonte VISUALLIB.TTF foi adicionada ao sistema.")
EndIf
RETURN Nil
STATIC FUNCTION RemoveFont()
Local lRet := RemoveFontResource("VISUALLIB.TTF")
If lRet == .f.
MsgBox("Houve um erro na remoção da fonte VISUALLIB.TTF.","Aviso")
Else
MsgBox("A fonte VISUALLIB.TTF foi removida com sucesso.","Aviso")
EndIf
RETURN Nil