anchor.diff:      procedure   ClearMessagesWindow;
       procedure   CloseAllTabs;
       procedure   LoadProject(const AFilename: TfpgString);
  +    function    CreateNewEditorTab(const ATitle: TfpgString): TfpgTabSheet;
       function    OpenEditorPage(const AFilename: TfpgString): TfpgTabSheet;
       procedure   miTest(Sender: TObject);
       function    GetUnitsNode: TfpgTreeNode;
  
positive.code:   AddMessage('Project loaded');
  end;
  
  function TMainForm.OpenEditorPage(const AFilename: TfpgString): TfpgTabSheet;
  var
    s: TfpgString;
  
negative.code:   i: integer;
    found: Boolean;
    ts: TfpgTabSheet;
    ext: TfpgString;
    pos_h: integer;
    pos_v: integer;
  