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

Ide/Project; SourceEditor: Decouple relationship via EditorIndex. Fix, remove reference on close

Browse Source 
git-svn-id: trunk@24012 -
This commit is contained in:
martin 2010-03-15 14:41:12 +00:00
parent eef0d16e78
commit 32bf0d2d92
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/sourceeditor.pp
View File

@ -3024,6 +3024,8 @@ Begin
end;
Function TSourceEditor.Close: Boolean;
var
p: TUnitInfo;
Begin
Result := True;
If Assigned(FOnBeforeClose) then
@ -3037,8 +3039,9 @@ Begin
FEditor.Parent:=nil;
CodeBuffer := nil;
If Assigned(FOnAfterClose) then FOnAfterClose(Self);
FSourceNoteBook := nil;
UpdateProjectFile; // Set EditorIndex := -1
p :=Project1.UnitWithEditorComponent(Self);
if p <> nil then
p.EditorComponent := nil; // Set EditorIndex := -1
end;
procedure TSourceEditor.BeginUndoBlock;