浏览代码

FIX: Clear search template description after deleting all templates (fixes #2437)

Alexander Koblov 1 月之前
父节点
当前提交
e459a57623
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      src/fFindDlg.pas

+ 4 - 1
src/fFindDlg.pas

@@ -952,7 +952,10 @@ begin
   if OldIndex < lbSearchTemplates.Count then
     lbSearchTemplates.ItemIndex := OldIndex
   else if lbSearchTemplates.Count > 0 then
-    lbSearchTemplates.ItemIndex := lbSearchTemplates.Count - 1;
+    lbSearchTemplates.ItemIndex := lbSearchTemplates.Count - 1
+  else begin
+    lblSearchContents.Caption := EmptyStr;
+  end;
 end;
 
 { TfrmFindDlg.btnAttrsHelpClick }