anchor.diff:  function TfmMain.DoFileOpen(AFileName, AFileName2: string; APages: TATPages;
     const AOptions: string): TEditorFrame;
     //
  -  procedure DoFocusResult;
  -  begin
  -    if Assigned(Result) then
  -      if Visible and Result.Enabled then
  +  procedure DoFocusFrame(F: TEditorFrame);
  +  begin
  +    if Assigned(F) then
  +      if Visible and F.Enabled then
         begin
  -        SetFrame(Result);
  -        Result.SetFocus;
  +        SetFrame(F);
  +        F.SetFocus;
         end;
     end;
     //
  
positive.code:       OpenMode);
      MsgStatusFileOpened(AFileName, AFileName2);
  
      DoFocusResult;
      if bEnableEventOpened then
      begin
        DoPyEvent_Open(Result.Ed1);
  
negative.code:     if AFileName2<>'' then
        DoPyEvent_Open(F.Ed2);
  
    DoFocusFrame(Result);
  end;
  
  
  