Пример моего кода:
Код: Выделить всё
if(GetDoubleParameter('Windows','FixedFontSize','$0000') = 14 and GetDoubleParameter('Windows','FontSize','$0000') = 12)
{
cfsCreateObject ('button','SCVSCHET_BUTTONS','but1',False,pobj2);
cfsSetProp(pobj2,'Origin_X',1186);
cfsSetProp(pobj2,'Origin_Y',247);
cfsSetProp(pobj2,'Size_X',137);
cfsSetProp(pobj2,'Size_Y',31);
cfsSetProp(pobj2,'Title','Расчет скидок');
cfsSetProp(pobj2,'Icon','BMATLANTISCALCULATOR'); // параметр иконки
cfsSetProp(pobj2,'Command',cmBut1);
};