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

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

#include  CreateTune.vih
//------------------------------------------------------------------------------
Handler with replace Kladov_DateModifyTune on ExtensionPoint
  epDateModifyTune (TS : ObjStartCreateTune)
Action
{
  TS.SetLastDateModTune(01,09,2007);
  Result := true;
}
//------------------------------------------------------------------------------

//------------------------------------------------------------------------------
Handler with replace Kladov_CreateTuneComponent on extensionPoint
  epCreateTuneComponent (TR: ObjCreateTune) [11]
  // Внимание, приоритеты вызова обработчиков см. в CreateTune.vih
Action
{
  Result := true;
  //----------------------------------------------------------------------------
  // Обязательно установить  имя компонента
  TR.SetComponent('C_COMMON');
  //----------------------------------------------------------------------------
  // Добавь сюда создание настроек. Например:
  TR.AddPart(ttUSERTUNE, 'MYGROUP1', '', 'Дополнительная настройка', 0) ;
    TR.AddPart(ttUSERTUNE, 'MYGROUP1.REPORTS', 'MYGROUP1', 'Данные для отчета', 0) ;
      TR.AddTune(ttUserTune,'MYGROUP1.REPORTS.Kladov','MYGROUP1.REPORTS','Кладовщик', ftString, '', '50', 0);
}