anchor.diff:    begin
       Name := 'mnuEdit';
       SetPosition(476, 24, 172, 20);
  -    AddMenuItem('Cut', '', nil);
  -    AddMenuItem('Copy', '', nil);
  -    AddMenuItem('Paste', '', nil);
  +    AddMenuItem('Cut', '', nil).Enabled := False;
  +    AddMenuItem('Copy', '', nil).Enabled := False;
  +    AddMenuItem('Paste', '', nil).Enabled := False;
     end;
   
     mnuSearch := TfpgPopupMenu.Create(self);
  
positive.code:   begin
      Name := 'mnuFile';
      SetPosition(476, 56, 172, 20);
      AddMenuItem('New...', '', nil);
      AddMenuItem('Open...', '', nil);
      AddMenuItem('Open Recent', '', nil);
      AddMenuItem('Save...', '', nil);
      AddMenuItem('Save As...', '', @miFileSaveAs);
      AddMenuItem('-', '', nil);
      AddMenuItem('Quit', '', @btnQuitClicked);
  
negative.code:   begin
      Name := 'mnuSearch';
      SetPosition(476, 98, 172, 20);
      AddMenuItem('Find...', '', nil).Enabled := False;
      AddMenuItem('Find in Files...', '', nil).Enabled := False;
      AddMenuItem('Procedure List...', '', nil).Enabled := False;
    end;
  
    mnuView := TfpgPopupMenu.Create(self);
  