SETCURSOR()
 Configura a forma do cursor
------------------------------------------------------------------------------

 Sintaxe

     SETCURSOR([<nFormaCursor>]) --> nConfigCorrente

 Argumentos

     <nFormaCursor> é um número que indica a forma do cursor.  Para
     facilitar a especificaçao das formas do cursor, é fornecido o arquivo
     header Setcurs.ch, que atribui nomes descritivos às várias formas do
     cursor, como mostra a tabela abaixo:

     Tabela 5-31: Formas de Cursor
     ------------------------------------------------------------------------
     Forma                        Valor           Setcur.ch
     ------------------------------------------------------------------------
     Nenhum                       0               SC_NONE
     Sublinhado                   1               SC_NORMAL
     Meio Bloco inferior          2               SC_INSERT
     Bloco                        3               SC_SPECIAL1
     Meio Bloco Superior          4               SC_SPECIAL2
     ------------------------------------------------------------------------

 Retorno

     SETCURSOR() retorna a forma corrente do cursor como um valor numérico.

 Descriçao

     SETCURSOR() é uma funçao de tratamento de ambiente que controla a forma
     do cursor de tela.  A forma real depende do driver de tela corrente.
     As formas especificadas sao aquelas que com certeza aparecem em
     computadores IBM-PC e compatíveis.  Em outros computadores, a aparência
     pode diferir para cada valor especificado.

     SETCURSOR(0) é o mesmo que SET CURSOR OFF, e SETCURSOR(1) é o mesmo que
     SET CURSOR ON.

 Exemplos

     O exemplo a seguir utiliza SETCURSOR() para ligar um cursor do tipo
     bloco inteiro para o READ subsequente.  Quando o READ termina,
     SETCURSOR() desliga o cursor:

     #include "Setcurs.ch"
     //
     USE Customer NEW
     @ 10, 10 GET Customer->Name
     @ 11, 10 GET Customer->Phone
     //
     SETCURSOR(SC_SPECIAL1)                 // Muda o cursor para bloco
     READ
     SETCURSOR(SC_NONE)                     // Desliga cursor

 Arquivos:  Biblioteca CLIPPER.LIB, arquivo header Setcurs.ch.
 To download this example - click here.

See Also: SETPOS() SET CONSOLE SET CURSOR