Меню

[Nuts]

Но если в 584 создать свое РМП то тоже заходы не считает!

[galnet]

И в 5.84 меню создается, и все "работает как надо"

[Nuts]

galnet а что ты имеешь ввиду? Поясни плз.
Если имеешь исходники да раз плюнуть перекомпилить и нет лицензий
Я же про меню которое было раньше в 5.82
И для которого исходники не так и нужны были.
Давай пример - глянем!

[Maverick]

Ребят не спорьте )) можно все красиво сделать галактическими функциями )))
все подробно расписано в ASDK

Работает начиная с атлантиса 3.03.12

Function LoadMenu (Name : String ) : LongInt ;

Function AddMenuItem (MenuID:LongInt;Name:String;Command:Word):Boolean ;

Function RunLoadMenu (MenuID : LongInt; XPos : Integer;YPos : Integer ) : Word ;

Пример
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);
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.

Все что вам нужно - написать подобный интерфейс и вставить его через конфиг чтобы загружался при старте галки. В интере проверять - если такой пункт меню есть - не вставлять, иначе - вставлять

[dp]

1. как поставить интерфейс чтоюы он отрабатывал при старте Галактики сам (и выполнял LoadMenu)?
2. кто будет запускать и обслуживать RunLoadMenu?
3. кто будет запускать DisposeLoadMenu?

если есть работающий пример - в студию.
бо дня два промучался и плюнул на это...

по-моему оно работает только если меню нужно в своем интерфейсе - по типу того которое по правой кнопке...