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

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Nikos
Местный житель
Сообщения: 577
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Томск

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

Сообщение Nikos »

Пишу интерфейс множественного выбора с использованием деревьев, нашел подходящий статус: sci1EnInsTree. Как узнать события, возникающие при нажатии соответствующих кнопок (ins, +, -)?
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5187
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

'~Ins~ Выбрать', cmMarkUnMark, kbIns;
'~+~ Все', cmSelectAll, kbGrayPlus;
'~-~ Снять', cmUnSelectAll, kbGrayMinus;
'', cmInvertAll, kbGrayMul;
Vek
Постоянный гость
Сообщения: 74
Зарегистрирован: 16 фев 2006, 13:11

Сообщение 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
Nikos
Местный житель
Сообщения: 577
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Томск

Сообщение 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.
Nikos
Местный житель
Сообщения: 577
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Томск

Сообщение Nikos »

Да, я нигде не указал, что Галактика 8.10. Может, в этом проблема...
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5187
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

1. В сапорте и не будет работать (впрочем в vip есть меню - загрузить статус строку - догадайетсь каую надо поднять).
2. возможно в проект нужно добавить
#statusline "statgal"
я без этой строки и не компилю, поскоку реакция могет быть другая.
Nikos
Местный житель
Сообщения: 577
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Томск

Сообщение Nikos »

edward_K писал(а):1. В сапорте и не будет работать (впрочем в vip есть меню - загрузить статус строку - догадайетсь каую надо поднять).
Я пробую работоспособность интерфейса в Галактике.
edward_K писал(а):2. возможно в проект нужно добавить
#statusline "statgal"
я без этой строки и не компилю, поскоку реакция могет быть другая.
#statusline "statgal" в проект добавил - не помогло. Причем если без деревьев, то нормально работает.
Nikos
Местный житель
Сообщения: 577
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Томск

Сообщение Nikos »

Да, без деревьев тоже не факт, что работает (это у меня стандартные интерфейсы работают нормально)
Nikos
Местный житель
Сообщения: 577
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Томск

Сообщение Nikos »

Все получилось, Mark.inc решает все проблемы
Ответить