SET CURSOR OFF não está funcionando.

[asimoes]

Pessoal,

Peço uma ajudinha neste probleminha que pelo menos comigo está acontececendo:

O comando SET CURSOR OFF neste código não está funcionando.

O cursor continua piscando no campo get mesmo comandado para off

Estou compilando com harbour + mingw

Código: Selecionar todos

#include "inkey.ch"
#include "common.ch"
#include "wvtwin.ch"
#include "hbcompat.ch"
#include "hbgtinfo.ch"
#include "hbgtwvg.ch"
#include "wvgparts.ch"
#include "dbinfo.ch"
#include "fileio.ch"
#include "hbdyn.ch"

FUNCTION MAIN
   cVar:=Space(10)
   DO WHILE .T.
      SET CURSOR OFF
      @10,00 SAY "TESTE COM CURSOR " GET cVar 
      READ
      IF LASTKEY() = 27
         EXIT
      ENDIF
   ENDDO
RETURN Nil

   INIT FUNCTION AppSetup()
        REQUEST HB_LANG_PT
        REQUEST HB_CODEPAGE_PT850
        REQUEST HB_GT_GUI_DEFAULT
        REQUEST HB_GT_WVG
        REQUEST HB_GT_WVT
        REQUEST HB_GT_WGU
        HB_LANGSELECT("PT")
        HB_CDPSELECT( "PT850" )
        SET(_SET_DBFLOCKSCHEME,DB_DBFLOCK_DEFAULT)
        SETMODE(25,80)         
        IniciaJanela() 
   RETURN Nil
   
   FUNCTION IniciaJanela(nLi,nCi,nLf,nCf)
   LOCAL oCrt
   DEFAULT nLi TO 0,;
           nCi TO 0,;
           nLf TO MaxRow(),;
           nCf TO MaxCol()  
       
        oCrt := WvgCrt():New( , , { nLi,nCi }, { nLf,nCf}, , .T. )
        oCrt:lModal := .F.
        oCrt:icon := ""
        oCrt:create()
        oCrt:resizable :=.F.
        WVT_SetFont("Lucida Console")
        WVT_SetTitle("Teste Com Cursor")
        WVT_SetAltF4Close(.F. )
        HB_gtInfo( HB_GTI_SPEC, HB_GTS_WNDSTATE, HB_GTS_WS_MAXIMIZED )
   RETURN Nil