From 0ec44524878d59a1a77016d804842fbd42b060a7 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Thu, 14 Apr 2016 17:15:17 +0200 Subject: [PATCH] more readable MRUs --- src/ce_main.pas | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/ce_main.pas b/src/ce_main.pas index 0e6065aa..99dd7fe4 100644 --- a/src/ce_main.pas +++ b/src/ce_main.pas @@ -1366,7 +1366,6 @@ var itm: TMenuItem; fname: string; clickTrg: TNotifyEvent; - i: NativeInt; begin srcLst := TCEMruFileList(Sender); if srcLst.isNil then exit; @@ -1383,12 +1382,11 @@ begin trgMnu.Clear; - for i:= 0 to srcLst.Count-1 do + for fname in srcLst do begin - fname := srcLst[i]; itm := TMenuItem.Create(trgMnu); itm.Hint := fname; - itm.Caption := shortenPath(fname, 50); + itm.Caption := fname.extractFileName + ' - (' + fname + ')'; itm.OnClick := clickTrg; trgMnu.Add(itm); end;