SETCURSOR()
 Establece la forma del cursor
------------------------------------------------------------------------------
 Sintaxis

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

 Argumentos

     <nFormaCursor> es un número que indica la forma del cursor. Para
     simplificar la codificación, el fichero de cabecera Setcurs.ch ofrece
     nombres descriptivos para las diversas formas del cursor, tal y como se
     muestra en la siguiente tabla:

     Formas del cursor
     ------------------------------------------------------------------------
     Formas                  Valor         Setcurs.ch
     ------------------------------------------------------------------------
     Ninguna                 0             SC_NONE
     Subrayado               1             SC_NORMAL
     Bloque medio inferior   2             SC_INSERT
     Bloque completo         3             SC_SPECIAL1
     Bloque medio superior   4             SC_SPECIAL2
     ------------------------------------------------------------------------

 Devuelve

     SETCURSOR() devuelve la forma actual del cursor como valor numérico.

 Descripción

     SETCURSOR() es una función de entorno que controla la forma del cursor
     de pantalla. La forma real depende del controlador actual de la
     pantalla. Las formas especificadas aparecen en ordenadores PC de IBM y
     compatibles. En otros ordenadores, el aspecto puede diferir para cada
     valor especificado.

     SETCURSOR(0) equivale a SET CURSOR OFF y cualquier valor entero
     positivo de <nFormaCursor> menor que 5 equivale a SET CURSOR ON. El
     cursor se muestra con la forma seleccionada.

 Ejemplos

      Este ejemplo utiliza SETCURSOR() para que el cursor adopte la
        forma de bloque completo para el READ posterior. Una vez finalizado
        el READ, SETCURSOR() desactiva el cursor:

        #include "Setcurs.ch"
        //
        USE Cliente NEW
        @ 10, 10 GET Cliente->Nombre
        @ 11, 10 GET Cliente->Telefono
        //
        SETCURSOR(SC_SPECIAL1)       // Cambiar el cursor a bloque
        READ
        SETCURSOR(SC_NONE)           // Desactivar cursor

 Ficheros   La biblioteca asociada es CLIPPER.LIB,
            el fichero de cabecera es Setcurs.ch.

 To download this example - click here.

See Also: SET CONSOLE SET CURSOR SETPOS()