anchor.diff:  unit FormMain;
   
   {$mode objfpc}{$H+}
  +
   {$IFDEF DEBUG}
   {$INLINE OFF}
   {$ENDIF}
  +//{$define debug_on_lexer}
  +
   interface
   
   uses
  
positive.code:   Frame: TEditorFrame;
    Params: TAppVariantArray;
    Keymap: TATKeymap;
    SFileName, SLexerName: string;
  begin
    if Sender is TEditorFrame then
      Frame:= TEditorFrame(Sender)
  
negative.code:     Frame:= (Sender as TComponent).Owner as TEditorFrame;
    Ed:= Frame.Editor;
  
    {$ifdef debug_on_lexer}
    SFileName:= Frame.GetFileName(Ed);
    {$endif}
    SLexerName:= Frame.LexerName[Ed];
  
    {$ifdef debug_on_lexer}
    MsgLogConsole('OnLexerChange: file "'+ExtractFileName(SFileName)+'" -> "'+SLexerName+'"');
    {$endif}
  
    //load lexer-specific config
    DoOps_LoadOptionsLexerSpecific(Frame, Ed);
  