ADD: Editor - FindWordAtCursor option

src/feditsearch.pas

@@ -212,7 +212,8 @@ begin
     if AEditor.SelAvail and (AEditor.BlockBegin.Y = AEditor.BlockEnd.Y) then
       Options.SearchText := AEditor.SelText
     else begin
-      Options.SearchText := AEditor.GetWordAtRowCol(AEditor.CaretXY);
+      if gEditorFindWordAtCursor then
+        Options.SearchText := AEditor.GetWordAtRowCol(AEditor.CaretXY);
     end;
 
     cbSearchText.Items.Text := glsSearchHistory.Text;

src/uglobs.pas

@@ -646,6 +646,7 @@ var
   gEditorSynEditTabWidth,
   gEditorSynEditRightEdge,
   gEditorSynEditBlockIndent: Integer;
+  gEditorFindWordAtCursor: Boolean;
 
   { Differ }
   gDifferIgnoreCase,
@@ -2069,6 +2070,7 @@ begin
   gEditorSynEditTabWidth := 8;
   gEditorSynEditRightEdge := 80;
   gEditorSynEditBlockIndent := 2;
+  gEditorFindWordAtCursor := True;
 
   { Differ }
   gDifferIgnoreCase := False;
@@ -3175,6 +3177,7 @@ begin
       gEditorSynEditTabWidth := GetValue(Node, 'SynEditTabWidth', gEditorSynEditTabWidth);
       gEditorSynEditRightEdge := GetValue(Node, 'SynEditRightEdge', gEditorSynEditRightEdge);
       gEditorSynEditBlockIndent := GetValue(Node, 'SynEditBlockIndent', gEditorSynEditBlockIndent);
+      gEditorFindWordAtCursor := GetValue(Node, 'FindWordAtCursor', gEditorFindWordAtCursor);
     end;
 
     { Differ }
@@ -3800,6 +3803,7 @@ begin
     SetValue(Node, 'SynEditTabWidth', gEditorSynEditTabWidth);
     SetValue(Node, 'SynEditRightEdge', gEditorSynEditRightEdge);
     SetValue(Node, 'SynEditBlockIndent', gEditorSynEditBlockIndent);
+    SetValue(Node, 'FindWordAtCursor', gEditorFindWordAtCursor);
 
     { Differ }
     Node := FindNode(Root, 'Differ',True);