anchor.diff:    end;
   end;
   
  +procedure TMainForm.miFileSaveAs(Sender: TObject);
  +var
  +  s: TfpgString;
  +begin
  +  s := SelectFileDialog(sfdSave);
  +  if s <> '' then
  +  begin
  +    TfpgMemo(pcEditor.ActivePage.Components[0]).Lines.SaveToFile(s);
  +  end;
  +end;
  +
   procedure TMainForm.miAboutFPGuiClicked(Sender: TObject);
   begin
     TfpgMessageDialog.AboutFPGui;
  
positive.code:     Splitter2: TfpgSplitter;
      pcEditor: TfpgPageControl;
      tsEditor1: TfpgTabSheet;
      tsEditor2: TfpgTabSheet;
      Memo1: TfpgMemo;
      lblStatus: TfpgLabel;
      mnuFile: TfpgPopupMenu;
  
negative.code:     AddMenuItem('Open...', '', nil);
      AddMenuItem('Open Recent', '', nil);
      AddMenuItem('Save...', '', nil);
      AddMenuItem('Save As...', '', @miFileSaveAs);
      AddMenuItem('-', '', nil);
      AddMenuItem('Quit', '', @btnQuitClicked);
    end;
  