Just to report, I've run the code below, that works as expected with
gtwvt, with gtwin
using ./gttest1 15 48 140 Terminal 1
I'm not sure what is the correct result but:
setmode returns false ( while gtwvt returns true )
and it RT:
Error BASE/1099 Argument error: STR
Called from STR(0)
Called from MAIN(27)
at HB_GTInfo(HB_GTI_FONTSIZE).
best regards,
Lorenzo
#include "common.ch"
#include "hbgtinfo.ch"
procedure main( cFontSize, cRows, cCols, cFontName, cFontQuality )
local nRows, nCols
// clear screen
HB_GTInfo(HB_GTI_RESIZABLE, FALSE)
HB_GTInfo(HB_GTI_CLOSABLE, FALSE)
HB_GTInfo(HB_GTI_FONTNAME, alltrim(cFontName))
HB_GTInfo(HB_GTI_FONTQUALITY, val(cFontQuality))
HB_GTInfo(HB_GTI_FONTSIZE, val(cFontSize))
if !setmode( val(cRows), val(cCols) )
alert( "setmode returns false" )
endif
clear screen
@ 0, 0, maxrow(), maxcol() box space( 9 ) color "W/W"
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 centre?" )
return
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
