Harbour + WVG e a tela Cheia no WinXP e 7 com Icone etc.
Enviado: 14 Nov 2010 20:59
Ola!
Vejam como eu uso.
No Win7 fica show usando a fonte "Courier New", me parece que no XP tem uma tal "Consolas" que podemos instalar que fica legal também.
Saudações,
Itamar M. Lins Jr.
Vejam como eu uso.
Código: Selecionar todos
REQUEST HB_LANG_PT,HB_CODEPAGE_PTISO,HB_CODEPAGE_PT850
REQUEST HB_GT_WVG_DEFAULT
REQUEST HB_GT_WVG
REQUEST HB_GT_GUI
#include "wvtwin.ch"
#include "hbgtinfo.ch"
#include "hbgtwvg.ch"
#include "wvgparts.ch"
Function main()
HB_CDPSELECT([PTISO])
hb_langselect([PT])
hb_gtInfo( HB_GTI_ICONFILE, "imagens\sciwin.ico" )
hb_gtInfo( HB_GTI_WINTITLE, "XYZ - SISTEMA XYZ" )
Hb_GtInfo( HB_GTI_SELECTCOPY,.T.)
Hb_GtInfo( HB_GTI_RESIZABLE, .T. )
HB_GTINFO( HB_GTI_CLOSABLE, .T. )
HB_GTINFO( HB_GTI_RESIZABLE, .T. )
HB_GTINFO( HB_GTI_CODEPAGE, 850) // 255 )
Hb_GTInfo(HB_GTI_MOUSESTATUS, 1 )
nRows := HB_GTINFO( HB_GTI_DESKTOPROWS )
nCols := HB_GTINFO( HB_GTI_DESKTOPCOLS )
hb_gtInfo( HB_GTI_SPEC, HB_GTS_WNDSTATE, HB_GTS_WS_MAXIMIZED )
SetarVideo()
*******************
Function SetarVideo
*******************
*
*
screenWIDTH:= HB_GTINFO( HB_GTI_SCREENWIDTH, HB_GTINFO(HB_GTI_DESKTOPWIDTH ) )
screenHEIGHT := HB_GTINFO( HB_GTI_SCREENHEIGHT, HB_GTINFO(HB_GTI_DESKTOPHEIGHT ) -50 )
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, 15 )
HB_GTInfo(HB_GTI_FONTSIZE, 35)
ENDIF
return
Saudações,
Itamar M. Lins Jr.