forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, AV on closequery, sheet was not freed if <> current doc

This commit is contained in:
Basile Burg 2015-03-22 10:38:44 +01:00
parent f8f5825989
commit e36e4c39a0
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_editor.pas
View File

@ -177,10 +177,12 @@ procedure TCEEditorWidget.docClosing(aDoc: TCESynMemo);
var var
sheet: TWinControl; sheet: TWinControl;
begin begin
if fDoc <> aDoc then exit; if aDoc = nil then
sheet := fDoc.Parent; exit;
fDoc.Parent := nil; sheet := aDoc.Parent;
fDoc := nil; aDoc.Parent := nil;
if aDoc = fDoc then
fDoc := nil;
if sheet <> nil then sheet.Free; if sheet <> nil then sheet.Free;
updateImperative; updateImperative;
end; end;