IDE, OPM: Add missing ellipsis (...) to menu item captions, and icons for ComponentList. Issue #38420.

git-svn-id: trunk@64444 -

components/onlinepackagemanager/onlinepackagemanagerintf.pas

@@ -62,15 +62,16 @@ begin
   IDECommand := nil;
   if IDECommandCategory <> nil then
   begin
-    IDECommand := RegisterIDECommand(IDECommandCategory, 'Online Package Manager', rsLazarusPackageManager, IDEShortCutX, nil, @IDEMenuSectionClicked);
+    IDECommand := RegisterIDECommand(IDECommandCategory, 'Online Package Manager',
+      rsLazarusPackageManager, IDEShortCutX, nil, @IDEMenuSectionClicked);
     if IDECommand <> nil then
       RegisterIDEButtonCommand(IDECommand);
   end;
   RegisterIDEMenuCommand(itmPkgGraphSection, 'Online Package Manager',
-    rsLazarusPackageManager, nil, @IDEMenuSectionClicked, IDECommand, 'pkg_opm');
+    rsMenuLazarusPackageManager, nil, @IDEMenuSectionClicked, IDECommand, 'pkg_opm');
 
   RegisterIDEMenuCommand(ComponentPalettePageDropDownExtraEntries, 'Online Package Manager',
-    rsLazarusPackageManager, nil, @IDEMenuSectionClicked, nil, 'pkg_opm');
+    rsMenuLazarusPackageManager, nil, @IDEMenuSectionClicked, nil, 'pkg_opm');
 end;
 
 initialization

components/onlinepackagemanager/opkman_const.pas

@@ -61,6 +61,7 @@ const
 resourcestring
   //package manager
   rsLazarusPackageManager = 'Online Package Manager';
+  rsMenuLazarusPackageManager = 'Online Package Manager ...';
 
   //main form
   rsPackagesFound = '(%s repository packages found, containing %s lpk files, total size %s)';

ide/componentpalette.pas

@@ -631,12 +631,13 @@ begin
         Name:='ComponentListMenuItem';
         Caption:=lisCompPalComponentList;
         OnClick:=@ComponentListClicked;
+        ImageIndex := IDEImages.LoadImage('menu_view_components');
       end;
       PalettePopupMenu.Items.Add(miCompList);
       miOptions:=TMenuItem.Create(PalettePopupMenu);
       with miOptions do begin
         Name:='OptionsMenuItem';
-        Caption:=lisOptions;
+        Caption:=lisMenuGeneralOptions;
         OnClick:=@OptionsClicked;
         ImageIndex := IDEImages.LoadImage('menu_environment_options');
       end;
@@ -795,7 +796,7 @@ begin
   MenuItem:=TMenuItem.Create(PopupMenu);
   with MenuItem do begin
     Name:='OptionsMenuItem';
-    Caption:=lisOptions;
+    Caption:=lisMenuGeneralOptions;
     OnClick:=@OptionsClicked;
     ImageIndex := IDEImages.LoadImage('menu_environment_options');
   end;

ide/comppagespopup.pas

@@ -322,7 +322,7 @@ begin
 
   // add 'View all'
   fViewAllNode:=TreeView1.Items.AddChild(nil, lisCompPalComponentList);
-  fViewAllNode.ImageIndex:=IDEImages.GetImageIndex('item_package');
+  fViewAllNode.ImageIndex:=IDEImages.GetImageIndex('menu_view_components');
   fViewAllNode.SelectedIndex:=fViewAllNode.ImageIndex;
 
   for i := 0 to ComponentPalettePageDropDownExtraEntries.Count - 1 do begin
@@ -332,7 +332,7 @@ begin
   end;
 
   // add 'Options'
-  fOptionsNode:=TreeView1.Items.AddChild(nil, lisOptions);
+  fOptionsNode:=TreeView1.Items.AddChild(nil, lisMenuGeneralOptions);
   fOptionsNode.ImageIndex:=IDEImages.LoadImage('menu_environment_options');
   fOptionsNode.SelectedIndex:=fOptionsNode.ImageIndex;
 

ide/lazarusidestrconsts.pas

@@ -6583,8 +6583,7 @@ resourcestring
   lisUnableToRun2 = 'Unable to run "%s"';
 
   lisSelectFrame = 'Select Frame';
-  lisDsgToggleShowingNonVisualComponents = 'Toggle showing nonvisual '
-    +'components';
+  lisDsgToggleShowingNonVisualComponents = 'Toggle showing nonvisual components';
   lisDsgShowNonVisualComponents = 'Show nonvisual components';
 
   // * Debug Event Log *

ide/mainbar.pas

@@ -649,7 +649,7 @@ begin
   OptionsPopupMenu.Images := IDEImages.Images_16;
   OptionsMenuItem := TMenuItem.Create(TheOwner);
   OptionsMenuItem.Name := 'miToolbarOption';
-  OptionsMenuItem.Caption := lisOptions;
+  OptionsMenuItem.Caption := lisMenuGeneralOptions;
   OptionsMenuItem.Enabled := True;
   OptionsMenuItem.Visible := True;
   OptionsMenuItem.ImageIndex := IDEImages.LoadImage('menu_environment_options');