From a6b80981224dc0c927abc50d38c011b108de0026 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 5 Jun 2004 23:53:55 +0000
Subject: [PATCH] incremental find now stores find options

git-svn-id: trunk@5541 -
---
 ide/uniteditor.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/uniteditor.pp b/ide/uniteditor.pp
index 03e682be43..9e3214231c 100644
--- a/ide/uniteditor.pp
+++ b/ide/uniteditor.pp
@@ -522,9 +522,9 @@ type
     procedure FindNextClicked(Sender: TObject);
     procedure FindPreviousClicked(Sender: TObject);
     procedure ReplaceClicked(Sender: TObject);
-    procedure IncrementalFindClicked(Sender: TObject);
 
     // incremental find
+    procedure IncrementalFindClicked(Sender: TObject);
     procedure EndIncrementalFind;
     property IncrementalSearchStr: string
       read FIncrementalSearchStr write SetIncrementalSearchStr;
@@ -3286,6 +3286,8 @@ procedure TSourceNotebook.EndIncrementalFind;
 begin
   if not (snIncrementalFind in States) then exit;
   Exclude(States,snIncrementalFind);
+  FindReplaceDlg.FindText:=fIncrementalSearchStr;
+  FindReplaceDlg.Options:=[];
   UpdateStatusBar;
 end;