From d0d6fcc05301005d3a38b47b201f69f13e023881 Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Mon, 5 Apr 2021 16:06:00 +0000
Subject: [PATCH] DockedFormEditor: Fixed new created application doesn't show
 code tab after revision 64923 #90d5a28700

git-svn-id: trunk@64928 -
---
 .../dockedformeditor/source/dockedsourceeditorwindow.pas       | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/dockedformeditor/source/dockedsourceeditorwindow.pas b/components/dockedformeditor/source/dockedsourceeditorwindow.pas
index 978f998b1d..888e6079d7 100644
--- a/components/dockedformeditor/source/dockedsourceeditorwindow.pas
+++ b/components/dockedformeditor/source/dockedsourceeditorwindow.pas
@@ -177,11 +177,12 @@ begin
   // is not created, the only workaround I found is, to activate the new created
   // source editor in this window
   if not (Sender is TSourceEditorInterface) then Exit;
+  if SourceEditorManagerIntf.ActiveSourceWindow = nil then Exit;
   LSourceEditor := TSourceEditorInterface(Sender);
   {$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TSourceEditorWindow.UpdateEditorPageCaption [' + SourceEditorWindowCaption(LSourceEditor) + ']'); {$ENDIF}
   LSourceEditorWindow := SourceEditorWindow(LSourceEditor);
   if not Assigned(LSourceEditorWindow)
-  or (LSourceEditorWindow.ActiveEditor <> nil)
+  or (SourceEditorManagerIntf.ActiveSourceWindow = LSourceEditorWindow)
   or (SourceEditorWindows.LastActiveSourceEditorWindow = LSourceEditorWindow)
   then
     Exit;