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

fix #330 - Most recents project menu - displaying `dub.json` is not very helpful

This commit is contained in:
Basile Burg 2018-06-15 10:00:00 +02:00
parent d0b8fd154e
commit d59aa68366
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_main.pas
View File

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