The code below works in 1.0.1 and in gtxwc in the sense that I get the
requested font size, rows and cols.
With trunk and gtwvt it resets to the default 20,24,79.
I'm using msys/mingw current under WinXP SP3.
Note that without the ? HB_GTVERSION() gtxwc works but gtwvt doesn't
show the window ( but it's in the task bar ).
Any suggestion?
best regards,
Lorenzo
#include "hbgtinfo.ch"
procedure main()
local nRows, nCols
if !( HB_GTVERSION() $ "STD_TRM" )
? HB_GTVERSION()
HB_GTInfo(HB_GTI_FONTSIZE, 15)
if !setmode( 48, 140 )
setmode( 255, 255 )
endif
clear screen
endif
nRows := maxrow()
nCols := maxcol()
alert( "maxrow()="+alltrim(str(nRows))+;
";maxcol()="+alltrim(str(maxcol(nCols)))+;
";font size="+alltrim(str(HB_GTInfo(HB_GTI_FONTSIZE)))+;
";Am I in center?" )
return
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
