diff --git a/src/u_miniexplorer.pas b/src/u_miniexplorer.pas index fabe5172..0ca19cd4 100644 --- a/src/u_miniexplorer.pas +++ b/src/u_miniexplorer.pas @@ -7,7 +7,7 @@ interface uses Classes, SysUtils, FileUtil, ListViewFilterEdit, Forms, strutils , Controls, Graphics, ExtCtrls, Menus, ComCtrls, Buttons, lcltype, dialogs, - u_widget, u_sharedres, u_common, u_interfaces, u_observer, + u_widget, u_sharedres, u_common, u_interfaces, u_observer, LCLVersion, u_writableComponent, u_dubproject, u_ceproject, EditBtn, ShellCtrls, u_dialogs, u_synmemo, u_projutils, u_dsgncontrols, u_stringrange, Types; @@ -372,7 +372,10 @@ begin end; destructor TMiniExplorerWidget.destroy; +var + i: integer; begin + fMnxSubj.free; EntitiesConnector.removeObserver(self); with TMiniExplorerOptions.create(nil) do @@ -383,6 +386,11 @@ begin free; end; + {$if lcl_fullversion >= 2020000} + for i := 0 to lstFav.Items.Count-1 do + lstFavDeletion(nil, lstfav.Items[i]); + {$endif} + fEditableOptions.Free; fFavorites.Free; inherited;