paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:19:17 +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 // list results
SearchResultsView.BeginUpdate(SearchPageIndex); SearchResultsView.BeginUpdate(SearchPageIndex);
AddReferencesToResultView(DeclarationCode,DeclarationCaretXY, AddReferencesToResultView(DeclarationCode,DeclarationCaretXY,
DeclarationCode,TreeOfPCodeXYPosition,false,SearchPageIndex); DeclarationCode,TreeOfPCodeXYPosition,true,SearchPageIndex);
OldSearchPageIndex:=SearchPageIndex; OldSearchPageIndex:=SearchPageIndex;
SearchPageIndex:=-1; SearchPageIndex:=-1;
SearchResultsView.EndUpdate(OldSearchPageIndex); SearchResultsView.EndUpdate(OldSearchPageIndex);

4
ide/searchresultview.pp
View File

@ -152,6 +152,8 @@ type
procedure bnFilterClick (Sender: TObject ); procedure bnFilterClick (Sender: TObject );
private private
FMaxItems: integer; FMaxItems: integer;
FOnSelectionChanged: TNotifyEvent; fListBoxFont: TFont;
FMouseOverIndex: integer;
function BeautifyPageName(const APageName: string): string; function BeautifyPageName(const APageName: string): string;
function PageExists(const APageName: string): boolean; function PageExists(const APageName: string): boolean;
function GetPageIndex(const APageName: string): integer; function GetPageIndex(const APageName: string): integer;
@ -160,8 +162,6 @@ type
procedure ListBoxDoubleClicked(Sender: TObject); procedure ListBoxDoubleClicked(Sender: TObject);
procedure SetItems(Index: Integer; Value: TStrings); procedure SetItems(Index: Integer; Value: TStrings);
function GetItems(Index: integer): TStrings; function GetItems(Index: integer): TStrings;
fOnSelectionChanged: TNotifyEvent; fListBoxFont: TFont;
fMouseOverIndex: integer;
procedure SetMaxItems(const AValue: integer); procedure SetMaxItems(const AValue: integer);
public public
function AddSearch(const ResultsName: string; function AddSearch(const ResultsName: string;