anchor.diff:  
    TBlkPrjStav = record
     basicStav: TBlkPrjBasicStav;
  +  anulaceOld: Boolean;
     stit,vyl:string;
     PC_NOT, PC_UZ: boolean;                           // uzavreni prejezdu z pocitace (tj z technologie), prejezd muze byt uzavren taky z pultu
     zaver:Integer;                                    // pocet bloku, ktere mi daly zaver (pokud > 0, mam zaver; jinak zaver nemam)
  
positive.code:  //  DEBUG nastroj
   if (RCSi.simulation) then
    begin
     Result := Result + '-,';
     if ((Self.Stav.basicStav = TBlkPrjBasicStav.uzavreno) or (Self.Stav.basicStav = TBlkPrjBasicStav.vystraha)) then
       Result := Result + '*ZAVRENO<'
     else
       Result := Result + '*ZAVRENO>';
    end;//if RCS.lib = 2
  
   if (rights >= TORControlRights.superuser) then
    begin
  
negative.code:     end;
  
     Self.PrjStav.basicStav := new_stav;
     Self.Change();
    end;
  
   if (Self.PrjStav.anulaceOld <> Self.Anulace) then
    begin
     Self.PrjStav.anulaceOld := Self.Anulace;
     Self.Change();
    end;
  
  