Error BASE/1075 Erro nos parÆ’metros: >
Called from Menus.prg->MENUA(22)
Called from demo.prg->MAIN(136)
HwGUI 2.17 xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6633)
Date:20/10/2016
Time:13:25:03
FUNC MENUA
#Include "visual2.ch"
#include "inkey.ch"
#include "hbgtinfo.ch"
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_LANGSELECT("PT")
HB_SETCODEPAGE( "PT850" )
REQUEST WVT_SETCODEPAGE
WVT_SETTITLE(HB_OEMTOANSI("S.A.G.I"))
wvt_setfont("courier new",10,0)
WVT_SETCODEPAGE(255)
SET EVENTMASK TO 159
ALTD()
do case // Identifica a resolucao do video
case hb_gtinfo(GTI_DESKTOPWIDTH) > 1023 [b] <--- erro nessa linha[/b]
hb_gtinfo(GTI_FONTWIDTH, 12) // 12 anterior // 13 // 12
hb_gtinfo(GTI_FONTSIZE, 27) // 28 anterior // 29 // 27
case hb_gtinfo(GTI_DESKTOPWIDTH) > 799
hb_gtinfo(GTI_FONTWIDTH, 10 ) // 10 anterior // 10
hb_gtinfo(GTI_FONTSIZE, 22 ) // 20 anterior // 22
otherwise
hb_gtinfo(GTI_FONTWIDTH, 8)
hb_gtinfo(GTI_FONTSIZE, 17)
endcase