From 4652c75ba90a1ea97de44521621e731c9802bdc6 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Thu, 29 Mar 2007 13:26:37 +0000
Subject: [PATCH] synedit: fixed return value of SearchReplace (bug #8470)

git-svn-id: trunk@10827 -
---
 components/synedit/synedit.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index de47a50670..ea582f13df 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -9245,6 +9245,7 @@ begin
           and (ptFoundStart.X >= ptStart.X) and (ptFoundEnd.X <= ptEnd.X)) then
       begin
         // pattern found
+        Inc(Result);
         // Select the text, so the user can see it in the OnReplaceText event
         // handler or as the search result.
         BlockBegin := ptFoundStart;