From 6e508e01843d113e6009c05f90d0a48a59532cce Mon Sep 17 00:00:00 2001
From: lazarus-bart <lazarus-bart@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 29 Feb 2012 11:28:47 +0000
Subject: [PATCH] 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 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/applications/lazedit/main.pp b/applications/lazedit/main.pp
index 15bbf7ce4..f6a6bd656 100644
--- a/applications/lazedit/main.pp
+++ b/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;