paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 09:56:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed crash on find identifier references

Browse Source 
git-svn-id: trunk@36549 -
This commit is contained in:
mattias 2012-04-03 18:39:47 +00:00
parent c4bea1cbab
commit 0f29e8588f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/findrenameidentifier.pas
View File

@ -289,12 +289,14 @@ var
SearchPageIndex: TTabSheet; SearchPageIndex: TTabSheet;
begin begin
Result:=mrCancel; Result:=mrCancel;
LazarusIDE.DoShowSearchResultsView(false);
SearchPageIndex:=nil; SearchPageIndex:=nil;
try try
// show result // show result
CodeToolBoss.GetIdentifierAt(DeclarationCode, CodeToolBoss.GetIdentifierAt(DeclarationCode,
DeclarationCaretXY.X,DeclarationCaretXY.Y,Identifier); DeclarationCaretXY.X,DeclarationCaretXY.Y,Identifier);
// create a search result page // create a search result page
debugln(['ShowIdentifierReferences ',DbgSName(SearchResultsView)]);
SearchPageIndex:=SearchResultsView.AddSearch( SearchPageIndex:=SearchResultsView.AddSearch(
'References of '+Identifier, 'References of '+Identifier,
Identifier, Identifier,