anchor.diff:    pcEditor.Align := alClient;
   
     pnlClientArea.Realign;
  +
  +  SetupProjectTree;
  +  SetupFilesGrid;
   end;
   
   constructor TMainForm.Create(AOwner: TComponent);
  
positive.code:     SetPosition(152, 140, 352, 8);
    end;
  
    pnlTool := TfpgPanel.Create(pnlClientArea);
    with pnlTool do
    begin
      Name := 'pnlTool';
      SetPosition(28, 4, 112, 136);
      FontDesc := '#Label1';
      Hint := '';
      Text := 'ToolPanel';
    end;
  
    Splitter2 := TfpgSplitter.Create(pnlClientArea);
  
negative.code: procedure TMainForm.UpdateStatus(const AText: TfpgString);
  begin
    lblStatus.Text := AText;
  end;
  
  procedure TMainForm.SetupProjectTree;
  begin
    tvProject.RootNode.AppendText('Units');
    tvProject.RootNode.AppendText('Images');
    tvProject.RootNode.AppendText('Help Files');
    tvProject.RootNode.AppendText('Text');
    tvProject.RootNode.AppendText('Other');
  end;
  
  procedure TMainForm.SetupFilesGrid;
  begin
    grdFiles.FileList.FileMask := AllFilesMask;
    grdFiles.FileList.ShowHidden := False;
    grdFiles.FileList.ReadDirectory;
    grdFiles.FileList.Sort(soFileName);
    grdFiles.Invalidate;
  end;
  
  procedure TMainForm.FormShow(Sender: TObject);
  