From d59aa683666ee707c01031fff587002fb1e2cc06 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 15 Jun 2018 10:00:00 +0200
Subject: [PATCH] fix #330 - Most recents project menu - displaying `dub.json`
 is not very helpful

---
 src/ce_main.pas | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 45bf098c..5c12ec0e 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -2285,6 +2285,7 @@ var
   itm: TMenuItem;
   fname: string;
   clickTrg: TNotifyEvent;
+  i: integer;
 begin
   srcLst := TCEMruFileList(Sender);
   if srcLst.isNil then
@@ -2305,11 +2306,18 @@ begin
 
     trgMnu.Clear;
 
-    for fname in srcLst do
+
+    for i := 0 to srcLst.Count-1 do
     begin
+
+      if srcLst = fFileMru then
+        fname := srcLst.Strings[i].extractFileName
+      else
+        fname := srcLst.Strings[i].extractFileDir.extractFileName;
+
       itm := TMenuItem.Create(trgMnu);
-      itm.Hint := fname;
-      itm.Caption := fname.extractFileName + ' - (' + fname + ')';
+      itm.Hint := srcLst.Strings[i];
+      itm.Caption := fname + ' - (' + itm.Hint + ')';
       itm.OnClick := clickTrg;
       trgMnu.Add(itm);
     end;