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: 
  function TEditorFrame.IsCaretInsideCommentOrString(Ed: TATSynEdit; AX, AY: integer): boolean;
  var
    Pnt1, Pnt2: TPoint;
    STokenText, STokenStyle: string;
  begin
    Result:= false;
  
    //lite lexer not supported here
    if not (Ed.AdapterForHilite is TATAdapterEControl) then exit;
  
    UpdateLexerCache;
    if FLastLexer='' then exit;
  
    TATAdapterEControl(Ed.AdapterForHilite).GetTokenAtPos(
  
negative.code:     property SaveDialog: TSaveDialog read FSaveDialog write FSaveDialog;
      function GetTabPages: TATPages;
      function GetTabGroups: TATGroups;
      procedure GetEditorToken(Ed: TATSynEdit; AX, AY: integer; out AKind: TATFinderTokenKind);
      //file
      procedure DoFileClose;
      procedure DoFileOpen(const AFileName, AFileName2: string; AAllowLoadHistory,
  