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

fix TMRUFileList invalid files not removed

This commit is contained in:
Basile Burg 2014-11-05 02:13:41 +01:00
parent f33fa0be53
commit 97589f0ecc
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_common.pas
View File

@ -36,6 +36,7 @@ type
procedure setMaxCount(aValue: Integer); procedure setMaxCount(aValue: Integer);
function checkItem(const S: string): boolean; virtual; function checkItem(const S: string): boolean; virtual;
procedure Put(Index: Integer; const S: string); override; procedure Put(Index: Integer; const S: string); override;
procedure InsertItem(Index: Integer; const S: string); override;
published published
property maxCount: Integer read fMaxCount write setMaxCount; property maxCount: Integer read fMaxCount write setMaxCount;
public public
@ -263,6 +264,13 @@ begin
clearOutOfRange; clearOutOfRange;
end; end;
procedure TMRUList.InsertItem(Index: Integer; const S: string);
begin
if not (checkItem(S)) then exit;
inherited;
clearOutOfRange;
end;
procedure TMRUList.Insert(Index: Integer; const S: string); procedure TMRUList.Insert(Index: Integer; const S: string);
begin begin
if not (checkItem(S)) then exit; if not (checkItem(S)) then exit;