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 Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour