anchor.diff:    if (ResFilename<>'') and (ResLine>=0) then
     begin
       MsgStatus(Format(msgStatusGotoFileLineCol, [ResFilename, ResLine+1, ResCol+1]));
  -    if FileExists(ResFilename) then
  +    Frame:= FindFrameOfFilename(ResFilename);
  +    if Assigned(Frame) then
       begin
  -      DoFileOpen(ResFilename, '');
  +      Frame.SetFocus;
  +      Ed:= Frame.Editor;
         Ed.DoCaretSingle(ResCol, ResLine);
         Ed.DoGotoCaret(cEdgeTop);
         Ed.Update;
  
positive.code: end;
  
  
  function TfmMain.FindFrameOfFilename(const AName: string): TEditorFrame;
  var
    F: TEditorFrame;
    i: integer;
  begin
    Result:= nil;
    if AName='' then exit;
    for i:= 0 to FrameCount-1 do
    begin
      F:= Frames[i];
      if SameFileName(AName, F.FileName) then
        exit(F);
      if not F.EditorsLinked then
        if SameFileName(AName, F.FileName2) then
          exit(F);
    end;
  end;
  
  
negative.code:     procedure DoOps_LoadOptions_Ui(cfg: TJSONConfig);
      procedure ShowWelcomeInfo;
      procedure DoOps_OnCreate;
      function FindFrameOfFilename(const AFileName: string): TEditorFrame;
      function FindFrameOfPreviewTab: TEditorFrame;
      procedure FixMainLayout;
      procedure FormFloatGroups1_OnEmpty(Sender: TObject);
  