ADD: Clear selection when cannot find text (issue 0001714)

This commit is contained in:
Alexander Koblov 2017-05-05 19:57:57 +00:00
commit 09a518ee7b

View file

@ -2090,6 +2090,9 @@ begin
else
begin
msgOK(Format(rsViewNotFound, ['"' + sSearchTextU + '"']));
if (ViewerControl.Selection <> sSearchTextU) then begin
ViewerControl.SelectText(0, 0);
end;
FLastSearchPos := -1;
end;
end;