anchor.diff:  implementation
   
   uses TBloky, GetSystems, ownStrUtils, TJCDatabase, TCPServerOR, RCS, UPO,
  -     Graphics, TCPORsRef, Prevody, Diagnostics;
  +     Graphics, TCPORsRef, Prevody, Diagnostics, appEv;
   
   constructor TBlkPrejezd.Create(index:Integer);
   begin
  
positive.code:  Self.PrjStav := Self._def_prj_stav;
   Self.PrjStav.shs := TList<TBlk>.Create();
   Self.PrjStav.rcsModules := TList<Cardinal>.Create();
  end;//ctor
  
  destructor TBlkPrejezd.Destroy();
  begin
   Self.PrjStav.shs.Free();
   Self.PrjStav.rcsModules.Free();
   inherited;
  end;//dtor
  
  
negative.code:  Self.PrjSettings.RCSOutputs.NOtevrit := RCSi.RCSAddr(ini_tech.ReadInteger(section, 'RCSOnotm', defaultModule),
                                                        ini_tech.ReadInteger(section, 'RCSOnot', 0));
  
   Self.tracks.Clear();
   notracks := ini_tech.ReadInteger(section, 'tracks', 0);
   for i := 0 to notracks-1 do
    begin
     track := TBlkPrjTrack.Create();
     try
       track.Load(ini_tech, section, 'T'+IntToStr(i));
       Self.tracks.Add(track);
     except
       on E:Exception do
         AppEvents.LogException(E, 'LoadTracks');
     end;
    end;
  
   Self.PrjStav.stit := ini_stat.ReadString(section, 'stit', '');
  
   Self.LoadORs(ini_rel, 'PRJ').Free();
  