# HG changeset patch
# User Oleg Khlystov <pktfag@gmail.com>
# Date 1345964682 -14400
# Node ID a7c47c58b39ad7265e66f1b1d3e25350cf8ab391
# Parent  4e2972c576048ab6857c65fb6f962485f8eb8f6a
FIX: error occurs when delete last element in search templates

diff -r 4e2972c57604 -r a7c47c58b39a src/fFindDlg.pas
--- a/src/fFindDlg.pas	Sun Aug 26 10:31:06 2012 +0400
+++ b/src/fFindDlg.pas	Sun Aug 26 11:04:42 2012 +0400
@@ -1326,8 +1326,12 @@
 begin
   OldIndex := lbSearchTemplates.ItemIndex;
   gSearchTemplateList.LoadToStringList(lbSearchTemplates.Items);
-  if OldIndex <> -1 then
-    lbSearchTemplates.ItemIndex := OldIndex;
+  if lbSearchTemplates.Count > 0 then begin
+    if OldIndex = 0 then
+      lbSearchTemplates.ItemIndex := OldIndex
+    else
+      lbSearchTemplates.ItemIndex := OldIndex - 1;
+  end;
 end;
 
 procedure TfrmFindDlg.ZVDateFromChange(Sender: TObject);