Галактика в вопросах и ответах

Еще вопрос. Как функциями конфигуратора добавить редактируемое поле?

Пишу:
cfsCreateObject ('PanelInputLine','scDogovorEditMainHead','EditSumNoNDS',FALSE,EditSumNoNDS_opa);
cfsSetProp('EditSumNoNDS','Origin_X',401);
cfsSetProp('EditSumNoNDS','Origin_Y',123);
cfsSetProp('EditSumNoNDS','Size_X',136);
cfsSetProp('EditSumNoNDS','Size_Y',14);
cfsSetProp('EditSumNoNDS','Visible',TRUE);
cfsSetProp('EditSumNoNDS','Protect',TRUE);
cfsSetProp('EditSumNoNDS','StatusCtx',sci1Esc);
cfsSetProp('EditSumNoNDS','Points',2);
cfsSetProp('EditSumNoNDS','MaxLen',22);
cfsSetProp('EditSumNoNDS','NoValidCheck',TRUE);
cfsSetProp('EditSumNoNDS','PassiveFormat','\2p[|-]3666`666`666`666.88');
cfsSetProp('EditSumNoNDS','FieldName',SumNoNDS);
cfsSetProp('EditSumNoNDS','TextAlign',taDefault);


Компилится нормально, но при запуске этого интерфейса в галактике вылетает по рантайму.

да. я как то пробовал добавить поля програмно и тоже на это натолкнулся. В итоге просто написал cnf и включил ее после alter interface. Посему и с кнопками не стал баловаться.

а падает сразу после Create?
мож надо объект создавать как
'Field: APPOINTMENTS.FOUNDATION#1'?
#1 - это 2 вариант юзания поля.
попробуйте сначала в cnf ваше поле добавить.

Ну с кнопками у меня получилось, а с полями обидно, что ничего не выходит...(( А что такое cnf??? И куда его включать?))

Да падает сразу после Create

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

А можно ли програмно подгружать cnf??
Ну т.е. при одних условиях я хочу один интерфейс, а при других другой...

програмно вы можете открывать/скрывать поля или делать их protect или skip

Тема очень интересная...
Можно выложить пример, как добавить кнопку в стандартный интерфейс?

#component "L_DOGOVOR"

const
cmButSP=121212;
cmWindowClosed=342423;
end;

alter Interface Dogovor;

var ButSP : longint;

procedure LoadCfgPodrWnd;
{
cfsSetCurrentContainer('Dogovor');

cfsSetProp('WIDOGOVOREDITMAIN','RectA_X',0);
cfsSetProp('WIDOGOVOREDITMAIN','RectA_Y',0);
cfsSetProp('WIDOGOVOREDITMAIN','RectB_X',138);
cfsSetProp('WIDOGOVOREDITMAIN','RectB_Y',31);

cfsSetProp('scDogovorEditMainHead','RectA_X',1);
cfsSetProp('scDogovorEditMainHead','RectA_Y',1);
cfsSetProp('scDogovorEditMainHead','RectB_X',137);
cfsSetProp('scDogovorEditMainHead','RectB_Y',8);

cfsSetProp('SCDOGOVOREDITMAIN','RectA_X',1);
cfsSetProp('SCDOGOVOREDITMAIN','RectA_Y',9);
cfsSetProp('SCDOGOVOREDITMAIN','RectB_X',137);
cfsSetProp('SCDOGOVOREDITMAIN','RectB_Y',30);

cfsCreateObject ('button','scDogovorEditMainHead','butSP',FALSE,ButSP);
cfsSetProp('butSP','Origin_X',660);
cfsSetProp('butSP','Origin_Y',5);
cfsSetProp('butSP','Size_X',140);
cfsSetProp('butSP','Size_Y',25);
cfsSetProp('butSP','Title','Доровора субподряда');

cfsSetProp('butSP','StatusCtx',sci13Esc);
cfsSetProp('butSP','Command',cmButSP);
}

HandleEvent

cmDefault:{
case KatVidD.Name of
'Подряд':{
LoadCfgPodrWnd;
}
else{

}
end;
inherited :: handleEvent (cmDefault);
}

end;

end.

Sytin, спасибо.

Nikos, если у вас получится добавить TextBoxы напишите пожалуйсто. Я нашел один способ, но он очень уж геморный...

А если я хочу в интерфейс добавить свою логическую таблицу, виндов, и по кнопке вызвать свой виндов и вставить туда данные по своей логической таблице (v1) ... как сделать?

При указании в браузере Table v1.table ругается что таблицы v1 нет в словаре...

ну хорошо конечно иметь все лицензии на консоль управления.
там можно посмотреть имя главной вьюшки.
а так в "alter" добавляете свою вьюху - должно работать.
текст в студию - мож кто чего увидит не то. Я не пробовал в browse показывать данные с другой вьюхи - там действительно может быть проблема в синтаксисе.

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