anchor.diff:      );
     if STokenStyle='' then exit;
   
  -  Result:=
  -    Pos(','+STokenStyle+',', ','+FLastLexerCommentStyles+','+FLastLexerStringStyles+',')>0;
  +  if FLastLexerCommentStyles<>'' then
  +    if Pos(','+STokenStyle+',', ','+FLastLexerCommentStyles+',')>0 then
  +    begin
  +      AKind:= cTokenKindComment;
  +      exit;
  +    end;
  +
  +  if FLastLexerStringStyles<>'' then
  +    if Pos(','+STokenStyle+',', ','+FLastLexerStringStyles+',')>0 then
  +    begin
  +      AKind:= cTokenKindString;
  +      exit;
  +    end;
   end;
   
   end.
  
positive.code:     property SaveDialog: TSaveDialog read FSaveDialog write FSaveDialog;
      function GetTabPages: TATPages;
      function GetTabGroups: TATGroups;
      //file
      procedure DoFileClose;
      procedure DoFileOpen(const AFileName, AFileName2: string; AAllowLoadHistory,
  
negative.code:     procedure SetLexer(Ed: TATSynEdit; an: TecSyntAnalyzer);
      procedure SetLexerLite(Ed: TATSynEdit; an: TATLiteLexer);
      procedure SetLexerName(Ed: TATSynEdit; const AValue: string);
      procedure UpdateLexerCache(Ed: TATSynEdit);
      procedure UpdateTabTooltip;
    protected
      procedure DoOnResize; override;
  