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

fixed invalid typecast

Browse Source 
git-svn-id: trunk@3732 -
This commit is contained in:
mattias 2002-12-24 13:05:08 +00:00
parent 00e65ab044
commit eb74c0b02d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/syneditautocomplete.pp
View File

@ -435,7 +435,8 @@ var
i: integer;
begin
inherited Notification(AComponent, Operation);
if Operation = opRemove then begin
if (Operation = opRemove)
{$IFDEF SYN_LAZARUS}and (AComponent is TCustomSynEdit){$ENDIF} then begin
i := fEditors.IndexOf(AComponent);
if i > -1 then
RemoveEditor(AComponent as TCustomSynEdit);