anchor.diff:    else if (item = 'POL-') then
       Self.MenuAdminPolMinusCLick(SenderPnl, SenderOR)
     else if (item = 'NEPOL') then
  -    Self.MenuAdminNepolCLick(SenderPnl, SenderOR);
  +    Self.MenuAdminNepolCLick(SenderPnl, SenderOR)
  +  else if (item = 'RAD+') then
  +    Self.MenuAdminRadPlusClick(SenderPnl, SenderOR)
  +  else if (item = 'RAD-') then
  +    Self.MenuAdminRadMinusClick(SenderPnl, SenderOR)
  +  else if (item = 'RAD?') then
  +    Self.MenuAdminRadNepolClick(SenderPnl, SenderOR);
   end;
   
   /// /////////////////////////////////////////////////////////////////////////////
  
positive.code:   end;
  end;
  
  /// /////////////////////////////////////////////////////////////////////////////
  
  function TBlkTurnout.ShowPanelMenu(SenderPnl: TIDContext; SenderOR: TObject; rights: TAreaRights): string;
  
negative.code:     procedure UPONSMinusClick(Sender: TObject);
  
      procedure MenuAdminREDUKClick(SenderPnl: TIDContext; SenderOR: TObject);
      procedure MenuAdminPolPlusClick(SenderPnl: TIDContext; SenderOR: TObject);
      procedure MenuAdminPolMinusClick(SenderPnl: TIDContext; SenderOR: TObject);
      procedure MenuAdminNepolClick(SenderPnl: TIDContext; SenderOR: TObject);
      procedure MenuAdminRadPlusClick(SenderPnl: TIDContext; SenderOR: TObject);
      procedure MenuAdminRadMinusClick(SenderPnl: TIDContext; SenderOR: TObject);
      procedure MenuAdminRadNepolClick(SenderPnl: TIDContext; SenderOR: TObject);
  
      procedure PanelPotvrSekvNSPlus(Sender: TIDContext; success: Boolean);
      procedure PanelPotvrSekvNSMinus(Sender: TIDContext; success: Boolean);
  