anchor.diff:    end;
   end;
   
  +procedure TEditorSession.SetInternalProject(const Value: TEditorProject);
  +begin
  +  FProject := Value;
  +end;
  +
   function TEditorSession.GetActive: Boolean;
   begin
  -  Result := Project is TDefaultProject;
  +  Result := (Project <> nil) and not (Project is TDefaultProject);
   end;
   
   procedure TEditorOptions.Show;
  
positive.code: 
  constructor TFileCategory.Create(ATendency: TEditorTendency; const vName: string; vKind: TFileCategoryKinds);
  begin
    inherited Create(False);//childs is groups and already added to Groups and freed by it
    FTendency := ATendency;
    FName := vName;
    FKind := vKind;
  
negative.code:       S := S + #$D;
      Stream.WriteBuffer(Pointer(S)^, Length(S));
    end;
  end;
  
  { TDefaultProject }
  
  destructor TDefaultProject.Destroy;
  begin
    inherited Destroy;
  end;
  
  { TFileCategories }
  