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

IDE: search result buttons: fixed update, issue #38896

Browse Source 
git-svn-id: trunk@65117 -
This commit is contained in:
mattias 2021-05-17 17:44:22 +00:00
parent f9d0cabc30
commit f37ae1b3d2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/searchresultview.pp
View File

@ -935,9 +935,9 @@ begin
if FClosingTabs then
exit;
if FAsyncUpdateCloseButtons=svcbNone then exit;
aEnable:=FAsyncUpdateCloseButtons=svcbEnable;
FAsyncUpdateCloseButtons:=svcbNone;
aEnable:=FAsyncUpdateCloseButtons=svcbEnable;
if aEnable and (ResultsNoteBook.PageCount>0) then begin
lPageList := GetPagesOnActiveLine;
if Assigned(lPageList) and (lPageList.Count>0) then
@ -1277,7 +1277,7 @@ begin
begin
if ThePage.Components[i] is TLazSearchResultTV then
begin
result:= TLazSearchResultTV(ThePage.Components[i]);
Result:= TLazSearchResultTV(ThePage.Components[i]);
break;
end;
end;