вывод кнопки на форму интерфейса
Добавлено: 01 мар 2019, 14:55
Доброго дня, необходимо создать кнопку по нажатию на которую будет выводиться кое-какая информация. Управление договорами - Документы - Договоры - Редактирование договора
В коде прописываю обращение к интерфейсу, но кнопка так и не появляется... может сможете подсказать, что я делаю не так?)
В коде прописываю обращение к интерфейсу, но кнопка так и не появляется... может сможете подсказать, что я делаю не так?)
Код: Выделить всё
#component "L_Dogovor"
const
cmbut1=143213;
end;
alter interface DOGOVOR;
var
basedocnrec:comp
window SCDOGOVOREDITMAIN;
handleevent
cmInit:
{
if(Inherited::HandleEvent(cmInit) = heOk)
{
}
var pobj1,pobj2:longint;
var err:string;
if(GetDoubleParameter('Windows','FixedFontSize','$0000') = 8)
{
cfsCreateObject ('button','SCSCDOGOVOREDITMAIN','but1',False,pobj2);
cfsSetProp(pobj2,'Origin_X',545);
cfsSetProp(pobj2,'Origin_Y',275);
cfsSetProp(pobj2,'Size_X',298);
cfsSetProp(pobj2,'Size_Y',25);
cfsSetProp(pobj2,'Title','Пересчет остатка');
cfsSetProp(pobj2,'StatusCtx',sci13Esc);
cfsSetProp(pobj2,'Command',cmBut1)
};
}
cmbut1:
{
Message('Запрос выполняется', Information);
}
end;
end;
end.