paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: source editor: freeing synedit after processing events

Browse Source 
git-svn-id: trunk@18561 -
This commit is contained in:
mattias 2009-02-04 15:51:00 +00:00
parent 1390b6e044
commit 343ae3b671
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourceeditor.pp
View File

@ -1068,10 +1068,10 @@ begin
if SourceEditorMarks<>nil then
SourceEditorMarks.DeleteAllForEditor(FEditor);
TSourceNotebook(FAOwner).FSourceEditorList.Remove(Self);
FreeAndNil(FEditor);
end else begin
FEditor:=nil;
// free the synedit control after processing the events
Application.ReleaseComponent(FEditor);
end;
FEditor:=nil;
//writeln('TSourceEditor.Destroy B ');
inherited Destroy;
//writeln('TSourceEditor.Destroy END ');