anchor.diff:    begin
       Name := 'miFile';
       SetPosition(292, 96, 132, 20);
  -    AddMenuItem('Open...', 'Ctrl+O', @miFileOpenClicked);
  -    AddMenuItem('Open additional file...', 'Ctrl+Shift+O', @miFileOpenAdditionalFileClicked);
  -    AddMenuItem('Open Special...', 'Ctrl+L', @miFileOpenSpecialClicked);
  -    AddMenuItem('Save current Topic to IPF...', 'Ctrl+S', @miFileSaveTopicAsIPF);
  -    AddMenuItem('Close', 'Ctrl+W', @miFileCloseClicked);
  -    AddMenuitem('-', '', nil);
  +    AddMenuItem('Open...', rsKeyCtrl+'O', @miFileOpenClicked);
  +    AddMenuItem('Open additional file...', rsKeyCtrl+rsKeyShift+'O', @miFileOpenAdditionalFileClicked);
  +    AddMenuItem('Open Special...', rsKeyCtrl+'L', @miFileOpenSpecialClicked);
  +    AddMenuItem('Save current Topic to IPF...', rsKeyCtrl+'S', @miFileSaveTopicAsIPF);
  +    AddMenuItem('Close', rsKeyCtrl+'W', @miFileCloseClicked);
  +    AddSeparator;
       FFileOpenRecent := AddMenuItem('Open Recent...', '', nil);
       AddMenuitem('-', '', nil);
       AddMenuItem('Quit', 'Ctrl+Q', @miFileQuitClicked);
     end;
   
  +  miActions := TfpgPopupMenu.Create(self);
  +  with miActions do
  +  begin
  +    Name := 'miActions';
  +    SetPosition(282, 96, 132, 20);
  +    AddMenuItem('Contents', 'F5', @miActionsContentsClicked);
  +    AddMenuItem('Index', 'F6', @miActionsIndexClicked);
  +    AddMenuItem('Search', 'F7', @miActionsSearchClicked);
  +    AddMenuItem('Notes', 'F8', @miActionsNotesClicked);
  +    AddMenuItem('History', 'F9', @miActionsHistoryClicked);
  +    AddSeparator;
  +    AddMenuItem('Back', rsKeyCtrl+'Left', @miActionsBackClicked);
  +    AddMenuItem('Forward', rsKeyCtrl+'Right', @miActionsForwardClicked);
  +    AddMenuItem('Previous Topic', rsKeyCtrl+'Up', @miActionsPrevTopicClicked);
  +    AddMenuItem('Next Topic', rsKeyCtrl+'Down', @miActionsNextTopicClicked);
  +  end;
  +
     miSettings := TfpgPopupMenu.Create(self);
     with miSettings do
     begin
  
positive.code:     RichView: TRichTextView;
      MainMenu: TfpgMenuBar;
      miFile: TfpgPopupMenu;
      miSettings: TfpgPopupMenu;
      miBookmarks: TfpgPopupMenu;
      miView: TfpgPopupMenu;
  
negative.code:   end
  end;
  
  procedure TMainForm.miActionsBackClicked(Sender: TObject);
  begin
    btnBack.Click;
  end;
  
  procedure TMainForm.miActionsForwardClicked(Sender: TObject);
  begin
    btnFwd.Click;
  end;
  
  procedure TMainForm.miActionsPrevTopicClicked(Sender: TObject);
  begin
    btnPrev.Click;
  end;
  
  procedure TMainForm.miActionsNextTopicClicked(Sender: TObject);
  begin
    btnNext.Click;
  end;
  
  procedure TMainForm.Splitter1DoubleClicked(Sender: TObject;
    AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
  begin
  