paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 17:29:40 +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

8
components/h2pas/h2pasdlg.pas
View File

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

2
components/leakview/heaptrcview.pas
View File

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

4
components/onlinepackagemanager/onlinepackagemanagerintf.pas
View File

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