paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-09 13:19:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Components: do not pass localized resource strings to Name parameter of RegisterIDECommand/RegisterIDEMenuCommand functions

Browse Source 
git-svn-id: trunk@54458 -
This commit is contained in:
maxim 2017-03-21 22:36:45 +00:00
parent 5231fa439a
commit fbf3e244d0
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/h2pas/h2pasdlg.pas
View File

@ -203,8 +203,8 @@ begin
Key := IDEShortCut(VK_UNKNOWN,[],VK_UNKNOWN,[]); Key := IDEShortCut(VK_UNKNOWN,[],VK_UNKNOWN,[]);
Cat:=IDECommandList.FindCategoryByName(CommandCategoryToolMenuName); Cat:=IDECommandList.FindCategoryByName(CommandCategoryToolMenuName);
CmdH2PasTool := RegisterIDECommand(Cat, CmdH2PasTool := RegisterIDECommand(Cat,
h2pH2Pas, h2pCreateUnitsFromCHeaderFiles, Key, nil, @ExecuteH2PasTool); 'H2Pas ...', h2pCreateUnitsFromCHeaderFiles, Key, nil, @ExecuteH2PasTool);
RegisterIDEMenuCommand(itmSecondaryTools, h2pH2PasTool, h2pH2Pas, nil, nil, RegisterIDEMenuCommand(itmSecondaryTools, 'H2PasTool', h2pH2Pas, nil, nil,
CmdH2PasTool); CmdH2PasTool);
// register text converter tools // register text converter tools
@ -839,7 +839,7 @@ begin
// add a menu item to easily create a Search and replace from the current // add a menu item to easily create a Search and replace from the current
// selection or line of the source editor. // selection or line of the source editor.
fSrcEditAddSearchReplaceMenuItem:=RegisterIDEMenuCommand(SrcEditSection, fSrcEditAddSearchReplaceMenuItem:=RegisterIDEMenuCommand(SrcEditSection,
h2pAddSearchAndReplaceToolBeforeH2pas, 'Add "search and replace" tool before H2Pas',
h2pAddSearchAndReplaceToolBeforeH2pas, h2pAddSearchAndReplaceToolBeforeH2pas,
@OnAddSearchAndReplaceBeforeH2PasClick); @OnAddSearchAndReplaceBeforeH2PasClick);
end; end;

2
components/leakview/heaptrcview.pas
View File

@ -561,7 +561,7 @@ begin
IDECommandCategory := IDECommandList.FindCategoryByName(CommandCategoryViewName); IDECommandCategory := IDECommandList.FindCategoryByName(CommandCategoryViewName);
if IDECommandCategory <> nil then if IDECommandCategory <> nil then
begin begin
IDECommand := RegisterIDECommand(IDECommandCategory, rsLeakView, rsLeakView, IDEShortCutX, nil, @IDEMenuClicked); IDECommand := RegisterIDECommand(IDECommandCategory, 'Leaks and Traces', rsLeakView, IDEShortCutX, nil, @IDEMenuClicked);
if IDECommand <> nil then if IDECommand <> nil then
begin begin
IDEButtonCommand := RegisterIDEButtonCommand(IDECommand); IDEButtonCommand := RegisterIDEButtonCommand(IDECommand);

4
components/onlinepackagemanager/onlinepackagemanagerintf.pas
View File

@ -55,11 +55,11 @@ begin
IDECommandCategory := IDECommandList.FindCategoryByName('Components'); IDECommandCategory := IDECommandList.FindCategoryByName('Components');
if IDECommandCategory <> nil then if IDECommandCategory <> nil then
begin begin
IDECommand := RegisterIDECommand(IDECommandCategory, rsLazarusPackageManager, rsLazarusPackageManager, IDEShortCutX, nil, @IDEMenuSectionClicked); IDECommand := RegisterIDECommand(IDECommandCategory, 'Online Package Manager', rsLazarusPackageManager, IDEShortCutX, nil, @IDEMenuSectionClicked);
if IDECommand <> nil then if IDECommand <> nil then
RegisterIDEButtonCommand(IDECommand); RegisterIDEButtonCommand(IDECommand);
end; end;
RegisterIDEMenuCommand(itmPkgGraphSection, rsLazarusPackageManager, rsLazarusPackageManager, nil, @IDEMenuSectionClicked); RegisterIDEMenuCommand(itmPkgGraphSection, 'Online Package Manager', rsLazarusPackageManager, nil, @IDEMenuSectionClicked);
end; end;
end. end.