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