paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 13:36:12 +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); // RegisterIDEMenuCommand(mnuCompDDSection,'ddeditfields',SMenuDatadictApply,@IDEDDC.ApplyDD,Nil,Nil);
CmdCreateSQL:=RegisterIDEMenuCommand(mnuCompDDSection,'dddesignsql',SMenuDatadictDesignSQL,@DesignSQL,Nil,Nil); CmdCreateSQL:=RegisterIDEMenuCommand(mnuCompDDSection,'dddesignsql',SMenuDatadictDesignSQL,@DesignSQL,Nil,Nil);
CmdCreateCode:=RegisterIDEMenuCommand(mnuCompDDSection,'ddcreatecode',SMenuDatadictCreateCode,@CreateDDCode,Nil,Nil); CmdCreateCode:=RegisterIDEMenuCommand(mnuCompDDSection,'ddcreatecode',SMenuDatadictCreateCode,@CreateDDCode,Nil,Nil);
RegisterIDEMenuCommand(mnuTools,'Datadict',SMenuDatadesktop,@OpenEmptyDD,Nil); RegisterIDEMenuCommand(itmSecondaryTools,'Datadict',SMenuDatadesktop,@OpenEmptyDD,Nil);
end; end;
// RegisterComponentEditor(TDataset, TDataDictComponentEditor); // RegisterComponentEditor(TDataset, TDataDictComponentEditor);
end; end;

9
components/lazsvnpkg/lazsvnintf.pas
View File

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