1) HB_GTI_CLOSABLE seems not working
2) setmode returns false but it seem to work

I've used the test below using:
./gttest 15 48 140 Terminal 1

under WinXP Pro SP3 msys/mingw 3.4.5

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

Reply via email to