anchor.diff:  
      // left rectangle
      fg := clBlack;
  -   if (TBlkSH(Sender).porucha) then
  +   if ((TBlkSH(Sender).porucha) or (TBlkSH(Sender).nouzoveOT)) then
        fg := clRed;
      if (not TBlkSH(Sender).komunikace) then
        fg := clFuchsia;
  
positive.code:    fg := clBlack;
     if (TBlkSH(Sender).uzavreno) then
       fg := $A0A0A0;
     if (not TBlkSH(Sender).UZ) then
       fg := clWhite;
     msg := msg + PrevodySoustav.ColorToStr(fg) + ';';
    end;//_BLK_SH
  
negative.code:    //vytvoreni dat
  
     // n.o. rail
     fg := clTeal;
     if (TBlkSH(Sender).anulace) then
       fg := clWhite;
     msg := msg + PrevodySoustav.ColorToStr(fg) + ';';
  