anchor.diff:        TZaver.vlak   : fg := clLime;
         TZaver.posun  : fg := clWhite;
         TZaver.nouz   : fg := clAqua;
  -      TZaver.ab     : fg := $707070;
  +      TZaver.ab     : if (diag.showZaver) then fg := $707070 else fg := $A0A0A0;
  +      TZaver.staveni: if (diag.showZaver) then fg := clBlue;
        end;//case
       end;
   
  
positive.code: 
  implementation
  
  uses GetSystems, TBloky, TBlokNav, Logging, RCS, ownStrUtils,
      TJCDatabase, fMain, TCPServerOR, TBlokTrat, SprDb, THVDatabase,
      Trakce, THnaciVozidlo, TBlokTratUsek, BoosterDb, appEv, Souprava,
      stanicniHlaseniHelper, TechnologieJC, PTUtils, RegulatorTCP, TCPORsRef,
  
negative.code: begin
   if (Zaver = Self.Zaver) then Exit();
  
   if ((Self.UsekStav.Zaver > TZaver.no) and ((Zaver = TZaver.no) or (Zaver = TZaver.ab))) then
     Self.NUZ := false;
  
   old := Self.Zaver;
   Self.UsekStav.Zaver := Zaver;
   Self.UsekStav.SprPredict := -1;
  
   if ((old > TZaver.no) and (zaver = TZaver.no)) then
  