anchor.diff:    FMenuitemRepGlobal.Shortcut:= TextToShortcut(UiOps.HotkeyReplaceGlobal);
   end;
   
  +procedure TfmFind.MenuitemTokensClick(Sender: TObject);
  +begin
  +  bTokens.ItemIndex:= (Sender as TMenuItem).Tag;
  +  bTokens.Invalidate;
  +end;
  +
   procedure TfmFind.bMoreClick(Sender: TObject);
   var
     P: TPoint;
  
positive.code:     FPopupMore.Items.Add(FMenuitemOptWrapped);
      FPopupMore.Items.Add(FMenuitemOptInSel);
      FPopupMore.Items.Add(FMenuitemOptMulti);
      FPopupMore.Items.Add(FMenuitemOptHiAll);
      FPopupMore.Items.Add(Sep1);
      FPopupMore.Items.Add(FMenuitemFindFirst);
  
negative.code:   FMenuitemOptMulti.Caption:= SCaptionOptMulti;
    FMenuitemOptMulti.Checked:= chkMulLine.Checked;
    FMenuitemOptMulti.ShortCut:= TextToShortCut(UiOps.HotkeyToggleMultiline);
    FMenuitemOptTokens.Caption:= SCaptionOptTokens;
    FMenuitemOptTokens.ShortCut:= TextToShortCut(UiOps.HotkeyToggleTokens);
    for kind in TATFinderTokensAllowed do
    begin
      FMenuitemOptTokensSub[kind].Caption:= bTokens.Items[Ord(kind)];
      FMenuitemOptTokensSub[kind].Checked:= bTokens.ItemIndex=Ord(kind);
    end;
    FMenuitemOptHiAll.Caption:= SCaptionOptHiAll;
    FMenuitemOptHiAll.Checked:= chkHiAll.Checked;
    FMenuitemOptHiAll.ShortCut:= TextToShortCut(UiOps.HotkeyToggleHiAll);
  