Добрый день!
Что-то я совсем запарился, не могу повешать событие на клавишу.
Смысл таков:
Есть интерфейс, отображающий группы документов (древовидный). Хочу по нажатию Ins выделить оперделенную позицию или ветку (не суть важна).
Что я сделал:
описал статус-контекст и переменные
//mystatus.rc
const
cmIns = 1111;
scMy = 2222;
end;
mystatusline statusline
{
(scMy..scMy)
{
'~Ins~ Пометить', cmIns, kbIns;
}
}
// end of mystatus.rc
Далее, в prj-файле
#include mystatus.rc
#make myinterface.vip
Потом в своем интерефейсе вешаю что-либо на событие cmIns, ничего не происходит, даже кнопки статус контекста не появляются, такое ощущение что фейс его не видит вообще.
Вот исходник самого фейса, для проверки работы события просто привесил на него мессадж:
interface myinterface 'Мой интерфейс' cyan, doaccept;
view
var
curowner: comp;
gr_nrec: comp;
gr_kod, gr_name: string;
as select * from groupsch, groupsch groupsch2
where ((curowner == groupsch.cnode and
groupsch.nrec == groupsch2.cnode))
order by groupsch.kod;
parameters
gr_nrec,
gr_kod,
gr_name;
tree b1
fields
groupsch.kod 'Код' ('Код',,scMy): [20], protect;
groupsch.name 'Наименование' ('Наименование',,scMy): [40], protect;
end;
handleevent
cmIns:
{
Message('cmIns', YesNo);
}
cmDefault:
{
gr_nrec := groupsch.nrec;
gr_kod := groupsch.kod;
gr_name := groupsch.name;
}
cmTreeNodeType:
{
if isvalidall(tngroupsch2) then
{
TreeSetNodeType(b1, if(TreeNodeIsOpen(b1), ntfopen, ntfclose));
}
else
{
TreeSetNodeType(b1, ntftext);
}
}
cmTreeTop: curowner := 0;
cmTreeDown: curowner:=groupsch.nrec;
cmTreeUp: curowner:=groupsch.cnode;
cmCancel: {};
cmDone: {};
end;
end.
Генерация события при нажатии кнопки на клавиатуре
Модераторы: m0p3e, edward_K, Модераторы
-
- Местный житель
- Сообщения: 474
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Сибирь-матушка
- Контактная информация:
Не увидится твой статус-лайн ... лучше пользуй какой-нить системный типа sci1InsPMAltB, его константа 7179
Питаю патологические отвращение и ненависть в особо тяжелой и крайне запущенной формах к семейству программ Microsoft Business Solution !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !