В следующем примере создается и показывается на экране окно, имеющее заголовок и нижний колонтитул. _WTitle( ) и _WFooter( ) извлекают текст заголовка и текст нижнего колонтитула, которые затем отображаются на экране. Нижние колонтитулы окон поддерживаются только в FoxPro for MS-DOS.

Код Visual FoxPro

SET LIBRARY TO WTITLE

Код C

#include <pro_ext.h>

FAR Example(ParamBlk FAR *parm)

{

WHANDLE wh;

char FAR *buffer;

wh = _WOpen(4,4,20,70,CLOSE | WEVENT,WINDOW_SCHEME,(Scheme FAR *) 0,

WO_SYSTEMBORDER);

_WSetTitle(wh, "This is a window title");

_WSetFooter(wh, "This is a window footer");

_WShow(wh);

if ((buffer = _Alloca(128)) == 0)

{

_Error(182); // "Insufficient memory"

}

_WTitle(wh, buffer);

_PutStr("\nThe window title is \"");

_PutStr(buffer);

_PutChr('"');

_WFooter(wh, buffer);

_PutStr("\nThe window footer is \"");

_PutStr(buffer);

_PutChr('"');

}

FoxInfo myFoxInfo[] = {

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

};

FoxTable _FoxTable = {

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

};