В следующем примере создаются пять перекрывающих друг друга окон. Затем _WSendBehind( ) по очереди переводит каждое из них, начиная с созданного последним, а задний план.

Код Visual FoxPro

SET LIBRARY TO WSENDBEH

Код C

#include <pro_ext.h>

FAR WSendBehindEx(ParamBlk FAR *parm)

{

WHANDLE wh[5];

int i;

for (i = 0; i < 5; i++)

{

wh[i] = _WOpen(4 + 2*i,4 + 2*i,12 + 2*i,40 + 2*i,WEVENT | CLOSE,

WINDOW_SCHEME, (Scheme FAR *) 0, WO_SYSTEMBORDER);

_WShow(wh[i]);

}

for (i = 4; i >= 0; i--)

{

_Execute("WAIT WINDOW 'Press key to _WSendBehind() next window'");

_WSendBehind(wh[i]);

}

}

FoxInfo myFoxInfo[] = {

{"ONLOAD", (FPFI) WSendBehindEx, CALLONLOAD, ""},

};

FoxTable _FoxTable = {

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

};