Код: Выделить всё
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','Просмотр заявок');