anchor.diff:  
   class function TWorkflowHelper.MakeRecord(StateHolder : TWorkflowStateHolder; const Project : TFileName;
     Msg : TFixInsightMessage) : TReportRecord;
  -var
  -  sProjectPath : TFileName;
   begin
     Result.Column             := Msg.Column;
     Result.FileName           := Msg.FileName;
  
positive.code: begin
    Log.EnterMethod(TWorkflowHelper, @TWorkflowHelper.ExtractSnippet, [FileName, Line, Size]);
  
    // TODO: implement {TWorkflowHelper.ExtractSnippet}
    Result := String.Empty;
  
    Log.LeaveMethod(TWorkflowHelper, @TWorkflowHelper.ExtractSnippet);
  end;
  
  class function TWorkflowHelper.FormatProjectTitle(StateHolder : TWorkflowStateHolder; const Project : TFileName) : String;
  
negative.code: 
    with StateHolder do
      if FConfigData.SnippetSize > 0 then
        Result.Snippet := ExtractSnippet(
          TPath.Combine(TPath.GetDirectoryName(Project), Msg.FileName), Msg.Line, FConfigData.SnippetSize);
  end;
  
  end.
  