anchor.diff:      if iTab<0 then exit;
   
       F:= FrameList.Objects[iTab] as TEditorFrame;
  +    SetFrame(F);
       F.SetFocus;
     finally
       FreeAndNil(FrameList);
  
positive.code:         F:= Pages.Tabs.GetTabData(iTab).TabObject as TEditorFrame;
          if F=CurFrame then Continue;
  
          SPrefix:= Format('[%d-%d]  ', [iGroup+1, iTab+1]);
  
          if F.EditorsLinked and (F.FileName<>'') then
            SFilename:= ' ('+F.FileName+')'
  
negative.code:   Pages: TATPages;
    CurFrame, F: TEditorFrame;
    FrameList: TStringList;
    SGroup, SPrefix, SFilename: string;
    iGroup, iTab: integer;
  begin
    CurFrame:= CurrentFrame;
  