_WPosCursor( ) (Rutina de biblioteca API)

Sitúa la posición de resultado de la ventana especificada en la ubicación de filas y columnas especificada por pt.

void _WPosCursor(WHANDLE wh, Point pt)
WHANDLE wh;            /* Window handle. */
Point pt;                     /* Location for the output position. */

Observaciones

_WPosCursor( ) no muestra el punto de inserción. Normalmente, el punto de inserción sólo está visible cuando Visual FoxPro está esperando una entrada.

Para obtener más información acerca de cómo crear una biblioteca API e integrarla con Visual FoxPro, vea Acceso a la API de Visual FoxPro.

Ejemplo

El ejemplo siguiente crea una ventana y dibuja un patrón diagonal de X en la misma. Sitúa el cursor antes de escribir cada una de las X mediante _WPosCursor( ) y adopta esa misma posición mediante _WGetCursor( ).

Código Visual FoxPro

SET LIBRARY TO WPOSCUR 

Código C

#include <pro_ext.h>

void putLong(long n, int width)
{
   Value val;

   val.ev_type = 'I';
   val.ev_long = n;
   val.ev_width = width;

   _PutValue(&val);
}

FAR Example(ParamBlk FAR *parm)
{
   WHANDLE wh;
   Point putPos, getPos;

   wh = _WOpen(4,4,20,70,0,WINDOW_SCHEME,(Scheme FAR *) 0,
      WO_SYSTEMBORDER);
   _WShow(wh);

   for (putPos.v = 2; putPos.v < 14; putPos.v++)
   {
      putPos.h = putPos.v;

      _WPosCursor(wh, putPos);
      _WPutChr(wh, 'X');

      getPos = _WGetCursor(wh);

      _PutStr("\nCursor position:");
      putLong(getPos.v, 5);
      putLong(getPos.h, 5);

      _Execute("WAIT");
   }
   _WClose(wh);
}
FoxInfo myFoxInfo[] = {
   {"ONLOAD", (FPFI) Example, CALLONLOAD, ""},
};
FoxTable _FoxTable = {
   (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};

Vea también

_WGetCursor( ) | Acceso a la API de Visual FoxPro | _WPosCursorP( ) (Rutina de biblioteca API) | _WPutChr( ) (Rutina de biblioteca API) | _WPutStr( ) (Rutina de biblioteca API)