paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Sparta form designer: Try to prevent occational AV in handlers when closing IDE. Handlers should be unregistered somewhere!

Browse Source 
git-svn-id: trunk@55618 -
This commit is contained in:
juha 2017-07-31 14:01:02 +00:00
parent ead7577fef
commit e794422659
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/sparta/dockedformeditor/source/sparta_mainide.pas
View File

@ -1306,6 +1306,8 @@ var
LPageCtrl: TModulePageControl; LPageCtrl: TModulePageControl;
begin begin
Result := nil; Result := nil;
if (FormEditingHook = nil) or (GlobalDesignHook = nil) then
Exit;
LForm := FormEditingHook.GetDesignerForm(GlobalDesignHook.LookupRoot); LForm := FormEditingHook.GetDesignerForm(GlobalDesignHook.LookupRoot);
LFormData := FindDesignFormData(LForm); LFormData := FindDesignFormData(LForm);
if LFormData=nil then Exit; if LFormData=nil then Exit;
@ -1617,6 +1619,8 @@ var
i: Integer; i: Integer;
LSourceWindow: TSourceEditorWindowInterface; LSourceWindow: TSourceEditorWindowInterface;
begin begin
if FormEditingHook = nil then
Exit;
LForm := FindDesignFormData(FormEditingHook.GetCurrentDesigner); LForm := FindDesignFormData(FormEditingHook.GetCurrentDesigner);
if LForm = nil then if LForm = nil then
Exit; Exit;