Функция AddMenuItem |
Добавляет элемент в загруженное меню.
function AddMenuItem ( menuID : longInt; name : string; command : word ) : boolean;
menuID : longInt - идентификатор меню, полученный функцией LoadMenu.
name : string - название добавляемого пункта меню, или 'separator' для вставки разделителя.
command : word - идентификатор команды вставляемого пункта меню.Если вставляется разделитель, параметр может принимать любое положительное значение.
True в случае успеха и false в противном случае.
В случае, если идентификатор переданный в функцию не является результатом удачного вызова функции LoadMenu, возбуждается исключение ExVip.ExRunMenuError.
При невозможности вставить пункт меню возбуждается исключение ExVip.ExAddMenuItemError.
const cmTest1 = 3000; cmTest2 = 3001; cmTest3 = 3002; cmTest4 = 3003; cmTest5 = 3004; cmAddTest = 3005; cmRunMyMenu = 3010; end; interface ATest; create view test var menuID : longInt; as select * from Order; ... handleEvent cmDefault : { PutCommand(cmRunMyMenu); } cmRunMyMenu : { menuID := LoadMenu('TestMenu'); AddMenuItem(menuID,'Новый пункт',cmAddTest); AddMenuItem(menuID,'separator',666); //Здесь будет разделитель AddMenuItem(menuID,'Новый пункт1',cmTest1); AddMenuItem(menuID,'Новый пункт2',cmTest2); AddMenuItem(menuID,'Новый пункт3',cmTest3); case RunLoadMenu(menuID) of cmTest1: Message('Test1'); cmTest2: Message('Test2'); cmTest3: Message('Test3'); cmTest4: Message('Test4'); cmTest5: Message('Test5'); cmAddTest: Message('AddTest'); end; // case } end; // handleEvent end.