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

moved MRU menu 'clear' item at the bottom to avoid accidental clearing

This commit is contained in:
Basile Burg 2014-08-18 02:36:00 +02:00
parent bb882ab70b
commit 3d887a3669
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_main.pas
View File

@ -828,13 +828,6 @@ begin
trgMnu.Clear; trgMnu.Clear;
itm := TMenuItem.Create(trgMnu);
itm.Caption := 'Clear';
itm.OnClick := @mruClearClick;
itm.Tag := PtrInt(srcLst);
trgMnu.Add(itm);
trgMnu.AddSeparator;
for i:= 0 to srcLst.Count-1 do for i:= 0 to srcLst.Count-1 do
begin begin
fname := srcLst.Strings[i]; fname := srcLst.Strings[i];
@ -845,6 +838,13 @@ begin
trgMnu.Add(itm); trgMnu.Add(itm);
end; end;
trgMnu.AddSeparator;
itm := TMenuItem.Create(trgMnu);
itm.Caption := 'Clear';
itm.OnClick := @mruClearClick;
itm.Tag := PtrInt(srcLst);
trgMnu.Add(itm);
finally finally
Dec(fUpdateCount); Dec(fUpdateCount);
end; end;