anchor.diff:        bg := $A0A0A0;
     end;
     ncVolno, ncVystraha, ncOcek40, ncVolno40, ncVystraha40, nc40Ocek40,
  -  ncOpakVolno, ncOpakVystraha, ncOpakOcek40, ncOpakVystraha40: fg := clLime;
  +  ncOpakVolno, ncOpakVystraha, ncOpakOcek40, ncOpakVystraha40, ncOpak40Ocek40: fg := clLime;
     ncPrivol, ncPosunZaj, ncPosunNezaj: fg := clWhite;
     ncVse: fg := clYellow;
    else
  
positive.code:   begin
     case (navest) of
       ncVolno, ncVystraha, ncOcek40, ncVolno40, ncVystraha40, nc40Ocek40,
       ncOpakVolno, ncOpakVystraha, ncOpakOcek40, ncOpakVystraha40: Result := true;
     else
      Result := false;
     end;
  
negative.code:   ncVystraha: Result := ncOpakVystraha;
    ncOcek40: Result := ncOpakOcek40;
    ncVystraha40: Result := ncOpakVystraha40;
    nc40Ocek40: Result := ncOpak40Ocek40;
   else
    Result := navest;
   end;
  