anchor.diff:  
   function TBlkTU.GetZastIRLichy():TBlk;
   begin
  - if (((Self.fZastIRLichy = nil) and (Self.UsekSettings.Zastavka.IR_lichy <> -1)) or ((Self.fZastIRLichy <> nil) <> (Self.fZastIRLichy.GetGlobalSettings.id <> Self.UsekSettings.Zastavka.IR_lichy))) then
  -   Blky.GetBlkByID(Self.UsekSettings.Zastavka.IR_lichy, Self.fZastIRLichy);
  + if (((Self.fZastIRLichy = nil) and (Self.TUSettings.Zastavka.IR_lichy <> -1)) or ((Self.fZastIRLichy <> nil) <> (Self.fZastIRLichy.GetGlobalSettings.id <> Self.TUSettings.Zastavka.IR_lichy))) then
  +   Blky.GetBlkByID(Self.TUSettings.Zastavka.IR_lichy, Self.fZastIRLichy);
    Result := Self.fZastIRLichy;
   end;//function
   
   function TBlkTU.GetZastIRSudy():TBlk;
   begin
  - if (((Self.fZastIRSudy = nil) and (Self.UsekSettings.Zastavka.IR_sudy <> -1)) or ((Self.fZastIRSudy <> nil) and (Self.fZastIRSudy.GetGlobalSettings.id <> Self.UsekSettings.Zastavka.IR_sudy))) then
  -   Blky.GetBlkByID(Self.UsekSettings.Zastavka.IR_sudy, Self.fZastIRSudy);
  + if (((Self.fZastIRSudy = nil) and (Self.TUSettings.Zastavka.IR_sudy <> -1)) or ((Self.fZastIRSudy <> nil) and (Self.fZastIRSudy.GetGlobalSettings.id <> Self.TUSettings.Zastavka.IR_sudy))) then
  +   Blky.GetBlkByID(Self.TUSettings.Zastavka.IR_sudy, Self.fZastIRSudy);
    Result := Self.fZastIRSudy;
   end;//function
   
  
positive.code: 
      function ShowPanelMenu(SenderPnl:TIdContext; SenderOR:TObject; rights:TORCOntrolRights):string; override;
      procedure PanelClick(SenderPnl:TIdContext; SenderOR:TObject; Button:TPanelButton; rights:TORCOntrolRights); override;
  
      property TUStav:TBlkTUStav read fTUStav;
  
   end;//TBlkUsek
  
  
negative.code:  Result := inherited;
  
   // zastavka
   if ((Self.TUSettings.Zastavka.enabled) and (Self.InTrat > -1)) then
    begin
     Result := Result + '-,';
     if (not Self.TUStav.zast_stopped) then
  