Tamanho TELA
Enviado: 18 Jun 2008 10:43
Ao utilizar a biblioteca GTWVW (não sei se é ela de fato), meu sistema abre com tamanho único, tem como deixar em tela inteira ou pelo menos regular o tamanho da tela a ser aberta 
Código: Selecionar todos
PROCEDURE SeConf_xhb()
* #ifdef WVWLIB
* // #include "gtinfo.ch"
* #ENDIF
*
// REQUEST HB_GT_WIN
// REQUEST HB_GT_WVW_DEFAULT
//HB_LANGSELECT( 'PT' )
WvW_SetMainCoord( .F. )
SET(_SET_EVENTMASK,159) // habilita o mouse
SetToolTipBalloon(.t.) //BalÆo da hwgui
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
WvW_SetGet( "CODEPAGE" , 255 )
mLinhaMSG:=24
oFonteMaior:= HFont():Add( "Arial",0,-25,400,255 )
//setmode(25, 80)
IF HB_GT_VERSION(0)=[WVW] //IF HB_GT_VERSION(0)=[WVW] //#ifdef GTWVW
#ifdef WVWLIB
REQUEST WvW_GetScreenWidth
REQUEST WVw_SetFont
REQUEST WVw_SetCodePage
#endif
mTpGrafico:=[1]
WvW_Enablemaximize( , .T.)
wvw_SETICON(, 1 )
IF GETDESKTOPWIDTH()=1280 // wvw_GetScreenWidth()=1280
// 1280X768
// 1280X1024
// 1280X800
mLinhaMSG:=24
mResHoriz := 1200 // COMPRI
mResVert := 800 // HALTURA
mColWin:=145 //aprox. linx4
mLinSay:=38
if GETDESKTOPHEIGHT() >=1024
oFonte := HFont():Add( "Arial" , 0 ,-16,400,255 )
oFonteGrid := HFont():Add( "Courier New",0 ,-18,400,255 )
wvw_SETFONT(, 'Courier New' , 29, 15, 0 ,255)
// wvw_maximize(0)
elseif GETDESKTOPHEIGHT() >=960
oFonte := HFont():Add( "Arial" , 0 ,-16,400,255 )
oFonteGrid := HFont():Add( "Courier New",0 ,-18,400,255 )
wvw_SETFONT(, 'Courier New' , 29, 15, 0 ,255)
elseif GETDESKTOPHEIGHT() >=800
//msginfo('oi')
wvw_SETFONT(, 'Corier New', 24, 12,0,255 )
oFonte := HFont():Add( "Arial" ,0 ,-15,400,255 )
oFonteGrid := HFont():Add( "Courier New",0 ,-17,400,255 )
mResVert := 750
// wvw_maximize(0)
elseif GETDESKTOPHEIGHT() >=768
wvw_SETFONT(, 'Corier New', 23, 11,0,255 )
oFonte := HFont():Add( "Arial" ,0 ,-15,400,255 )
oFonteGrid := HFont():Add( "Courier New",0 ,-17,400,255 )
if GETDESKTOPHEIGHT() <800
xResVert := GETDESKTOPHEIGHT()-10
endif
else
wvw_SETFONT(, 'Courier New', 28, 12,0,255)
oFonte := HFont():Add( "Arial" ,0 ,-15,400,255 )
oFonteGrid := HFont():Add( "Courier New",0 ,-17,400,255 )
endif
mResHorizbrw := mResHoriz-10
mResVertbrw := mResVert-40
ELSEIF wvw_GetScreenWidth()=1152
// wvw_SETFONT(, 'Lucida Console', 28, 12,0,255)
wvw_SETFONT(, 'Courier New', 28, 12,0,255)
oFonte := HFont():Add( "Arial" ,0 ,-15,400,255 )
oFonteGrid := HFont():Add( "Courier New",0 ,-17,400,255 )
mLinhaMSG:=24
mResHoriz := 1100 // COMPRI
mResVert := 800 // HALTURA
mColWin:=145 //aprox. linx4
mLinSay:=38
mResHorizbrw := mResHoriz-10
mResVertbrw := mResVert-40
ELSEIF wvw_GetScreenWidth()=1024 //1024x768
mLinhaMSG:=24
wvw_SETFONT(, 'Corier New', 24, 12,0,255 )
oFonte := HFont():Add( "Arial" ,0 ,-15,400,255 )
oFonteGrid := HFont():Add( "Courier New",0 ,-17,400,255 )
mResHoriz := 995
mResVert := 700
mColWin:=145 //aprox. linx4
mLinSay:=38
mResHorizbrw := mResHoriz-10
mResVertbrw := mResVert-40
//wvw_maximize(0)
ELSEIF wvw_GetScreenWidth()=800
mResHoriz := 800
mResVert := 600
oFonteMaior:= HFont():Add( "Arial",0,-22,400,255 )
// // ok barra
// wvw_SETFONT(, 'Lucida Console', 18,09,400,255)
// oFonte:= HFont():Add( "Arial",0,-13,400,255 )
//ok sem barra
// wvw_SETFONT(, 'Lucida Console' ,17, 10,350,255)
wvw_SETFONT(, 'Courier New' ,18, 10,350,255)
oFonte := HFont():Add( "Arial" , 0,-13,400,255 )
oFonteGrid := HFont():Add( "Courier New",0 ,-13,400,255 )
mLinhaMSG:=23
mResHoriz := 800
mResVert := 600
mColWin:=114 //aprox. linx4
mLinSay:=39
mResHorizbrw := mResHoriz-5
mResVertbrw := mResVert-35
wvw_maximize(0)
ELSEIF wvw_GetScreenWidth()=640
mResHoriz := 640
mResVert := 480
// wvw_SETFONT(, 'Lucida Console', 20, 10,0,255 )
wvw_SETFONT(, 'Courier New', 20, 10,0,255 )
oFonte := HFont():Add( "Arial" ,0 ,-13,400,255 )
oFonteMaior:= HFont():Add( "Arial" ,0 ,-14,400,255 )
oFonteGrid := HFont():Add( "Courier New",0 ,-13,400,255 )
mColWin:=60 //aprox. linx4
mLinSay:=25
mResHorizbrw := mResHoriz-30
mResVertbrw := mResVert-35
// wvw_maximize(0)
else
mLinhaMSG:=24
// wvw_SETFONT(, 'Lucida Console', 25, 12,0,255 )
wvw_SETFONT(, 'Courier New', 25, 12,0,255 )
oFonte := HFont():Add( "Arial" ,0 ,-15,400,255 )
oFonteGrid := HFont():Add( "Courier New",0 ,-15,400,255 )
mResHoriz := 960
mResVert := 700
mColWin:=145 //aprox. linx4
mLinSay:=38
mResHorizbrw := mResHoriz-10
mResVertbrw := mResVert-40
ENDIF
oFonteG:=oFonte
if wvw_GetScreenWidth()<=800
else
* WvW_cbSetFont( , "Arial", 13 ) //fonte dos combo
* WvW_pbSetFont( , "Tahoma", 15 ) // fonte paras os pusbrush
* WvW_cxSetFont( , "Arial", 13,,,, .T., .T. ) //fonte do checbox
endif
wvw_seticon(,2 /*id do icone */)
WVW_SetMainCoord( .t. ) // for‡a o maxrow ser a 1a linha da janela
wvw_setcodepage(,255)
//Configura a cor nos gets da hwgui
SetColorinFocus( .t. )
// WvW_Enablemaximize( , .T.)
ENDIF
return nil