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: begin
   if (Zaver = Self.Zaver) then Exit();
  
   if ((Integer(Self.UsekStav.Zaver) > 0) 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
  
negative.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) or (diag.showZaver)) then
     Self.Change();
  end;
  
  