Harbour + WVG e a tela Cheia no WinXP e 7 com Icone etc.

[Itamar M. Lins Jr.]

Ola!
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

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.

[Stanis Luksys]

Opa,

Coloquei aqui também uma função que simula tela cheia real, exatamente como ficava no DOS antigamente.

http://sites.google.com/site/hblibs/cla ... -windows-7

Abraços!