_WPosCursorP( ) (Rutina de biblioteca API)

Sitúa la posición de resultado de la ventana especificada en la ubicación especificada por pt en píxeles.

void _WPosCursorP(WHANDLE wh, Point pt)
WHANDLE wh;            /* Window handle. */
Point pt;                     /* Location for 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 _WPosCursorP( ) y adopta esa misma posición mediante _WGetCursorP( ).

Código Visual FoxPro

SET LIBRARY TO WPOSCURP

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 = 10; putPos.v < 100; putPos.v += 10)
   {
      putPos.h = putPos.v;

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

      getPos = _WGetCursorP(wh);

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

      _Execute("WAIT");
   }
   _WClose(wh);
}

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

Vea también

_WGetCursorP( ) (Rutina de biblioteca API) | Acceso a la API de Visual FoxPro | _WPosCursor( ) (Rutina de biblioteca API) | _WPutChr( ) (Rutina de biblioteca API) | _WPutStr( ) (Rutina de biblioteca API)