paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 06:09:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

DockedFormEditor: Fixed AV after revision 64547 #7e625598d0

Browse Source 
git-svn-id: trunk@64551 -
This commit is contained in:
michl 2021-02-12 13:29:34 +00:00
parent 5264d8bc1c
commit d0a8ca2502
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/dockedformeditor/source/dockedmainide.pas
View File

@ -576,10 +576,11 @@ begin
LSourceEditorWindow := SourceEditorWindows.SourceEditorWindow[LActiveSourceWindowInterface];
if LSourceEditorWindow = nil then Exit;
LPageCtrl.InitPage;
if not (LPageCtrl.PageIndex in [1, 2]) then
LSourceEditorWindow.ActiveDesignForm := nil
else begin
begin
LSourceEditorWindow.ActiveDesignForm := nil;
LPageCtrl.InitPage;
end else begin
// deactivate design tab in other source editor page control
for LSourceEditorWindow in SourceEditorWindows do
if LSourceEditorWindow.SourceEditorWindowInterface = LActiveSourceWindowInterface then
@ -593,6 +594,7 @@ begin
LSourceEditorWindow.ActiveDesignForm := LDesignForm;
// enable autosizing after creating a new form
DockedTabMaster.EnableAutoSizing(LDesignForm.Form);
LPageCtrl.InitPage;
LPageCtrl.DesignerSetFocus;
end;
end;