summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2011-07-28 19:15:21 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2011-07-28 19:15:21 +0200
commit916a1e9e2e1e110b21f51488c5c8de61f5df2938 (patch)
tree873b9a14d501be8613c8e8a934366798390bdb06
parent082b8e37bdc2ab1983fa9cd96b9242bad66e3a9f (diff)
downloadfpGUI-916a1e9e2e1e110b21f51488c5c8de61f5df2938.tar.xz
docview: fix status message when no search matches are found.
It incorrectly showed "1 match found" due to the message we added to the search result listbox.
-rw-r--r--docview/src/frm_main.pas5
1 files changed, 3 insertions, 2 deletions
diff --git a/docview/src/frm_main.pas b/docview/src/frm_main.pas
index 77bc411f..20e92411 100644
--- a/docview/src/frm_main.pas
+++ b/docview/src/frm_main.pas
@@ -1265,14 +1265,15 @@ begin
if lbSearchResults.Items.Count > 0 then
begin
lbSearchResults.FocusItem := 0;
+ SetStatus( Format(rsDVSearchFoundMsg, [lbSearchResults.Items.Count])
+ + StrInDoubleQuotes(SearchText));
end
else
begin
lbSearchResults.Items.Add( Format(rsDVNoMatchesFound, [SearchText]));
// RefreshWindows( Windows ); // update to remove old highlights
+ SetStatus('');
end;
- SetStatus( Format(rsDVSearchFoundMsg, [lbSearchResults.Items.Count])
- + StrInDoubleQuotes(SearchText));
ClearWaitCursor;
DisplaySelectedSearchResultTopic;