anchor.diff:    with mainmenu do
     begin
       Name := 'mainmenu';
  -    SetPosition(0, 0, 648, 24);
  +    SetPosition(0, 0, 638, 24);
       Anchors := [anLeft,anRight,anTop];
  -  end;
  -
  -  Bevel1 := TfpgBevel.Create(pnlMenu);
  -  with Bevel1 do
  -  begin
  -    Name := 'Bevel1';
  -    SetPosition(0, 24, 648, 28);
  +    Align := alTop;
  +  end;
  +
  +  Toolbar := TfpgBevel.Create(pnlMenu);
  +  with Toolbar do
  +  begin
  +    Name := 'Toolbar';
  +    SetPosition(2, 2, 634, 50);
       Anchors := [anLeft,anRight,anTop];
  +    Align := alClient;
       Hint := '';
       Shape := bsSpacer;
     end;
   
  -  btnQuit := TfpgButton.Create(Bevel1);
  +  btnQuit := TfpgButton.Create(Toolbar);
     with btnQuit do
     begin
       Name := 'btnQuit';
       SetPosition(4, 2, 24, 24);
       Text := '';
  +    Down := False;
       Embedded := True;
       FontDesc := '#Label1';
       Hint := '';
       ImageMargin := 0;
       ImageName := 'stdimg.quit';
  -    TabOrder := 1;
  +    TabOrder := 3;
       OnClick  := @btnQuitClicked;
     end;
   
  -  btnOpen := TfpgButton.Create(Bevel1);
  +  btnOpen := TfpgButton.Create(Toolbar);
     with btnOpen do
     begin
       Name := 'btnOpen';
       SetPosition(28, 2, 24, 24);
       Text := '';
  +    Down := False;
       Embedded := True;
       FontDesc := '#Label1';
       Hint := '';
       ImageMargin := 0;
       ImageName := 'stdimg.open';
  -    TabOrder := 2;
  +    TabOrder := 4;
       OnClick := @btnOpenFileClicked;
     end;
   
  -  btnSave := TfpgButton.Create(Bevel1);
  +  btnSave := TfpgButton.Create(Toolbar);
     with btnSave do
     begin
       Name := 'btnSave';
       SetPosition(56, 2, 24, 24);
       Text := '';
  +    Down := False;
       Embedded := True;
       FontDesc := '#Label1';
       Hint := '';
       ImageMargin := 0;
       ImageName := 'stdimg.save';
  -    TabOrder := 3;
  +    TabOrder := 5;
       OnClick := @miFileSave;
     end;
   
  -  btnSaveAll := TfpgButton.Create(Bevel1);
  +  btnSaveAll := TfpgButton.Create(Toolbar);
     with btnSaveAll do
     begin
       Name := 'btnSaveAll';
       SetPosition(80, 2, 24, 24);
       Text := '';
  +    Down := False;
       Embedded := True;
  +    Enabled := False;
       FontDesc := '#Label1';
       Hint := '';
       ImageMargin := 0;
       ImageName := 'stdimg.saveall';
  -    TabOrder := 4;
  -    Enabled := False;
  +    TabOrder := 6;
  +  end;
  +
  +  btnTest := TfpgButton.Create(Toolbar);
  +  with btnTest do
  +  begin
  +    Name := 'btnTest';
  +    SetPosition(168, 2, 80, 24);
  +    Text := 'test';
  +    Down := False;
  +    FontDesc := '#Label1';
  +    Hint := '';
  +    ImageName := '';
  +    TabOrder := 7;
  +    OnClick := @miTest;
     end;
   
     pnlStatusBar := TfpgBevel.Create(self);
     with pnlStatusBar do
     begin
       Name := 'pnlStatusBar';
  -    SetPosition(0, 338, 648, 20);
  +    SetPosition(0, 408, 636, 20);
       Anchors := [anLeft,anRight,anBottom];
       Hint := '';
       Style := bsLowered;
  +  end;
  +
  +  lblStatus := TfpgLabel.Create(pnlStatusBar);
  +  with lblStatus do
  +  begin
  +    Name := 'lblStatus';
  +    SetPosition(2, 2, 632, 16);
  +    Anchors := [anLeft,anRight,anTop];
  +    Align := alBottom;
  +    FontDesc := '#Label1';
  +    Hint := '';
  +    Text := '';
     end;
   
     pnlClientArea := TfpgBevel.Create(self);
     with pnlClientArea do
     begin
       Name := 'pnlClientArea';
  -    SetPosition(0, 57, 648, 248);
  +    SetPosition(0, 54, 638, 374);
       Anchors := [anLeft,anRight,anTop,anBottom];
  +    Align := alClient;
       Hint := '';
       Shape := bsSpacer;
     end;
  
positive.code:     pcEditor.RemoveTabSheet(ts);
      ts.Free;
    end;
  end;
  
  function TMainForm.OpenEditorPage(const AFilename: TfpgString): TfpgTabSheet;
  
negative.code:     SetPosition(476, 98, 172, 20);
      AddMenuItem('Find...', '', nil).Enabled := False;
      AddMenuItem('Find in Files...', '', nil).Enabled := False;
      AddMenuItem('Procedure List...', '', @miSearchProcedureList);
    end;
  
    mnuView := TfpgPopupMenu.Create(self);
  