From 45029888731741c0243de4e1ae0cb3918b30112c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 10 Mar 2015 15:09:39 +0000
Subject: [PATCH] IDE: checked compiler warnings, clean up

git-svn-id: trunk@48223 -
---
 ide/sourcefilemanager.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ide/sourcefilemanager.pas b/ide/sourcefilemanager.pas
index afe36cf912..4635859847 100644
--- a/ide/sourcefilemanager.pas
+++ b/ide/sourcefilemanager.pas
@@ -657,7 +657,12 @@ begin
       break;
   end;
   if Result = nil then // should never happen
-    Result := AnUnitInfo.OpenEditorInfo[0];
+    Result := AnUnitInfo.OpenEditorInfo[0]
+  else begin
+    if (WantedTopLine>0)
+    and (AnUnitInfo.OpenEditorInfo[j].EditorComponent<>nil) then
+      AnUnitInfo.OpenEditorInfo[j].EditorComponent.TopLine:=WantedTopLine;
+  end;
   // ToDo: WantedTopLine
 end;