anchor.diff:        end;
       if (readCurr = #10) then
       begin
  -      fRange := rkBlockCom1;
  -      fTokKind := tkCommt;
  +      if fRange = rkBlockDoc1 then fTokKind := tkDDocs
  +        else fTokKind := tkCommt;
         exit;
       end;
       if (readCurr = '/') then
       begin
  -      fTokKind := tkCommt;
  +      if fRange = rkBlockDoc1 then fTokKind := tkDDocs
  +        else fTokKind := tkCommt;
         fRange := rkNone;
         readNext;
         if fkComments1 in fFoldKinds then
  
positive.code: 		fStrngAttrib: TSynHighlighterAttributes;
      fKeywdAttrib: TSynHighlighterAttributes;
      fCurrIAttrib: TSynHighlighterAttributes;
      fKeyWords: TD2Dictionary;
      fCurrIdent: string;
      fLineBuf: string;
  
negative.code:     property StrngAttrib: TSynHighlighterAttributes read fStrngAttrib write setStrngAttrib;
      property KeywdAttrib: TSynHighlighterAttributes read fKeywdAttrib write setKeywdAttrib;
      property CurrIAttrib: TSynHighlighterAttributes read fCurrIAttrib write setCurrIAttrib;
      property DDocsAttrib: TSynHighlighterAttributes read fDDocsAttrib write setDDocsAttrib;
  	public
  		constructor create(aOwner: TComponent); override;
      destructor destroy; override;
  