anchor.diff:    end;
     F:= D.TabObject as TEditorFrame;
   
  -  tick:= GetTickCount64;
  +  //tick:= GetTickCount64;
     F.DoFileOpen(AFileName, AFileName2, bEnableHistory, true, OpenMode);
     Result:= F;
  -  tick:= (GetTickCount64-tick) div 1000;
  +  //tick:= (GetTickCount64-tick) div 1000;
   
     UpdateStatus;
  -  msg:= msgStatusOpened+' '+ExtractFileName(AFileName);
  -  if tick>2 then
  -    msg:= msg+' ('+IntToStr(tick)+'s)';
  -  MsgStatus(msg);
  +  //if tick>2 then
  +  //  msg:= msg+' ('+IntToStr(tick)+'s)';
  +  MsgStatusFileOpened(AFileName, AFileName2);
   
     DoPyEvent(F.Ed1, cEventOnOpen, []);
     if F.IsText and (F.LexerName[F.Ed1]='') then
  
positive.code:     if Assigned(F) then
      if F.IsEmpty then
      begin
        tick:= GetTickCount64;
        F.DoFileOpen(AFileName, AFileName2, bEnableHistory, true, OpenMode);
        Result:= F;
        tick:= (GetTickCount64-tick) div 1000;
  
        UpdateStatus;
        msg:= msgStatusOpened+' '+ExtractFileName(AFileName);
        if tick>2 then
          msg:= msg+' ('+IntToStr(tick)+'s)';
        MsgStatus(msg);
  
        DoPyEvent(F.Editor, cEventOnOpen, []);
        if F.IsText and (F.LexerName[F.Ed1]='') then
  
negative.code:   CodeTreeFilterInput.OnChange(nil);
  end;
  
  procedure TfmMain.MsgStatusFileOpened(const AFileName1, AFileName2: string);
  var
    S: string;
  begin
    S:= msgStatusOpened+' "'+ExtractFileName(AFileName1)+'"';
    if AFileName2<>'' then
      S+= ', "'+ExtractFileName(AFileName2)+'"';
    MsgStatus(S);
  end;
  
  function TfmMain.DoFileOpen(AFileName, AFileName2: string; APages: TATPages;
    const AOptions: string): TEditorFrame;
  var
  