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