Код: Выделить всё
window WDOPATTR;
handleEvent
cmInit :
{
inherited::handleEvent(cmInit);
var i : integer;
for (i := 0; i < 2; i++)
{
! cfsSetCurrentContainer('VSCHETB.WDOPATTR.SCWDOPATTRBS');
cfsSetCurrentContainer(cfsGetCurrentContainerSelf);
cfsCreateObject('button', 'SCWDOPATTRBS', 'ButDistributionValue', FALSE, buttMy_var);
cfsCreateObject('label', 'SCWDOPATTRBS', 'LableDistributionValue', FALSE, lblMy_var);
cfsCreateObject('button', 'SCWDOPATTRBS', 'ButDistributionSeeValue', FALSE, buttMy_varSee);
if (i = 0)
{
cfsSetProp('ButDistributionValue','Visible',FALSE);
cfsSetProp('LableDistributionValue','Visible',FALSE);
cfsSetProp('ButDistributionSeeValue','Visible',FALSE);
}
else
{
cfsSetProp('ButDistributionValue','Visible',TRUE);
cfsSetProp('LableDistributionValue','Visible',TRUE);
cfsSetProp('ButDistributionSeeValue','Visible',FALSE);
}
cfsSetProp('ButDistributionValue','Origin_X', 528);
cfsSetProp('ButDistributionValue','Origin_Y', 170);
cfsSetProp('ButDistributionValue','Size_X',239);
cfsSetProp('ButDistributionValue','Size_Y',25);
cfsSetProp('LableDistributionValue','Origin_X', 580);
cfsSetProp('LableDistributionValue','Origin_Y', 202);
cfsSetProp('LableDistributionValue','Size_X',176);
cfsSetProp('LableDistributionValue','Size_Y',15);
cfsSetProp('ButDistributionSeeValue','Origin_X', 528);
cfsSetProp('ButDistributionSeeValue','Origin_Y', 345);
cfsSetProp('ButDistributionSeeValue','Size_X',239);
cfsSetProp('ButDistributionSeeValue','Size_Y',25);
cfsSetProp('ButDistributionValue','Command', cmButDistributionValue);
cfsSetProp('ButDistributionSeeValue','Command', cmButDistributionSeeValue);
cfsSetProp('ButDistributionSeeValue','Title','Просмотр заявок');