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

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

#component 'L_SOPRDOC'
#include cfg_all.inc
const
cmMyFuncStr = 30115;
End;

alter interface SOPRDOCB;
overload   end;
create view
var iObj : LongInt;
;

HandleEvent
cmInit://cmOnVipLoad? cmInit
{
  inherited::handleEvent ( cmInit );
  message('cfsSetCurrentContainer = ' + cfsSetCurrentContainer ('EDITSOPR'));//интерфейс L_SOPRDOC::SOPRDOCB.

  cfsCreateObject ( 'BUTTON', 'SCRHEADER', 'MyFuncStr', false, iObj );   //Контейнер
  cfsSetProp ( iObj, cfpOrigin_X, 658 );
  cfsSetProp ( iObj, cfpOrigin_Y, 225 );
  cfsSetProp ( iObj, cfpSize_X  , 260 );
  cfsSetProp ( iObj, cfpSize_Y  , 28 );
  cfsSetProp ( iObj, cfpCommand , cmMyFuncStr );
  cfsSetProp ( iObj, cfpVisible , TRUE);
  cfsSetProp ( iObj, cfpTitle   , 'Отчет' );
}; //cmOnVipLoad
cmMyFuncStr:
 message('ionasdjf nlkasdf');
end;
end. 

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

#component 'L_SOPRDOC'
#include cfg_all.inc

const
  cmMyFuncStr=30115;
end;

alter interface SoprDocB;
var iObj: longint;

window EditSopr
HandleEvent
cmMyFuncStr:  Message('ionasdjf nlkasdf');
end;
end;

HandleEvent
cmInit:
{
  inherited::HandleEvent(cmInit);
  cfsSetCurrentContainer('L_SOPRDOC::SOPRDOCB');
  cfsCreateObject(cfcButton, 'SCRHEADER', 'MyFuncStr', FALSE, iObj);
  cfsSetProp(iObj, cfpOrigin_X, 578);
  cfsSetProp(iObj, cfpOrigin_Y, 205);
  cfsSetProp(iObj, cfpSize_X, 223);
  cfsSetProp(iObj, cfpSize_Y, 25);
  cfsSetProp(iObj, cfpCommand, cmMyFuncStr);
  cfsSetProp(iObj, cfpVisible, TRUE);
  cfsSetProp(iObj, cfpTitle, 'Отчет');
};
end;
end.