anchor.diff:      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 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);
  
positive.code:   end;
  end;
  
  /// /////////////////////////////////////////////////////////////////////////////
  
  function TBlkTurnout.ShowPanelMenu(SenderPnl: TIDContext; SenderOR: TObject; rights: TAreaRights): string;
  
negative.code:   else if (item = 'POL-') then
      Self.MenuAdminPolMinusCLick(SenderPnl, SenderOR)
    else if (item = 'NEPOL') then
      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;
  
  /// /////////////////////////////////////////////////////////////////////////////
  