Очистка старых значений поиска

nexena · Dec 19, 2016 · 6861339 · 6861339
1 parent bde0e86
commit 6861339
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/software/main.pas b/software/main.pas
@@ -1696,6 +1696,8 @@ procedure TMainForm.MenuCopyToClipClick(Sender: TObject);
 
 procedure TMainForm.MenuFindChipClick(Sender: TObject);
 begin
+  ChipSearchForm.EditSearch.Text:= '';
+  ChipSearchForm.ListBoxChips.Items.Clear;
   ChipSearchForm.Show;
 end;
 
@@ -2397,6 +2399,7 @@ procedure TMainForm.ButtonReadIDClick(Sender: TObject);
       end;
 
       ChipSearchForm.ListBoxChips.Clear;
+      ChipSearchForm.EditSearch.Text:= '';
 
       FindChip.FindChip(XMLfile, '', IDstr);
       if ChipSearchForm.ListBoxChips.Items.Capacity = 0 then FindChip.FindChip(XMLfile, '', IDstr90H);