programa nao roda com GTWVT no WIN98
Enviado: 26 Abr 2011 10:09
Olá pessoal estou tentando migrar meu sistema p/harbour + gtwvt e no compilei com gtwvt e no windows 98 o programa não roda da o seguinte erro um dispositivo anexado ao sistema não está funcionando ai aparece uma msgbox com a seguinte mensagem (o arquibo agenda.exe espera uma nova versao do windows. atualize sua versao do windows) alguem sabe se gtwvt não roda em windows98.
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