Как узнать события статуса?
Модераторы: m0p3e, edward_K, Модераторы
Как узнать события статуса?
Пишу интерфейс множественного выбора с использованием деревьев, нашел подходящий статус: sci1EnInsTree. Как узнать события, возникающие при нажатии соответствующих кнопок (ins, +, -)?
(sci1EnInsTree..sci1EnInsTree)
{
#F1
'~Ctrl+Enter~ Открыть', cmTreeOpenNode, kbCtrlEnter;
'~Ctrl+Backspace~ Закрыть', cmTreeCloseNode, kbCtrlBack;
'~Enter~ Выбор', cmDefault, kbEnter;
#Ins
#PlusMinus
#Std_Stat
}
Пометка
#declare Ins
~Ins~ Выбрать', cmMarkUnMark, kbIns;
#end
! Групповой выбор
#declare PlusMinus
'~+~ Все', cmSelectAll, kbGrayPlus;
'~-~ Снять', cmUnSelectAll, kbGrayMinus;
'', cmInvertAll, kbGrayMul;
#end
ищите по форуму
это взято оттуда:
http://www.tyumbit.ru/gal_forum/viewtop ... 2A&start=0
cmMarkUnMark
cmSelectAll
cmUnSelectAll
{
#F1
'~Ctrl+Enter~ Открыть', cmTreeOpenNode, kbCtrlEnter;
'~Ctrl+Backspace~ Закрыть', cmTreeCloseNode, kbCtrlBack;
'~Enter~ Выбор', cmDefault, kbEnter;
#Ins
#PlusMinus
#Std_Stat
}
Пометка
#declare Ins
~Ins~ Выбрать', cmMarkUnMark, kbIns;
#end
! Групповой выбор
#declare PlusMinus
'~+~ Все', cmSelectAll, kbGrayPlus;
'~-~ Снять', cmUnSelectAll, kbGrayMinus;
'', cmInvertAll, kbGrayMul;
#end
ищите по форуму
это взято оттуда:
http://www.tyumbit.ru/gal_forum/viewtop ... 2A&start=0
cmMarkUnMark
cmSelectAll
cmUnSelectAll
С cmMarkUnMark я и начал, но не работает, думал дело в контексте. Сейчас почитал - должно работать, значит, где-то в другом месте ошибся. Вот интерфейс:
interface GetBuhSchTree 'Множественный выбор счетов и субсчетов', cyan, EscClose, DoAccept; //
show at (,,80,20);
view
var
cCurPlSchet : comp;
aCurTree : comp;
as select BUHSCHET.*, BUHSCHET2.*
from BUHSCHET, synonym BUHSCHET BUHSCHET2
where ((BUHSCHET.nrec == BUHSCHET2.cnode and
cCurPlSchet == BUHSCHET.CPLANSSCH and
cCurPlSchet == BUHSCHET2.CPLANSSCH AND
aCurTree == BUHSCHET.cNode));
tree tr1(,,sci1EnInsTree);
table BUHSCHET;
fields
BUHSCHET.LEVELCODE 'Номер' : protect;
BUHSCHET.NAME 'Наименование' : protect;
end; //fields
HandleEvent
cmInit:
{
cCurPlSchet := coGetTune('FIN.USER.CKODREG');
}
cmMarkUnmark:
{
Message('Ok');
}
end; //handleEvent
end.
interface GetBuhSchTree 'Множественный выбор счетов и субсчетов', cyan, EscClose, DoAccept; //
show at (,,80,20);
view
var
cCurPlSchet : comp;
aCurTree : comp;
as select BUHSCHET.*, BUHSCHET2.*
from BUHSCHET, synonym BUHSCHET BUHSCHET2
where ((BUHSCHET.nrec == BUHSCHET2.cnode and
cCurPlSchet == BUHSCHET.CPLANSSCH and
cCurPlSchet == BUHSCHET2.CPLANSSCH AND
aCurTree == BUHSCHET.cNode));
tree tr1(,,sci1EnInsTree);
table BUHSCHET;
fields
BUHSCHET.LEVELCODE 'Номер' : protect;
BUHSCHET.NAME 'Наименование' : protect;
end; //fields
HandleEvent
cmInit:
{
cCurPlSchet := coGetTune('FIN.USER.CKODREG');
}
cmMarkUnmark:
{
Message('Ok');
}
end; //handleEvent
end.
Я пробую работоспособность интерфейса в Галактике.edward_K писал(а):1. В сапорте и не будет работать (впрочем в vip есть меню - загрузить статус строку - догадайетсь каую надо поднять).
#statusline "statgal" в проект добавил - не помогло. Причем если без деревьев, то нормально работает.edward_K писал(а):2. возможно в проект нужно добавить
#statusline "statgal"
я без этой строки и не компилю, поскоку реакция могет быть другая.