_WGetCursorP( ) (Rutina de biblioteca API)
Devuelve la posición de resultado actual (en píxeles) de la ventana especificada.
Point _WGetCursorP(WHANDLEwh)
WHANDLEwh; /* Window handle. */
Observaciones
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 WGETCURP
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
_WPosCursor( ) (Rutina de biblioteca API) | Acceso a la API de Visual FoxPro | SET CURSOR (Comando) | _WGetCursor( ) (Rutina de biblioteca API) | _WPosCursorP( ) (Rutina de biblioteca API)