From 32b73ebd75c2efc703e9d6e51c0f029348c73d14 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 17 Mar 2010 20:07:20 +0000
Subject: [PATCH] SourceEditor, IDE: don't focus editor, if hint is shown.
 Issue #16025, #16019

git-svn-id: trunk@24071 -
---
 ide/main.pp         | 3 ++-
 ide/sourceeditor.pp | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index a8db542959..76833f958a 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -14353,7 +14353,8 @@ begin
   //DebugLn(['TMainIDE.OnSrcNotebookShowHintForSource START']);
   if (SrcEdit=nil) then exit;
 
-  SourceNotebook.SetActiveSE(SrcEdit);
+  if SourceEditorManager.ActiveEditor <> SrcEdit then
+    SourceEditorManager.ActiveEditor := SrcEdit;
 
   if not BeginCodeTool(ActiveSrcEdit, ActiveUnitInfo,
     [{ctfActivateAbortMode}]) then exit;
diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 4cc8c5347e..584792c0e7 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -7935,7 +7935,7 @@ begin
   else
     Window := SourceWindowWithEditor(AValue);
   if Window = nil then exit;
-  FActiveWindow := TSourceNotebook(Window);
+  ActiveSourceWindow := TSourceNotebook(Window);
   Window.ActiveEditor := AValue;
 end;