anchor.diff:    Sep3: TMenuItem;
     kind: TATFinderTokensAllowed;
   begin
  -  SCaptionOptRegex:= 'Regular expression';
  -  SCaptionOptRegexSubst:= 'RegEx substitution for ''Replace with''';
  -  SCaptionOptCase:= 'Case sensitive';
  -  SCaptionOptWords:= 'Whole words';
  -  SCaptionOptWrapped:= 'Wrapped search';
  -  SCaptionOptInSel:= 'Search in selection';
  -  SCaptionOptMulti:= 'Multi-line inputs';
  -  SCaptionOptTokens:= 'Allowed syntax elements';
  -  SCaptionOptHiAll:= 'Highlight all matches';
     SCaptionFindFirst:= 'Find first';
     SCaptionFindPrev:= 'Find previous';
     SCaptionFindNext:= 'Find next';
  
positive.code:     FPopupMore.Items.Add(FMenuitemRepGlobal);
    end;
  
    FMenuitemOptRegex.Caption:= SCaptionOptRegex;
    FMenuitemOptRegex.Checked:= chkRegex.Checked;
    FMenuitemOptRegex.ShortCut:= TextToShortCut(UiOps.HotkeyToggleRegex);
    FMenuitemOptCase.Caption:= SCaptionOptCase;
    FMenuitemOptCase.Checked:= chkCase.Checked;
    FMenuitemOptCase.ShortCut:= TextToShortCut(UiOps.HotkeyToggleCaseSens);
    FMenuitemOptWords.Caption:= SCaptionOptWords;
    FMenuitemOptWords.Checked:= chkWords.Checked;
    FMenuitemOptWords.ShortCut:= TextToShortCut(UiOps.HotkeyToggleWords);
    FMenuitemOptWrapped.Caption:= SCaptionOptWrapped;
    FMenuitemOptWrapped.Checked:= chkWrap.Checked;
    FMenuitemOptWrapped.ShortCut:= TextToShortCut(UiOps.HotkeyToggleWrapped);
    FMenuitemOptInSel.Caption:= SCaptionOptInSel;
    FMenuitemOptInSel.Checked:= chkInSel.Checked;
    FMenuitemOptInSel.ShortCut:= TextToShortCut(UiOps.HotkeyToggleInSelect);
    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);
  
    FMenuitemOptRegexSubst.Caption:= SCaptionOptRegexSubst;
    FMenuitemOptRegexSubst.Checked:= chkRegexSubst.Checked;
    FMenuitemOptRegexSubst.Enabled:= IsReplace and chkRegex.Checked;
  
  
negative.code:   begin
      ini:= TIniFile.Create(fn);
      try
        SCaptionFindFirst:= ini.ReadString(section, 'h_f1', SCaptionFindFirst);
        SCaptionFindPrev:= ini.ReadString(section, 'h_fp', SCaptionFindPrev);
        SCaptionFindNext:= ini.ReadString(section, 'h_fn', SCaptionFindNext);
  