paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 20:36:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

DockedFormEditor: Fixed new created application doesn't show code tab after revision 64923 #90d5a28700

Browse Source 
git-svn-id: trunk@64928 -
This commit is contained in:
michl 2021-04-05 16:06:00 +00:00
parent 2e2c6107f2
commit d0d6fcc053
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/dockedformeditor/source/dockedsourceeditorwindow.pas
View File

@ -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;