paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 21:19:18 +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 mniCopySelectedClick(Sender: TObject);
procedure mniExpandAllClick(Sender: TObject); procedure mniExpandAllClick(Sender: TObject);
procedure mniCollapseAllClick(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; procedure ResultsNoteBookMouseDown(Sender: TObject; Button: TMouseButton;
{%H-}Shift: TShiftState; X, Y: Integer); {%H-}Shift: TShiftState; X, Y: Integer);
procedure TreeViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TreeViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -629,10 +629,10 @@ begin
end; end;
UpdateToolbar; UpdateToolbar;
if FFocusTreeViewInEndUpdate and Assigned(CurrentTV) then if FFocusTreeViewInEndUpdate and Assigned(CurrentTV) then
ActiveControl := CurrentTV GetParentForm(Self).ActiveControl := CurrentTV
else else
if SearchInListEdit.CanFocus then if SearchInListEdit.CanFocus then
ActiveControl := SearchInListEdit; GetParentForm(Self).ActiveControl := SearchInListEdit;
end; end;
procedure TSearchResultsView.Parse_Search_Phrases(var slPhrases: TStrings); procedure TSearchResultsView.Parse_Search_Phrases(var slPhrases: TStrings);