Código: Selecionar todos
#DEFINE CGTWVW CGTWVW
**********************
#IFDEF CGTWVW
REQUEST HB_GT_WVt_DEFAULT
REQUEST HB_GT_WVt
#INCLUDE "HBGTINFO.CH"
cls
SETMODE(25,80)
Hb_GtInfo( HB_GTI_SELECTCOPY,.T.)
HB_GTINFO( HB_GTI_CLOSABLE, .T. )
HB_GTINFO( HB_GTI_RESIZABLE, .T. )
HB_GTINFO( HB_GTI_CODEPAGE, 255 )
Hb_GTInfo(HB_GTI_MOUSESTATUS, 1 )
screenWidth:= HB_GTINFO( HB_GTI_SCREENWIDTH, HB_GTINFO( HB_GTI_DESKTOPWIDTH ) )
screenHeight:=HB_GTINFO( HB_GTI_SCREENHEIGHT, HB_GTINFO( HB_GTI_DESKTOPHEIGHT ) - 50)
SETMODE( 25,80)
HB_GTInfo(HB_GTI_FONTNAME, "Courier New")
HB_GTInfo(HB_GTI_FONTQUALITY,HB_GTI_FONTQ_HIGH )
if screenWidth >= 1920
Hb_GtInfo( HB_GTI_FONTWIDTH, 21 )
HB_GTInfo(HB_GTI_FONTSIZE, 40)
ELSEIF screenWidth >= 1600 // 1280 *960
Hb_GtInfo( HB_GTI_FONTWIDTH, 18 )
HB_GTInfo(HB_GTI_FONTSIZE, 32)
elseif screenWidth >= 1280 // 1280 *960
Hb_GtInfo( HB_GTI_FONTWIDTH, 13 )
HB_GTInfo(HB_GTI_FONTSIZE, 20) // 15*80=1200 36*25=900
elseif screenWidth >= 1024 // 1024*760
Hb_GtInfo( HB_GTI_FONTWIDTH, 12.5 )
HB_GTInfo(HB_GTI_FONTSIZE, 20)
elseif screenWidth >= 800
Hb_GtInfo( HB_GTI_FONTWIDTH, 10 )
HB_GTInfo(HB_GTI_FONTSIZE, 18)
ELSE
Hb_GtInfo( HB_GTI_FONTWIDTH, 14 )
HB_GTInfo(HB_GTI_FONTSIZE, 8)
ENDIF
SET EVENTMASK TO 159
REQUEST HB_LANG_PT
HB_LANGSelect("PT")
#ENDIF


