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

IDE: don't replace old searches with the same term in Search Results View dialog, bug #19941. Patch by Flávio Etrusco with some fixes.

Browse Source 
git-svn-id: trunk@31941 -
This commit is contained in:
maxim 2011-08-10 23:59:52 +00:00
parent f2de67ee6b
commit 8568dbce1f
1 changed files with 22 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/searchresultview.pp
View File

@ -848,7 +848,6 @@ function TSearchResultsView.AddSearch(const ResultsName: string;
var
NewTreeView: TLazSearchResultTV;
NewPage: LongInt;
i: integer;
SearchObj: TLazSearch;
begin
Result:= nil;
@ -856,18 +855,6 @@ begin
with ResultsNoteBook do
begin
FWorkedSearchText:=BeautifyPageName(ResultsName);
i:= GetPageIndex(FWorkedSearchText);
if i>=0 then
begin
NewTreeView:= GetTreeView(i);
PageIndex:= i;
//Free backup objects and list since its a new search with the same TreeView
NewTreeView.FreeObjects(NewTreeView.BackUpStrings);
NewTreeView.BackUpStrings.Clear;
NewTreeView.Filtered := False;
end//if
else
begin
NewPage:= TCustomTabControl(ResultsNoteBook).Pages.Add(FWorkedSearchText);
PageIndex:= NewPage;
Page[PageIndex].OnKeyDown := @TreeViewKeyDown;
@ -892,7 +879,6 @@ begin
NewTreeView.Canvas.Brush.Color:= clWhite;
end;//with
end;//if
end;//else
SearchObj:=NewTreeView.SearchObject;
if SearchObj<>nil then begin
SearchObj.SearchString:= SearchText;