anchor.diff:      procedure MenuZAVEnableClick(SenderPnl:TIdContext; SenderOR:TObject);
       procedure MenuZAVDisableClick(SenderPnl:TIdContext; SenderOR:TObject);
   
  +    procedure UPOPlusClick(Sender:TObject);
  +    procedure UPOMinusClick(Sender:TObject);
  +    procedure UPONSPlusClick(Sender:TObject);
  +    procedure UPONSMinusClick(Sender:TObject);
  +
       procedure MenuAdminREDUKClick(SenderPnl:TIdContext; SenderOR:TObject);
   
       procedure PanelPotvrSekvNSPlus(Sender:TIdContext; success:boolean);
  
positive.code: 
  procedure TBlkVyhybka.MenuPlusClick(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   Self.VyhStav.staveniPanel := SenderPnl;
   Self.VyhStav.staveniOR    := SenderOR;
  
   Self.SetPoloha(TVyhPoloha.plus, false, false, nil, Self.PanelStaveniErr);
  end;
  
  procedure TBlkVyhybka.MenuMinusClick(SenderPnl:TIdContext; SenderOR:TObject);
  begin
   Self.VyhStav.staveniPanel := SenderPnl;
   Self.VyhStav.staveniOR    := SenderOR;
  
   Self.SetPoloha(TVyhPoloha.minus, false, false, nil, Self.PanelStaveniErr);
  end;
  
  procedure TBlkVyhybka.MenuNSPlusClick(SenderPnl:TIdContext; SenderOR:TObject);
  var Blk:TBlk;
  begin
   Self.VyhStav.staveniPanel := SenderPnl;
   Self.VyhStav.staveniOR    := SenderOR;
  
   Blky.GetBlkByID(Self.UsekID, Blk);
   ORTCPServer.Potvr(SenderPnl, Self.PanelPotvrSekvNSPlus, (SenderOR as TOR), 'Nouzov stavn do polohy plus',
                      TBlky.GetBlksList(Self), TOR.GetPSPodminky(TOR.GetPSPodminka(Blk, 'Obsazen kolejov sek')));
  end;
  
  procedure TBlkVyhybka.MenuNSMinusClick(SenderPnl:TIdContext; SenderOR:TObject);
  var Blk:TBlk;
  begin
   Self.VyhStav.staveniPanel := SenderPnl;
   Self.VyhStav.staveniOR    := SenderOR;
  
   Blky.GetBlkByID(Self.UsekID, Blk);
   ORTCPServer.Potvr(SenderPnl, Self.PanelPotvrSekvNSMinus, (SenderOR as TOR), 'Nouzov stavn do polohy mnus',
                      TBlky.GetBlksList(Self), TOR.GetPSPodminky(TOR.GetPSPodminka(Blk, 'Obsazen kolejov sek')));
  end;
  
  procedure TBlkVyhybka.MenuStitClick(SenderPnl:TIdContext; SenderOR:TObject);
  
negative.code: 
  implementation
  
  uses TBloky, GetSystems, TechnologieRCS, fMain, TJCDatabase, UPO, Graphics,
        TCPServerOR, TBlokZamek, PTUtils, RCS;
  
  constructor TBlkVyhybka.Create(index:Integer);
  