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

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

.......

 if(not MenuChanged('MENU L_SKLAD::SKLOPER') )
  {
     if  (UserIsAdmin) 
       {
          var iMenu: longint;
          iMenu := LoadMenuEx ( 'L_SKLAD::SKLOPER', true, false);
          AddMenuItem ( iMenu, 'separator', 666 );
          AddMenuItemEx2 ( iMenu, 'КАЛЬКУЛЯТОР', '', '', cmRunInterface, 0, 'AtlCalc' );
          StoreMenuHowDynamics ( iMenu, 'L_SKLAD::SKLOPER' );
          DisposeLoadMenu ( iMenu );

       } 
	
  }
.........
Function MenuChanged(nameMenu: string): boolean;
{
   result := (RecordExists X$Resources where ((           3 == X$Resources.XR$Type 
                                               and nameMenu == X$Resources.XR$Name))
       = tsOk);
}

Function UserIsAdmin: boolean;
{
   result := false;
   if (GetFirst FastFirstRow X$Users where (( UserId == X$Users.Atl_NRec)) = tsOk)
      result := (X$Users.Xu$Type = 1);
}