Добавить поле конфигуратором
Модераторы: m0p3e, edward_K, Модераторы
-
- Постоянный обитатель
- Сообщения: 159
- Зарегистрирован: 28 сен 2005, 19:48
- Откуда: mos
- Контактная информация:
Еще вопрос. Как функциями конфигуратора добавить редактируемое поле?
Пишу:
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);
Компилится нормально, но при запуске этого интерфейса в галактике вылетает по рантайму.
Пишу:
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);
Компилится нормально, но при запуске этого интерфейса в галактике вылетает по рантайму.
-
- Постоянный обитатель
- Сообщения: 159
- Зарегистрирован: 28 сен 2005, 19:48
- Откуда: mos
- Контактная информация:
#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.
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.
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
ну хорошо конечно иметь все лицензии на консоль управления.
там можно посмотреть имя главной вьюшки.
а так в "alter" добавляете свою вьюху - должно работать.
текст в студию - мож кто чего увидит не то. Я не пробовал в browse показывать данные с другой вьюхи - там действительно может быть проблема в синтаксисе.
там можно посмотреть имя главной вьюшки.
а так в "alter" добавляете свою вьюху - должно работать.
текст в студию - мож кто чего увидит не то. Я не пробовал в browse показывать данные с другой вьюхи - там действительно может быть проблема в синтаксисе.