Use selected text in editor as FindDialog.FindText

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2325 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/lazedit/main.pp

@@ -2300,6 +2300,7 @@ begin
   Ed := NoteBook.CurrentEditor;
   if Assigned(Ed) then
   begin
+    if Ed.SelAvail and (Ed.BlockBegin.Y = Ed.BlockEnd.Y) then FindDialog.FindText := Ed.SelText;
     FindDialog.Execute;
   end;
 end;