IDE: Some more icons for the "Source" menu by Roland Hahn.

ide/mainbase.pas

@@ -1162,8 +1162,8 @@ begin
     CreateMenuItem(ParentMI,itmSourceEncloseBlock,'itmSourceEncloseBlock',lisMenuEncloseSelection, 'menu_source_encloseselection');
     CreateMenuItem(ParentMI,itmSourceEncloseInIFDEF,'itmSourceEncloseInIFDEF',lisMenuEncloseInIFDEF, 'menu_source_encloseinifdef');
     CreateMenuItem(ParentMI,itmSourceCompleteCodeInteractive,'itmSourceCompleteCodeInteractive',lisMenuCompleteCodeInteractive, 'menu_source_completecode');
-    CreateMenuItem(ParentMI,itmRefactorInvertAssignment,'itmInvertAssignment',uemInvertAssignment);
-    CreateMenuItem(ParentMI,itmSourceUseUnit,'itmSourceUseUnit',lisMenuUseUnit);
+    CreateMenuItem(ParentMI,itmRefactorInvertAssignment,'itmInvertAssignment',uemInvertAssignment, 'menu_source_invertassignment');
+    CreateMenuItem(ParentMI,itmSourceUseUnit,'itmSourceUseUnit',lisMenuUseUnit, 'menu_source_useunit');
     // Refactor
     CreateMenuSeparatorSection(mnuSource,itmSourceRefactor,'itmSourceRefactor');
     CreateMenuSubSection(ParentMI,itmSourceRefactor,'itmSourceRefactor',uemRefactor);
@@ -1190,7 +1190,7 @@ begin
     CreateMenuSeparatorSection(mnuSource,itmSourceCodeToolChecks,'itmSourceCodeToolChecks');
     ParentMI:=itmSourceCodeToolChecks;
     CreateMenuItem(ParentMI,itmSourceSyntaxCheck,'itmSourceSyntaxCheck',lisMenuQuickSyntaxCheck, 'menu_tool_syntax_check');
-    CreateMenuItem(ParentMI,itmSourceGuessUnclosedBlock,'itmSourceGuessUnclosedBlock',lisMenuGuessUnclosedBlock);
+    CreateMenuItem(ParentMI,itmSourceGuessUnclosedBlock,'itmSourceGuessUnclosedBlock',lisMenuGuessUnclosedBlock, 'menu_source_guessunclosedblock');
     {$IFDEF GuessMisplacedIfdef}
     CreateMenuItem(ParentMI,itmSourceGuessMisplacedIFDEF,'itmSourceGuessMisplacedIFDEF',lisMenuGuessMisplacedIFDEF);
     {$ENDIF}

ide/sourceeditor.pp

@@ -1809,9 +1809,9 @@ begin
     SrcEditMenuCompleteCode := RegisterIDEMenuCommand(AParent,
         'CompleteCode', lisMenuCompleteCode, nil, @ExecuteIdeMenuClick);
     SrcEditMenuInvertAssignment := RegisterIDEMenuCommand(AParent,
-        'InvertAssignment', uemInvertAssignment, nil, @ExecuteIdeMenuClick);
+        'InvertAssignment', uemInvertAssignment, nil, @ExecuteIdeMenuClick, nil, 'menu_source_invertassignment');
     SrcEditMenuUseUnit := RegisterIDEMenuCommand(AParent,
-        'UseUnit', lisMenuUseUnit, nil, @ExecuteIdeMenuClick);
+        'UseUnit', lisMenuUseUnit, nil, @ExecuteIdeMenuClick, nil, 'menu_source_useunit');
     SrcEditMenuShowUnitInfo := RegisterIDEMenuCommand(AParent,
         'ShowUnitInfo', lisMenuViewUnitInfo , nil, nil, nil, 'menu_view_unit_info');
   {%endregion}

images/laz_images_list.txt

@@ -828,9 +828,18 @@ menu/menu_source_encloseselection_200.png
 menu/menu_source_encloseinifdef.png
 menu/menu_source_encloseinifdef_150.png
 menu/menu_source_encloseinifdef_200.png
+menu/menu_source_guessunclosedblock.png
+menu/menu_source_guessunclosedblock_150.png
+menu/menu_source_guessunclosedblock_200.png
+menu/menu_source_invertassignment.png
+menu/menu_source_invertassignment_150.png
+menu/menu_source_invertassignment_200.png
 menu/menu_source_makeresourcestring.png
 menu/menu_source_makeresourcestring_150.png
 menu/menu_source_makeresourcestring_200.png
+menu/menu_source_useunit.png
+menu/menu_source_useunit_150.png
+menu/menu_source_useunit_200.png
 menu/menu_stepinto.png
 menu/menu_stepinto_150.png
 menu/menu_stepinto_200.png
@@ -960,12 +969,12 @@ menu/menu_view_todo_200.png
 menu/menu_view_toggle_form_unit.png
 menu/menu_view_toggle_form_unit_150.png
 menu/menu_view_toggle_form_unit_200.png
-menu/menu_view_units.png
-menu/menu_view_units_150.png
-menu/menu_view_units_200.png
 menu/menu_view_unit_info.png
 menu/menu_view_unit_info_150.png
 menu/menu_view_unit_info_200.png
+menu/menu_view_units.png
+menu/menu_view_units_150.png
+menu/menu_view_units_200.png
 menu/SelCompPage.png
 menu/SelCompPage_150.png
 menu/SelCompPage_200.png