tvplanit: Fix NavBar-ImgList error at program end in Linux.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4885 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-01 20:03:13 +00:00
parent 1cec3310db
commit 906c25af77

View File

@ -1063,8 +1063,10 @@ end;
destructor TVpCustomNavBar.Destroy; destructor TVpCustomNavBar.Destroy;
begin begin
FImages.OnChange := nil; {$IFDEF DELPHI} // not sure if this is correct. In Lazarus, at least, next line causes an error in Linux.
// Images := nil; {unregister any image list notification} Images := nil; {unregister any image list notification}
{$ENDIF}
nabChanging := True; nabChanging := True;
nabEdit.Free; nabEdit.Free;