В следующем примере создается окно и в нем рисуется диагональный узор из букв X. Программа последовательно устанавливает курсор с помощью _WPosCursor( ) пере каждой записываемой буквой X и получает значение той же позиции с помощью _WGetCursor( ).

Код Visual FoxPro

SET LIBRARY TO WPOSCUR

Код 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

};