В следующем примере отображается позиция (в пикселях) окна, находящегося на пе еднем плане.

Код Visual FoxPro

SET LIBRARY TO WTOPP

=WPOSITION()

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

}

void FAR Example(ParamBlk FAR *parm)

{

WHANDLE wh = _WOnTop();

_PutStr("\ntop ="); putLong(_WTopP(wh), 5);

_PutStr("\nleft ="); putLong(_WLeftP(wh), 5);

_PutStr("\nbottom ="); putLong(_WBottomP(wh), 5);

_PutStr("\nright ="); putLong(_WRightP(wh), 5);

}

FoxInfo myFoxInfo[] = {

{"WPOSITION", Example, 0, ""},

};

FoxTable _FoxTable = {

(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo

};