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; end;
destructor TMiniExplorerWidget.destroy; destructor TMiniExplorerWidget.destroy;
{$if lcl_fullversion >= 2020000}
var
i: integer;
{$endif}
begin begin
fMnxSubj.free; fMnxSubj.free;
@ -388,11 +384,6 @@ begin
free; free;
end; end;
{$if lcl_fullversion >= 2020000}
for i := 0 to lstFav.Items.Count-1 do
lstFavDeletion(nil, lstfav.Items[i]);
{$endif}
fEditableOptions.Free; fEditableOptions.Free;
fFavorites.Free; fFavorites.Free;
inherited; inherited;
@ -474,15 +465,13 @@ procedure TMiniExplorerWidget.updateFavorites;
var var
itm: TListItem; itm: TListItem;
fold: string; fold: string;
dat: PString;
begin begin
lstFav.Clear; lstFav.Clear;
for fold in fFavorites do for fold in fFavorites do
begin begin
itm := lstFav.Items.Add; itm := lstFav.Items.Add;
itm.Caption := shortenPath(fold); itm.Caption := shortenPath(fold);
dat := NewStr(fold); itm.Data := NewStr(fold);
itm.Data := dat;
itm.ImageIndex := 2; itm.ImageIndex := 2;
end; end;
end; end;