anchor.diff:      Result.DoFileOpen(AFileName, AFileName2, bEnableHistory, true, OpenMode);
       MsgStatusFileOpened(AFileName, AFileName2);
   
  -    DoPyEvent(Result.Editor, cEventOnOpen, []);
  +    DoPyEvent(Result.Ed1, cEventOnOpen, []);
       Result.SetFocus;
       exit;
     end;
  
positive.code:       //  msg:= msg+' ('+IntToStr(tick)+'s)';
        MsgStatusFileOpened(AFileName, AFileName2);
  
        DoPyEvent(F.Editor, cEventOnOpen, []);
        if F.IsText and (F.LexerName[F.Ed1]='') then
          DoPyEvent(F.Editor, cEventOnOpenNone, []);
        Exit
      end;
    end;
  
negative.code:   DoPyEvent(F.Ed1, cEventOnOpen, []);
    if F.IsText and (F.LexerName[F.Ed1]='') then
      DoPyEvent(F.Ed1, cEventOnOpenNone, []);
    if AFileName2<>'' then
      DoPyEvent(F.Ed2, cEventOnOpen, []);
  
    Result.SetFocus;
  end;
  
  