Commit 6ec5e93d authored by Michael W. Vogel's avatar Michael W. Vogel
Browse files

IDE: SourceEditor: Assigning icons to four items of source editor menu. Issue...

IDE: SourceEditor: Assigning icons to four items of source editor menu. Issue #34987. Patch from FTurtle

git-svn-id: trunk@60365 -
parent c323c396
......@@ -1623,7 +1623,8 @@ begin
(AParent, 'Find Declaration', uemFindDeclaration, nil, @ExecuteIdeMenuClick);
{%region *** Submenu: Find Section *** }
SrcEditSubMenuFind := RegisterIDESubMenu(AParent, 'Find section', lisMenuFind);
SrcEditSubMenuFind := RegisterIDESubMenu(AParent,
'Find section', lisMenuFind, nil, nil, 'menu_search_find');
AParent:=SrcEditSubMenuFind;
SrcEditMenuProcedureJump := RegisterIDEMenuCommand(AParent,
......@@ -1663,7 +1664,8 @@ begin
SrcEditMenuSectionFiles:=RegisterIDEMenuSection(SourceEditorMenuRoot, 'Files');
{%region * sub menu Open File *}
SrcEditSubMenuOpenFile:=RegisterIDESubMenu(SrcEditMenuSectionFiles,'Open File',lisOpenFile);
SrcEditSubMenuOpenFile:=RegisterIDESubMenu(SrcEditMenuSectionFiles,
'Open File',lisOpenFile, nil, nil, 'laz_open');
AParent:=SrcEditSubMenuOpenFile;
SrcEditMenuOpenFileAtCursor:=RegisterIDEMenuCommand(AParent, 'Open File At Cursor',
......@@ -1771,8 +1773,8 @@ begin
{%endregion}
{%region *** Source Section ***}
SrcEditSubMenuSource:=RegisterIDESubMenu(SourceEditorMenuRoot,
'Source',uemSource);
SrcEditSubMenuSource := RegisterIDESubMenu(SourceEditorMenuRoot,
'Source', uemSource, nil, nil, 'item_unit');
AParent:=SrcEditSubMenuSource;
SrcEditMenuEncloseSelection := RegisterIDEMenuCommand(AParent,
'EncloseSelection', lisMenuEncloseSelection);
......@@ -1785,7 +1787,7 @@ begin
SrcEditMenuUseUnit := RegisterIDEMenuCommand(AParent,
'UseUnit', lisMenuUseUnit, nil, @ExecuteIdeMenuClick);
SrcEditMenuShowUnitInfo := RegisterIDEMenuCommand(AParent,
'ShowUnitInfo', lisMenuViewUnitInfo);
'ShowUnitInfo', lisMenuViewUnitInfo , nil, nil, nil, 'menu_view_unit_info');
{%endregion}
{%region *** Refactoring Section ***}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment