Внешний атрибут. alter interface, компиляция cnf

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

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

Ответить
Masygreen
Местный житель
Сообщения: 1089
Зарегистрирован: 04 сен 2008, 11:27
Откуда: Москва
Контактная информация:

Внешний атрибут. alter interface, компиляция cnf

Сообщение Masygreen »

Не догоню как добавить внешний атрибут в форму ..
с кнопкой в форме понятно, а вот поле внешний аттрибут О_о

Код: Выделить всё

    cfsCreateObject(cfcButton, 'SCPLDOCEDITPP', 'MyFuncStr01', FALSE, iObj01);
    cfsSetProp(iObj01, cfpOrigin_X, 576);
    cfsSetProp(iObj01, cfpOrigin_Y, 236);
    cfsSetProp(iObj01, cfpSize_X, 67);
    cfsSetProp(iObj01, cfpSize_Y, 28);
    cfsSetProp(iObj01, cfpCommand, cmMyFuncStr01);
    cfsSetProp(iObj01, cfpVisible, TRUE);
    cfsSetProp(iObj01, cfpTitle, 'название кнопки');  
Время ведет!
Dmitry_Sol
Постоянный гость
Сообщения: 76
Зарегистрирован: 07 июн 2007, 12:32
Откуда: Витебск
Контактная информация:

Re: Внешний атрибут. alter interface, компиляция cnf

Сообщение Dmitry_Sol »

Я Делаю так.

Код: Выделить всё

					 var pobj2:longint;
					 pobj2:=0;
//                                                                                                          название таблы, номер нрек AttrNam                
					 cfsCreateObject('PanelInputLine','SCVSCHET', 'ExtAttr: BASEDOC,14073748835532836', false, pobj2);
					 cfsSetProp(pobj2, 'Original', 'false');
					 cfsSetProp(pobj2, 'StatusCtx', 150);
					 cfsSetProp(pobj2, 'Origin_X', 130);
//                                                                                                                         ,attrnam.name,attrnam.attrtype 
                     cfsSetProp(pobj2, 'FieldName','ExtAttr: BASEDOC,14073748835532836,подр,5');
					 cfsSetProp(pobj2, 'Origin_Y', 123);
					 cfsSetProp(pobj2, 'Size_X'  , 395);
					 cfsSetProp(pobj2, 'Size_Y'  , 14 );
					 cfsSetProp(pobj2, 'Visible', True);
					 cfsSetProp(pobj2, 'Protect', True);
					 cfsSetProp(pobj2, 'PickButton', True);

Masygreen
Местный житель
Сообщения: 1089
Зарегистрирован: 04 сен 2008, 11:27
Откуда: Москва
Контактная информация:

Re: Внешний атрибут. alter interface, компиляция cnf

Сообщение Masygreen »

Dmitry_Sol писал(а):Я Делаю так.
круто .. отмодифил под константы .. все классно работает )

Код: Выделить всё

    cfsCreateObject(cfcPanelInputLine, 'SCPLDOCEDITPP', 'ExtAttr: PLPOR,281474976710676', false, iObj03);
    cfsSetProp(iObj03, cfpOrigin_X, 322);
    cfsSetProp(iObj03, cfpOrigin_Y, 267);
    cfsSetProp(iObj03, cfpSize_X, 396);
    cfsSetProp(iObj03, cfpSize_Y, 16);
    cfsSetProp(iObj03, cfpVisible, TRUE);
    cfsSetProp(iObj03, cfpProtect, false);
    cfsSetProp(iObj03, cfpPickButton, TRUE);
    cfsSetProp(iObj03, cfpOriginal, false);
    cfsSetProp(iObj03, cfpFieldName, 'ExtAttr: PLPOR,281474976710676,траляля,5');  
а изменить существующий label нет случайно кода?
Время ведет!
Masygreen
Местный житель
Сообщения: 1089
Зарегистрирован: 04 сен 2008, 11:27
Откуда: Москва
Контактная информация:

Re: Внешний атрибут. alter interface, компиляция cnf

Сообщение Masygreen »

я так понимаю надо сначала получить контейнер а потом сделать cfsSetProp
Время ведет!
Masygreen
Местный житель
Сообщения: 1089
Зарегистрирован: 04 сен 2008, 11:27
Откуда: Москва
Контактная информация:

Re: Внешний атрибут. alter interface, компиляция cnf

Сообщение Masygreen »

блин сам разобрался .. контейнер то уже есть , а к объекту можно по имени обратися

Код: Выделить всё

