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