paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 04:36:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Components: move 2 comps to Tolls menu's itmSecondaryTools section.

Browse Source 
git-svn-id: trunk@29813 -
This commit is contained in:
juha 2011-03-13 15:26:44 +00:00
parent fdaf6cdf13
commit f898fe9e6d
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/datadict/reglazdatadict.pp
View File

@ -369,7 +369,7 @@ begin
// RegisterIDEMenuCommand(mnuCompDDSection,'ddeditfields',SMenuDatadictApply,@IDEDDC.ApplyDD,Nil,Nil);
CmdCreateSQL:=RegisterIDEMenuCommand(mnuCompDDSection,'dddesignsql',SMenuDatadictDesignSQL,@DesignSQL,Nil,Nil);
CmdCreateCode:=RegisterIDEMenuCommand(mnuCompDDSection,'ddcreatecode',SMenuDatadictCreateCode,@CreateDDCode,Nil,Nil);
RegisterIDEMenuCommand(mnuTools,'Datadict',SMenuDatadesktop,@OpenEmptyDD,Nil);
RegisterIDEMenuCommand(itmSecondaryTools,'Datadict',SMenuDatadesktop,@OpenEmptyDD,Nil);
end;
// RegisterComponentEditor(TDataset, TDataDictComponentEditor);
end;

9
components/lazsvnpkg/lazsvnintf.pas
View File

@ -54,16 +54,14 @@ procedure Register;
var
Key: TIDEShortCut;
Cat: TIDECommandCategory;
mnuSVNMain : TIDEMenuSection;
mnuSVNSection : TIDEMenuSection;
begin
Key:=IDEShortCut(VK_UNKNOWN,[],VK_UNKNOWN,[]);
{$ifndef USECustomCategory}
Cat:=IDECommandList.CreateCategory(nil, 'SVN', rsSVNTools,
IDECmdScopeSrcEditOnly);
Cat:=IDECommandList.CreateCategory(nil, 'SVN', rsSVNTools, IDECmdScopeSrcEditOnly);
{$else}
cat:=nil;
Cat:=nil;
{$endif}
CmdSVNLog:=RegisterIDECommand(Cat, 'SVNLog', rsShowLog, Key, nil, @ProcSVNLog);
@ -74,8 +72,7 @@ begin
CmdSVNDiffHead:=RegisterIDECommand(Cat, 'SVNDiffHead', rsShowDiffHead, Key, nil, @ProcSVNDiffHead);
CmdSVNSettings:=RegisterIDECommand(Cat, 'SVNSettings', rsSVNSettings, Key, nil, @ProcSVNSettings);
mnuSVNMain := RegisterIDEMenuSection(mnuTools, 'SVN');
mnuSVNSection:=RegisterIDESubMenu(mnuSVNMain, 'SVN', 'SVN', nil, nil, 'menu_svn');
mnuSVNSection:=RegisterIDESubMenu(itmSecondaryTools, 'SVN', 'SVN', nil, nil, 'menu_svn');
RegisterIDEMenuCommand(mnuSVNSection, 'SVNLog', rsShowLog, nil, nil,
CmdSVNLog, 'menu_svn_log');
RegisterIDEMenuCommand(mnuSVNSection, 'SVNCommit', rsCommit, nil, nil,