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

IDE: search results view: fixed docked

Browse Source 
git-svn-id: trunk@57901 -
This commit is contained in:
mattias 2018-05-11 19:57:54 +00:00
parent 24a1327b6a
commit 536ffd588f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/searchresultview.pp
View File

@ -162,7 +162,7 @@ type
procedure mniCopySelectedClick(Sender: TObject);
procedure mniExpandAllClick(Sender: TObject);
procedure mniCollapseAllClick(Sender: TObject);
procedure ResultsNoteBookChanging(Sender: TObject; var AllowChange: Boolean);
procedure ResultsNoteBookChanging(Sender: TObject; var {%H-}AllowChange: Boolean);
procedure ResultsNoteBookMouseDown(Sender: TObject; Button: TMouseButton;
{%H-}Shift: TShiftState; X, Y: Integer);
procedure TreeViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -629,10 +629,10 @@ begin
end;
UpdateToolbar;
if FFocusTreeViewInEndUpdate and Assigned(CurrentTV) then
ActiveControl := CurrentTV
GetParentForm(Self).ActiveControl := CurrentTV
else
if SearchInListEdit.CanFocus then
ActiveControl := SearchInListEdit;
GetParentForm(Self).ActiveControl := SearchInListEdit;
end;
procedure TSearchResultsView.Parse_Search_Phrases(var slPhrases: TStrings);