anchor.diff:    bTokens.TextAlign:= taCenter;
     bTokens.ItemIndex:= 0;
     bTokens.Checkable:= true;
  +
  +  Adapter:= TATAdapterEControl.Create(Self);
  +  Adapter.Lexer:= AppManager.FindLexerByName('RegEx');
   end;
   
   
  
positive.code:   ATSynEdit_Edits,
    ATSynEdit_Commands,
    ATSynEdit_Finder,
    proc_msg,
    proc_globdata,
    proc_miscutils,
  
negative.code: 
    UpdateButtonBold;
    UpdateFormHeight;
  
    UpdateRegexHighlight;
  end;
  
  procedure TfmFind.UpdateRegexHighlight;
  var
    bActive: boolean;
  begin
    bActive:= chkRegex.Checked;
    if AdapterActive<>bActive then
    begin
      AdapterActive:= bActive;
      if AdapterActive then
      begin
        Adapter.AddEditor(edFind);
        edFind.DoEventChange();
        edFind.InvalidateHilitingCache;
        Adapter.DoAnalyzeFromLine(0, true);
      end
      else
      begin
        edFind.AdapterForHilite:= nil;
        Adapter.AddEditor(nil);
      end;
      edFind.Update;
    end;
  end;
  
  procedure TfmFind.UpdateButtonBold;
  