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

IDE: SourceEdit: fixed word (word from text, not identifier) completion

Browse Source 
git-svn-id: trunk@40394 -
This commit is contained in:
martin 2013-02-24 18:31:05 +00:00
parent a19cf9e5c1
commit 389ce68238
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

@ -5443,9 +5443,6 @@ begin
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.Destroy'){$ENDIF};
FProcessingCommand:=false;
// aWordCompletion is released in InternalFinal
aWordCompletion.OnGetSource := nil;
for i:=FSourceEditorList.Count-1 downto 0 do
Editors[i].Free;
FSourceEditorList.Free;
@ -9945,6 +9942,9 @@ begin
SourceEditorMarks.OnGetFilename := nil;
SourceEditorMarks.OnAction := nil;
Application.RemoveAllHandlersOfObject(Self);
// aWordCompletion is released in InternalFinal
aWordCompletion.OnGetSource := nil;
inherited Destroy;
end;