В следующем примере строится меню из трех элементов. Программа _ActivateMenu( ) отображает меню на экране. Это меню является немодальным в том смысле, что о о не влечет принудительного взаимодействия, как в случае программы _MenuInteract( ). Наоборот, когда пользователь делает выбор, вызывается программа _OnSelection( ), выбранный элемент выводится на экран и меню убирается.

Код Visual FoxPro

SET LIBRARY TO ACTIMENU

WAIT WINDOW "Make selection from menu." NOWAIT

SUSPEND

Код C

#include <pro_ext.h>

static MENUID menuId;

void putLong(long n)

{

Value val;

val.ev_type = 'I';

val.ev_long = n;

val.ev_width = 10;

_PutValue(&val);

}

FAR onSelection(long menuId, long itemId)

{

_PutStr("\nitemId = "); putLong(itemId);

}

FAR deactivateMenu(ParamBlk FAR *parm)

{

_DeActivateMenu(menuId);

_DisposeMenu(menuId);

}

FAR activateMenu(ParamBlk FAR *parm)

{

ITEMID itemId;

Point loc;

menuId = _GetNewMenuId();

_NewMenu(MPOPUP, menuId);

itemId = _GetNewItemId(menuId);

_NewItem(menuId, itemId, -2, "\\<1st item");

itemId = _GetNewItemId(menuId);

_NewItem(menuId, itemId, -2, "\\<2nd item");

itemId = _GetNewItemId(menuId);

_NewItem(menuId, itemId, -2, "\\<3rd item");

loc.v = 10; loc.h = 20;

_SetMenuPoint(menuId, loc);

_ActivateMenu(menuId);

_OnSelection(menuId, -1, onSelection);

}

FoxInfo myFoxInfo[] = {

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

{"ONUNLOAD", (FPFI) deactivateMenu, CALLONUNLOAD, ""},

};

FoxTable _FoxTable = {

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

};