paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 07:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed showing find results of find identifer references, when the same Identifier searched

Browse Source 
git-svn-id: trunk@14802 -
This commit is contained in:
vincents 2008-04-11 14:42:34 +00:00
parent 9ed9aa3295
commit a239a91f28
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/findrenameidentifier.pas
View File

@ -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);

4
ide/searchresultview.pp
View File

@ -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;