diff --git a/src/u_miniexplorer.pas b/src/u_miniexplorer.pas index f857dc39..61ce4637 100644 --- a/src/u_miniexplorer.pas +++ b/src/u_miniexplorer.pas @@ -372,10 +372,6 @@ begin end; destructor TMiniExplorerWidget.destroy; -{$if lcl_fullversion >= 2020000} -var - i: integer; -{$endif} begin fMnxSubj.free; @@ -388,11 +384,6 @@ 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; @@ -474,15 +465,13 @@ procedure TMiniExplorerWidget.updateFavorites; var itm: TListItem; fold: string; - dat: PString; begin lstFav.Clear; for fold in fFavorites do begin itm := lstFav.Items.Add; itm.Caption := shortenPath(fold); - dat := NewStr(fold); - itm.Data := dat; + itm.Data := NewStr(fold); itm.ImageIndex := 2; end; end;