Галактика в вопросах и ответах

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

cfsSetProp('ButDistributionValue','Command', cmButDistributionValue); 

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

const
  cmButSP = 5541;
end;

#component "L_SKLAD"

//'L_SKLAD::AKT_SPIS.EDITSOPR.SCRHEADER2'

alter interface AKT_SPIS
  ( '')
;
  overload
  end;

var Button1 : longint;

procedure CreateCFG;
begin

  if (cfsSetCurrentContainer('L_SKLAD::AKT_SPIS')<>cfOk) {
    message('cfsSetCurrentContainer');
    exit;
  }

  if (cfsCreateObject ('button','SCRHEADER2','butSP',FALSE,Button1)<>cfOk) {
    message('cfsCreateObject');
    exit;
  }

cfsSetProp('butSP','Origin_X',20);
cfsSetProp('butSP','Origin_Y',20);
cfsSetProp('butSP','Size_X',140);
cfsSetProp('butSP','Size_Y',20);
cfsSetProp('butSP','Title','КнопоЧЕГ');
cfsSetProp('butSP',cfpCommand,cmButSP);

PutCommand(cmButSP);

end;

HandleEvent

cmInit:{
  inherited :: handleEvent (cmInit);
  CreateCFG;
}

cmButSP:{
  message('click');
  inherited :: handleEvent (cmButSP);
}

end;
end.