anchor.diff:  
   implementation
   
  -uses GetSystems, TBloky, TBlokNav, Logging, RCS, ownStrUtils,
  +uses GetSystems, TBloky, TBlokNav, Logging, RCS, ownStrUtils, Diagnostics,
       TJCDatabase, fMain, TCPServerOR, TBlokTrat, SprDb, THVDatabase,
       Trakce, THnaciVozidlo, TBlokTratUsek, BoosterDb, appEv, Souprava,
       stanicniHlaseniHelper, TechnologieJC, PTUtils, RegulatorTCP, TCPORsRef,
  
positive.code:    Self.CallChangeEvents(Self.EventsOnZaverReleaseOrAb);
  
   // staveci zavery se do panelu neposilaji, protoze jsou mi k nicemu
   if (Self.Zaver <> TZaver.staveni) or (old <> TZaver.no) then
     Self.Change();
  end;
  
  
negative.code:       TZaver.vlak   : fg := clLime;
        TZaver.posun  : fg := clWhite;
        TZaver.nouz   : fg := clAqua;
        TZaver.ab     : if (diag.showZaver) then fg := $707070 else fg := $A0A0A0;
        TZaver.staveni: if (diag.showZaver) then fg := clBlue;
       end;//case
      end;
  
  