Fixed weird close bug

This commit is contained in:
Christian Hammacher
2006-04-29 10:20:41 +00:00
parent d2b57d29fb
commit ddda9c9118
8 changed files with 16 additions and 17 deletions

View File

@ -125,8 +125,10 @@ end;
procedure TCodeExplorerUpdater.GetCode;
begin
eCode.Assign(frmMain.sciEditor.Lines);
eActive := ActiveDoc.Index;
if Assigned(ActiveDoc) then begin
eCode.Assign(frmMain.sciEditor.Lines);
eActive := ActiveDoc.Index;
end;
end;
function GetNode(eText: string): TTreeNode;