anchor.diff:    begin
       Name := 'mnuEdit';
       SetPosition(476, 80, 172, 20);
  -    AddMenuItem('Cut', '', nil).Enabled := False;
  -    AddMenuItem('Copy', '', nil).Enabled := False;
  -    AddMenuItem('Paste', '', nil).Enabled := False;
  +    AddMenuItem('Cut', rsKeyCtrl+'X', @miEditCutClicked);
  +    AddMenuItem('Copy', rsKeyCtrl+'C', @miEditCopyClicked);
  +    AddMenuItem('Paste', rsKeyCtrl+'V', @miEditPasteClicked);
       AddMenuItem('-', '', nil);
       AddMenuItem('Indent selection', rsKeyCtrl+'I', nil).Enabled := False;
       AddMenuItem('Unindent selection', rsKeyCtrl+'U', nil).Enabled := False;
  
positive.code:     TfpgTextEdit(pcEditor.ActivePage.Components[0]).SaveToFile(s);
  end;
  
  procedure TMainForm.miFindClicked(Sender: TObject);
  var
    s: TfpgString;
  
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);
  