Страница 1 из 1

Как узнать события статуса?

Добавлено: 17 июл 2007, 14:30
Nikos
Пишу интерфейс множественного выбора с использованием деревьев, нашел подходящий статус: sci1EnInsTree. Как узнать события, возникающие при нажатии соответствующих кнопок (ins, +, -)?

Добавлено: 17 июл 2007, 23:16
edward_K
'~Ins~ Выбрать', cmMarkUnMark, kbIns;
'~+~ Все', cmSelectAll, kbGrayPlus;
'~-~ Снять', cmUnSelectAll, kbGrayMinus;
'', cmInvertAll, kbGrayMul;

Добавлено: 17 июл 2007, 23:19
Vek
(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

Добавлено: 18 июл 2007, 09:08
Nikos
С 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.

Добавлено: 18 июл 2007, 13:48
Nikos
Да, я нигде не указал, что Галактика 8.10. Может, в этом проблема...

Добавлено: 18 июл 2007, 14:36
edward_K
1. В сапорте и не будет работать (впрочем в vip есть меню - загрузить статус строку - догадайетсь каую надо поднять).
2. возможно в проект нужно добавить
#statusline "statgal"
я без этой строки и не компилю, поскоку реакция могет быть другая.

Добавлено: 18 июл 2007, 14:52
Nikos
edward_K писал(а):1. В сапорте и не будет работать (впрочем в vip есть меню - загрузить статус строку - догадайетсь каую надо поднять).
Я пробую работоспособность интерфейса в Галактике.
edward_K писал(а):2. возможно в проект нужно добавить
#statusline "statgal"
я без этой строки и не компилю, поскоку реакция могет быть другая.
#statusline "statgal" в проект добавил - не помогло. Причем если без деревьев, то нормально работает.

Добавлено: 18 июл 2007, 14:55
Nikos
Да, без деревьев тоже не факт, что работает (это у меня стандартные интерфейсы работают нормально)

Добавлено: 18 июл 2007, 15:22
Nikos
Все получилось, Mark.inc решает все проблемы