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

IDE: fix a crash when a search results tab is closed while another tab is active.

Browse Source 
git-svn-id: trunk@35328 -
This commit is contained in:
juha 2012-02-12 15:35:21 +00:00
parent a9dab89451
commit b4aa41e12e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/searchresultview.pp
View File

@ -474,7 +474,7 @@ var
CurrentTV: TLazSearchResultTV; CurrentTV: TLazSearchResultTV;
begin begin
CurrentTV := GetTreeView(ResultsNoteBook.PageIndex); CurrentTV := GetTreeView(ResultsNoteBook.PageIndex);
if Assigned(CurrentTV) then begin if Assigned(CurrentTV) and not (csDestroying in CurrentTV.ComponentState) then begin
SearchInListEdit.FilteredTreeview := CurrentTV; SearchInListEdit.FilteredTreeview := CurrentTV;
SearchInListEdit.Filter := CurrentTV.SearchInListPhrases; SearchInListEdit.Filter := CurrentTV.SearchInListPhrases;
end; end;