From a239a91f28c2b9172f4b7a77c77805fd0480aecd Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 11 Apr 2008 14:42:34 +0000
Subject: [PATCH] IDE: fixed showing find results of find identifer references,
 when the same Identifier searched

git-svn-id: trunk@14802 -
---
 ide/findrenameidentifier.pas | 2 +-
 ide/searchresultview.pp      | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ide/findrenameidentifier.pas b/ide/findrenameidentifier.pas
index 4ce360fe4a..cfa811a23e 100644
--- a/ide/findrenameidentifier.pas
+++ b/ide/findrenameidentifier.pas
@@ -207,7 +207,7 @@ begin
     // list results
     SearchResultsView.BeginUpdate(SearchPageIndex);
     AddReferencesToResultView(DeclarationCode,DeclarationCaretXY,
-                   DeclarationCode,TreeOfPCodeXYPosition,false,SearchPageIndex);
+                   DeclarationCode,TreeOfPCodeXYPosition,true,SearchPageIndex);
     OldSearchPageIndex:=SearchPageIndex;
     SearchPageIndex:=-1;
     SearchResultsView.EndUpdate(OldSearchPageIndex);
diff --git a/ide/searchresultview.pp b/ide/searchresultview.pp
index 6ae337daf0..971e6d09c3 100644
--- a/ide/searchresultview.pp
+++ b/ide/searchresultview.pp
@@ -152,6 +152,8 @@ type
     procedure bnFilterClick (Sender: TObject );
   private
     FMaxItems: integer;
+    FOnSelectionChanged: TNotifyEvent; fListBoxFont: TFont;
+    FMouseOverIndex: integer;
     function BeautifyPageName(const APageName: string): string;
     function PageExists(const APageName: string): boolean;
     function GetPageIndex(const APageName: string): integer;
@@ -160,8 +162,6 @@ type
     procedure ListBoxDoubleClicked(Sender: TObject);
     procedure SetItems(Index: Integer; Value: TStrings);
     function GetItems(Index: integer): TStrings;
-                      fOnSelectionChanged: TNotifyEvent; fListBoxFont: TFont;
-                      fMouseOverIndex: integer;
     procedure SetMaxItems(const AValue: integer);
   public
     function AddSearch(const ResultsName: string;