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

more readable MRUs

This commit is contained in:
Basile Burg 2016-04-14 17:15:17 +02:00
parent ed5d7ac8ce
commit 0ec4452487
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_main.pas
View File

@ -1366,7 +1366,6 @@ var
itm: TMenuItem; itm: TMenuItem;
fname: string; fname: string;
clickTrg: TNotifyEvent; clickTrg: TNotifyEvent;
i: NativeInt;
begin begin
srcLst := TCEMruFileList(Sender); srcLst := TCEMruFileList(Sender);
if srcLst.isNil then exit; if srcLst.isNil then exit;
@ -1383,12 +1382,11 @@ begin
trgMnu.Clear; trgMnu.Clear;
for i:= 0 to srcLst.Count-1 do for fname in srcLst do
begin begin
fname := srcLst[i];
itm := TMenuItem.Create(trgMnu); itm := TMenuItem.Create(trgMnu);
itm.Hint := fname; itm.Hint := fname;
itm.Caption := shortenPath(fname, 50); itm.Caption := fname.extractFileName + ' - (' + fname + ')';
itm.OnClick := clickTrg; itm.OnClick := clickTrg;
trgMnu.Add(itm); trgMnu.Add(itm);
end; end;