anchor.diff:      procedure   SetupProjectTree;
       procedure   SetupFilesGrid;
       procedure   AddMessage(const AMsg: TfpgString);
  +    procedure   OpenEditorPage(const AFilename: TfpgString);
     public
       constructor Create(AOwner: TComponent); override;
       procedure   AfterCreate; override;
  
positive.code: procedure TMainForm.btnOpenFileClicked(Sender: TObject);
  var
    s: TfpgString;
    f: TfpgString;
    n: TfpgTreeNode;
    i: integer;
    found: Boolean;
    ts: TfpgTabSheet;
  begin
    s := SelectFileDialog(sfdOpen, Format(cFileFilterTemplate, ['Source Files', cSourceFiles, cSourceFiles]));
    if s <> '' then
    begin
      f := fpgExtractFileName(s);
      found := False;
      for i := 0 to pcEditor.PageCount-1 do
  
negative.code:       n.Data := ts;
        tvProject.Selection := n;
      end;
  
  end;
  
  procedure TMainForm.FormShow(Sender: TObject);
  