ADD: Feature [0002653] "Selected text only" enable if text highlighted (#148)

src/feditor.pas

@@ -833,6 +833,9 @@ begin
     SearchCaseSensitive := bSearchCaseSensitive;
     SearchFromCursor := bSearchFromCaret;
     SearchInSelectionOnly := bSearchSelectionOnly;
+    if Editor.SelAvail and not (Editor.BlockBegin.Y = Editor.BlockEnd.Y)
+    then
+      SearchInSelectionOnly := True;
     SearchRegExp := bSearchRegExp;
     // start with last search text
     SearchText := sSearchText;