anchor.diff:  
     end;
   
  -  /// /////////////////////////////////////////////////////////////////////////////
  +////////////////////////////////////////////////////////////////////////////////
   
   implementation
   
  
positive.code: begin
    if (Self.state <> status) then
    begin
      Self.RozpStav.state := status;
      Self.UpdateOutput();
      Self.Change();
    end;
  
negative.code: begin
    inherited LoadData(ini_tech, section, ini_rel, ini_stat);
  
    Self.m_settings.RCSAddrs := Self.LoadRCS(ini_tech, section);
    Self.LoadORs(ini_rel, 'R').Free();
    PushRCSToArea(Self.m_areas, Self.m_settings.RCSAddrs);
  
    Self.m_state.note := ini_stat.ReadString(section, 'stit', '');
  end;
  
  procedure TBlkDisconnector.SaveData(ini_tech: TMemIniFile; const section: string);
  begin
    inherited SaveData(ini_tech, section);
  
    Self.SaveRCS(ini_tech, section, Self.m_settings.RCSAddrs);
  end;
  
  procedure TBlkDisconnector.SaveStatus(ini_stat: TMemIniFile; const section: string);
  begin
    if (Self.m_state.note <> '') then
      ini_stat.WriteString(section, 'stit', Self.m_state.note);
  end;
  
  /// /////////////////////////////////////////////////////////////////////////////
  