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

improved freeing TSynCompletion from Burkhard Carstens

Browse Source 
git-svn-id: trunk@9425 -
This commit is contained in:
mattias 2006-06-12 19:22:35 +00:00
parent 3e00d7d57f
commit a7f0807084
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/synedit/syncompletion.pas
View File

@ -1324,8 +1324,9 @@ procedure TSynCompletion.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) and (fEditors.IndexOf(AComponent) > -1) then
RemoveEditor(AComponent as TCustomSynEdit);
if (Operation = opRemove) and (fEditors <> nil) then
if (fEditors.IndexOf(AComponent) > -1) then
RemoveEditor(AComponent as TCustomSynEdit);
end;
constructor TSynCompletion.Create(AOwner: TComponent);
@ -1436,8 +1437,8 @@ begin
Form := nil;
while fEditors.Count <> 0 do
RemoveEditor(TCustomSynEdit(fEditors.last));
fEditors.Free;
fEditstuffs.free;
FreeAndNil(fEditors);
FreeAndNil(fEditstuffs);
inherited;
end;
@ -1545,9 +1546,9 @@ begin
{$ELSE}
RemoveEditor(feditors.last);
{$ENDIF}
fEditors.free;
fEditstuffs.free;
fAutoCompleteList.free;
FreeAndNil(fEditors);
FreeAndNil(fEditstuffs);
FreeAndNil(fAutoCompleteList);
inherited;
end;
@ -1676,8 +1677,9 @@ end;
procedure TSynAutoComplete.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) and (fEditors.indexOf(AComponent) <> -1) then
RemoveEditor(AComponent as TCustomSynEdit);
if (Operation = opRemove) and (fEditors <> nil) then
if fEditors.indexOf(AComponent) <> -1 then
RemoveEditor(AComponent as TCustomSynEdit);
end;
function TSynAutoComplete.RemoveEditor(aEditor: TCustomSynEdit): boolean;