From 536ffd588f29842e38726204d03877f2ef6c60b0 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 11 May 2018 19:57:54 +0000
Subject: [PATCH] IDE: search results view: fixed docked

git-svn-id: trunk@57901 -
---
 ide/searchresultview.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ide/searchresultview.pp b/ide/searchresultview.pp
index f14e485e86..be86406c66 100644
--- a/ide/searchresultview.pp
+++ b/ide/searchresultview.pp
@@ -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);