anchor.diff:    begin
       Name := 'miBookmarks';
       SetPosition(292, 144, 132, 20);
  -    AddMenuItem('Add', '', @btnBookmarkClick);
  -    AddMenuItem('Edit...', '', @miOpenBookmarksMenuClicked);
  +    AddMenuItem('Add', rsKeyCtrl+'B', @btnBookmarkClick);
  +    AddMenuItem('Edit...', rsKeyCtrl+'D', @miOpenBookmarksMenuClicked);
  +    AddSeparator;
  +    AddMenuItem('Add note at cursor position', rsKeyCtrl+'M', @btnNotesAddClick);
     end;
   
     miView := TfpgPopupMenu.Create(self);
  
positive.code:     SetPosition(292, 216, 132, 20);
      AddMenuItem('Expand All', '', @miViewExpandAllClicked);
      AddMenuItem('Collapse All', '', @miViewCollapseAllClicked);
      AddMenuItem('-', '', nil);
      AddMenuItem('Topic Properties', '', @miTopicPropertiesClicked);
    end;
  
  
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
  