anchor.diff:  	fStrngAttrib := TSynHighlighterAttributes.Create('String','String');
     fKeywdAttrib := TSynHighlighterAttributes.Create('Keyword','Keyword');
     fCurrIAttrib := TSynHighlighterAttributes.Create('CurrentIdentifier','CurrentIdentifier');
  +  fDDocsAttrib := TSynHighlighterAttributes.Create('DDoc','DDoc');
   
     fNumbrAttrib.Foreground := $000079F2;
     fSymblAttrib.Foreground := clMaroon;
  
positive.code:       end;
        if (readCurr = #10) then
        begin
          fRange := rkBlockCom2;
          if fkComments2 in fFoldKinds then
            StartCodeFoldBlock(nil);
        end
        else readNext;
        fTokKind := tkCommt;
        exit;
      end;
    end
    else Dec(fTokStop);
  
    // string 1
    if fRange = rkString1 then
    begin
      if (readCurr <> '"') then while (((readNext <> '"') or (readPrev = '\')) and (not (readCurr = #10))) do (*!*);
      if (readCurr = #10) then
      begin
        fRange := rkString1;
        fTokKind := tkStrng;
        exit;
      end;
  
negative.code:   begin
      if (readNext = '/') then
      begin
        fTokKind := tkCommt;
        if readNext <> #10 then if readCurr = '/' then
        begin
          fTokKind := tkDDocs;
        end;
        while readCurr <> #10 do readNext(*!*);
        exit;
      end
      else
  