anchor.diff:      TfpgTextEdit(pcEditor.ActivePage.Components[0]).SaveToFile(s);
   end;
   
  +procedure TMainForm.miEditCutClicked(Sender: TObject);
  +var
  +  edt: TfpgTextEdit;
  +begin
  +  edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]);
  +  edt.CutToClipboard;
  +end;
  +
  +procedure TMainForm.miEditCopyClicked(Sender: TObject);
  +var
  +  edt: TfpgTextEdit;
  +begin
  +  edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]);
  +  edt.CopyToClipboard;
  +end;
  +
  +procedure TMainForm.miEditPasteClicked(Sender: TObject);
  +var
  +  edt: TfpgTextEdit;
  +begin
  +  edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]);
  +  edt.PasteFromClipboard;
  +end;
  +
   procedure TMainForm.miFindClicked(Sender: TObject);
   var
     s: TfpgString;
  
positive.code:   begin
      Name := 'mnuEdit';
      SetPosition(476, 80, 172, 20);
      AddMenuItem('Cut', '', nil).Enabled := False;
      AddMenuItem('Copy', '', nil).Enabled := False;
      AddMenuItem('Paste', '', nil).Enabled := False;
      AddMenuItem('-', '', nil);
      AddMenuItem('Indent selection', rsKeyCtrl+'I', nil).Enabled := False;
      AddMenuItem('Unindent selection', rsKeyCtrl+'U', nil).Enabled := False;
  
negative.code:     procedure   btnOpenFileClicked(Sender: TObject);
      procedure   miFileSave(Sender: TObject);
      procedure   miFileSaveAs(Sender: TObject);
      procedure   miEditCutClicked(Sender: TObject);
      procedure   miEditCopyClicked(Sender: TObject);
      procedure   miEditPasteClicked(Sender: TObject);
      procedure   miFindClicked(Sender: TObject);
      procedure   miSearchProcedureList(Sender: TObject);
      procedure   miAboutFPGuiClicked(Sender: TObject);
  