cfsSetCurrentContainer('F_PLPOR::PLPOR');//интерфейс  
cfsSetProp('i_SCPLDOCEDITPP_sAppointment',cfpSize_X,130);
Время ведет!
Dmitry_Sol
Постоянный гость
Сообщения: 76
Зарегистрирован: 07 июн 2007, 12:32
Откуда: Витебск
Контактная информация:

Re: Внешний атрибут. alter interface, компиляция cnf

Сообщение Dmitry_Sol »

Для создания label я пользую код

Код: Выделить всё

                     cfsCreateObject('Label','SCVSCHET', 'LbExtAttr: BASEDOC,14073748835532836', false, pobj2);
					 cfsSetProp(pobj2, 'Original', 'false');
					 cfsSetProp(pobj2, 'Origin_X',10);
                                         cfsSetProp(pobj2, 'Title','подразделение');
					 cfsSetProp(pobj2, 'Origin_Y', 123);
					 cfsSetProp(pobj2, 'Size_X'  , 100);
					 cfsSetProp(pobj2, 'Size_Y'  , 14 );
					 cfsSetProp(pobj2, 'Visible', True);
					 cfsSetProp(pobj2, 'PickButton', True);
а если надо label подправить, то сначала конфигуратором смотрю его имя, а потом пишу так:

Код: Выделить всё

cfsSetProp('L_SCVSCHET_Примечания', 'Title', 'мычания');
cfsSetProp - может работать как с ссылкой на контейнер, так и с названием контейнера. Мне почему то проще работать с названием
Masygreen
Местный житель
Сообщения: 1089
Зарегистрирован: 04 сен 2008, 11:27
Откуда: Москва
Контактная информация:

Re: Внешний атрибут. alter interface, компиляция cnf

Сообщение Masygreen »

чорт .. чуть голову не сломал

оказалось - не одно и тоже ... О_о

Код: Выделить всё

cfsSetProp(iObj03,'StatusCtx',150);
и

Код: Выделить всё

cfsSetProp(iObj03, cfpStatusCtx, scExtAttrComp); 
Время ведет!
savov
Местный житель
Сообщения: 589
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Воронеж ОАО Верофарм. Воронеж

Re: Внешний атрибут. alter interface, компиляция cnf

Сообщение savov »

А вот такой вопрос.
Надо добавить внешний атрибут в фейс. Фейс содержит два броузера, они включаются для иерархического и линейного отображения ( т.е. всегда виден только один). Надо добавить один и тот же внешний атрибут в каждый.
Пишу:

Код: Выделить всё

Alter interface KATBOXESEDIT;
    overload   end;


    var TMyFAn :longint	;
    var MyFAn :longint	;

    HandleEvent
    cmInit:
    {
    inherited::handleEvent(cmInit);       


    cfsSetCurrentContainer('L_BOX::KATBOXESEDIT.TRBOXESIER');

    cfsCreateObject('TreeColumn', 'TRBOXESIER', 'ExtAttr: KATBOX,562949953422457', FALSE, TMyFAn);
       cfsSetProp ( TMyFAn, cfpVisible,TRUE);
       cfsSetProp ( TMyFAn, cfpTitle, 'Вирт. склад');
       cfsSetProp ( TMyFAn, cfpMaxLen, 150 );

    cfsSetCurrentContainer('L_BOX::KATBOXESEDIT.BRBOXES');

    cfsCreateObject('Column', 'BRBOXES', 'VirtSklad', FALSE, MyFAn);
       cfsSetProp ( MyFAn, cfpFieldName,'ExtAttr: KATBOX,562949953422457');
       cfsSetProp ( MyFAn, cfpVisible,TRUE);
       cfsSetProp ( MyFAn, cfpTitle, 'Вирт. склад');
       cfsSetProp ( MyFAn, cfpMaxLen, 150 );

    }
В первый броузер добавляет нормально, на второй ругается, что нельзя разобрать поле VirtSklad. Пробовал 'ExtAttr: KATBOX,562949953422457#1' ( так обзывает конфигуратор, если руками добавлять), реакция та же.
Как можно один и тот же внешний атрибут добавить в два броузера, входящие в один интерфейс?
Den
Местный житель
Сообщения: 1844
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: Внешний атрибут. alter interface, компиляция cnf

Сообщение Den »

...
cfsCreateObject('TreeColumn'....
cfsSetProp ( TMyFAn, 'name','ExtAttr: KATBOX,281474976712251#2');
....
savov
Местный житель
Сообщения: 589
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Воронеж ОАО Верофарм. Воронеж

Re: Внешний атрибут. alter interface, компиляция cnf

Сообщение savov »

Оригинально, спасибо! Плюс
Ответить