mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0001017] Entries in Directory Hotlist have no auto-shortcut any more #2

Browse source
This commit is contained in:
Alexander Koblov 2021-01-09 19:43:11 +00:00
commit 72a35a7f14
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/uhotdir.pas
View file

@ -467,7 +467,7 @@ begin
DirExistUnknown, DirExist:
begin
miMainTree := TMenuItem.Create(mncmpMenuComponentToPopulate);
miMainTree.Caption := GetMenuCaptionAccordingToOptions(HotDir[I - 1].HotDirName,HotDir[I - 1].HotDirPath);
miMainTree.Caption := GetCaption(GetMenuCaptionAccordingToOptions(HotDir[I - 1].HotDirName,HotDir[I - 1].HotDirPath));
miMainTree.tag := (I - 1) + TagOffset;
miMainTree.OnClick := ProcedureWhenHotDirItemClicked;
@ -484,7 +484,7 @@ begin
hd_NULL, hd_COMMAND:
begin
miMainTree := TMenuItem.Create(mncmpMenuComponentToPopulate);
miMainTree.Caption := HotDir[I - 1].HotDirName;
miMainTree.Caption := GetCaption(HotDir[I - 1].HotDirName);
miMainTree.tag := (I - 1) + TagOffset;
miMainTree.OnClick := ProcedureWhenHotDirItemClicked;
@ -511,7 +511,7 @@ begin
hd_STARTMENU:
begin
miMainTree := TMenuItem.Create(mncmpMenuComponentToPopulate);
miMainTree.Caption := HotDir[I - 1].HotDirName;
miMainTree.Caption := GetCaption(HotDir[I - 1].HotDirName);
if gIconsInMenus then miMainTree.ImageIndex := ICONINDEX_SUBMENU;
if mncmpMenuComponentToPopulate.ClassType = TPopupMenu then
TPopupMenu(mncmpMenuComponentToPopulate).Items.Add(miMainTree)