anchor.diff:      procedure setStrngAttrib(aValue: TSynHighlighterAttributes);
       procedure setKeywdAttrib(aValue: TSynHighlighterAttributes);
       procedure setCurrIAttrib(aValue: TSynHighlighterAttributes);
  +    procedure setDDocsAttrib(aValue: TSynHighlighterAttributes);
       procedure doAttribChange(sender: TObject);
       procedure setCurrIdent(const aValue: string);
       procedure doChanged;
  
positive.code:       end;
      if (readCurr = #10) then
      begin
        fRange := rkBlockCom1;
        fTokKind := tkCommt;
        exit;
      end;
      if (readCurr = '/') then
      begin
        fTokKind := tkCommt;
        fRange := rkNone;
        readNext;
        if fkComments1 in fFoldKinds then
  
negative.code:       exit;
      end;
    end;
    _postString1:
  
    // string 2
    if fRange = rkNone then if (readCurr = '`') then
    begin
      // go to end of string/eol
      while ((readNext <> '`') and (not (readCurr = #10))) do (*!*);
      if (readCurr = #10) then fRange := rkString2
      else
      begin
        readNext;
        // check postfix
        if isStringPostfix(readCurr) then
          readNext;
      end;
      fTokKind := tkStrng;
      exit;
    end;
    if fRange = rkString2 then
    begin
      if (readCurr <> '`') then while ((readNext <> '`') and (not (readCurr = #10))) do (*!*);
      if (readCurr = #10) then
      begin
        fTokKind := tkStrng;
        exit;
      end;
  