paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 09:29:10 +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 // is not created, the only workaround I found is, to activate the new created
// source editor in this window // source editor in this window
if not (Sender is TSourceEditorInterface) then Exit; if not (Sender is TSourceEditorInterface) then Exit;
if SourceEditorManagerIntf.ActiveSourceWindow = nil then Exit;
LSourceEditor := TSourceEditorInterface(Sender); LSourceEditor := TSourceEditorInterface(Sender);
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TSourceEditorWindow.UpdateEditorPageCaption [' + SourceEditorWindowCaption(LSourceEditor) + ']'); {$ENDIF} {$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TSourceEditorWindow.UpdateEditorPageCaption [' + SourceEditorWindowCaption(LSourceEditor) + ']'); {$ENDIF}
LSourceEditorWindow := SourceEditorWindow(LSourceEditor); LSourceEditorWindow := SourceEditorWindow(LSourceEditor);
if not Assigned(LSourceEditorWindow) if not Assigned(LSourceEditorWindow)
or (LSourceEditorWindow.ActiveEditor <> nil) or (SourceEditorManagerIntf.ActiveSourceWindow = LSourceEditorWindow)
or (SourceEditorWindows.LastActiveSourceEditorWindow = LSourceEditorWindow) or (SourceEditorWindows.LastActiveSourceEditorWindow = LSourceEditorWindow)
then then
Exit; Exit;