forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove workaround for a LCL bug that only existed in 2.2.0-RC1

This commit is contained in:
Basile Burg 2021-11-04 22:34:41 +01:00
parent 846f86fb40
commit 250b6960d8
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/u_miniexplorer.pas
View File

@ -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;