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

DockedFormEditor: Prevent AV when cloning a pascal unit to new created SourceEditorWindow

Browse Source 
git-svn-id: trunk@64819 -
This commit is contained in:
michl 2021-03-15 12:58:36 +00:00
parent aefd991f45
commit 4a439a8841
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -313,11 +313,13 @@ begin
or (LWindow.ActiveEditor.GetDesigner(True) <> nil)
then
LPageCtrl.RemoveDesignPages
else begin
LPageCtrl.CreateTabSheetDesigner;
if not (LPageCtrl.DesignForm.Form is TNonControlProxyDesignerForm) then
LPageCtrl.CreateTabSheetAnchors;
end;
else
if Assigned(LPageCtrl.DesignForm) then
begin
LPageCtrl.CreateTabSheetDesigner;
if not (LPageCtrl.DesignForm.Form is TNonControlProxyDesignerForm) then
LPageCtrl.CreateTabSheetAnchors;
end;
end;
end;