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

moved menu sections from IDE to menuintf.pas

Browse Source 
git-svn-id: trunk@7833 -
This commit is contained in:
mattias 2005-09-26 10:33:00 +00:00
parent 8cb0cd4a93
commit 5f3e47834b
5 changed files with 162 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/main.pp
View File

@ -1752,14 +1752,14 @@ end;
procedure TMainIDE.SetRecentFilesMenu; procedure TMainIDE.SetRecentFilesMenu;
begin begin
SetRecentSubMenu(MainIDEBar.itmFileRecentOpen, SetRecentSubMenu(itmFileRecentOpen,
EnvironmentOptions.RecentOpenFiles, EnvironmentOptions.RecentOpenFiles,
@mnuOpenRecentClicked); @mnuOpenRecentClicked);
end; end;
procedure TMainIDE.SetRecentProjectFilesMenu; procedure TMainIDE.SetRecentProjectFilesMenu;
begin begin
SetRecentSubMenu(MainIDEBar.itmProjectRecentOpen, SetRecentSubMenu(itmProjectRecentOpen,
EnvironmentOptions.RecentProjectFiles, EnvironmentOptions.RecentProjectFiles,
@mnuOpenProjectClicked); @mnuOpenProjectClicked);
end; end;
@ -3133,7 +3133,7 @@ var
Index: integer; Index: integer;
begin begin
if not (Sender is TIDEMenuItem) then exit; if not (Sender is TIDEMenuItem) then exit;
Index:=MainIDEBar.itmCustomTools.IndexOf(TIDEMenuItem(Sender))-1; Index:=itmCustomTools.IndexOf(TIDEMenuItem(Sender))-1;
if (Index<0) or (Index>=EnvironmentOptions.ExternalTools.Count) then exit; if (Index<0) or (Index>=EnvironmentOptions.ExternalTools.Count) then exit;
DoRunExternalTool(Index); DoRunExternalTool(Index);
end; end;
@ -7780,7 +7780,7 @@ var
var var
Section: TIDEMenuSection; Section: TIDEMenuSection;
begin begin
Section:=MainIDEBar.itmCustomTools; Section:=itmCustomTools;
// add enough menuitems // add enough menuitems
while Section.Count-1<ToolCount do while Section.Count-1<ToolCount do
RegisterIDEMenuCommand(Section.GetPath, RegisterIDEMenuCommand(Section.GetPath,
@ -7798,8 +7798,8 @@ var
begin begin
i:=1; i:=1;
Index:=0; Index:=0;
while (i<MainIDEBar.itmCustomTools.Count) do begin while (i<itmCustomTools.Count) do begin
CurMenuItem:=MainIDEBar.itmCustomTools[i]; CurMenuItem:=itmCustomTools[i];
ExtTool:=EnvironmentOptions.ExternalTools[Index]; ExtTool:=EnvironmentOptions.ExternalTools[Index];
CurMenuItem.Caption:=ExtTool.Title; CurMenuItem.Caption:=ExtTool.Title;
if CurMenuItem is TIDEMenuCommand then if CurMenuItem is TIDEMenuCommand then

120
ide/mainbar.pas
View File

@ -67,39 +67,39 @@ type
// MainMenu // MainMenu
mnuMainMenu: TMainMenu; mnuMainMenu: TMainMenu;
mnuMain: TIDEMenuSection; //mnuMain: TIDEMenuSection;
// file menu // file menu
mnuFile: TIDEMenuSection; //mnuFile: TIDEMenuSection;
itmFileNew: TIDEMenuSection; //itmFileNew: TIDEMenuSection;
itmFileNewUnit: TIDEMenuCommand; itmFileNewUnit: TIDEMenuCommand;
itmFileNewForm: TIDEMenuCommand; itmFileNewForm: TIDEMenuCommand;
itmFileNewOther: TIDEMenuCommand; itmFileNewOther: TIDEMenuCommand;
itmFileOpenSave: TIDEMenuSection; //itmFileOpenSave: TIDEMenuSection;
itmFileOpen: TIDEMenuCommand; itmFileOpen: TIDEMenuCommand;
itmFileRevert: TIDEMenuCommand; itmFileRevert: TIDEMenuCommand;
itmFileRecentOpen: TIDEMenuSection; //itmFileRecentOpen: TIDEMenuSection;
itmFileSave: TIDEMenuCommand; itmFileSave: TIDEMenuCommand;
itmFileSaveAs: TIDEMenuCommand; itmFileSaveAs: TIDEMenuCommand;
itmFileSaveAll: TIDEMenuCommand; itmFileSaveAll: TIDEMenuCommand;
itmFileClose: TIDEMenuCommand; itmFileClose: TIDEMenuCommand;
itmFileCloseAll: TIDEMenuCommand; itmFileCloseAll: TIDEMenuCommand;
itmFileDirectories: TIDEMenuSection; //itmFileDirectories: TIDEMenuSection;
itmFileCleanDirectory: TIDEMenuCommand; itmFileCleanDirectory: TIDEMenuCommand;
itmFileIDEStart: TIDEMenuSection; //itmFileIDEStart: TIDEMenuSection;
itmFileRestart: TIDEMenuCommand; itmFileRestart: TIDEMenuCommand;
itmFileQuit: TIDEMenuCommand; itmFileQuit: TIDEMenuCommand;
// edit menu // edit menu
mnuEdit: TIDEMenuSection; //mnuEdit: TIDEMenuSection;
itmEditReUndo: TIDEMenuSection; //itmEditReUndo: TIDEMenuSection;
itmEditUndo: TIDEMenuCommand; itmEditUndo: TIDEMenuCommand;
itmEditRedo: TIDEMenuCommand; itmEditRedo: TIDEMenuCommand;
itmEditClipboard: TIDEMenuSection; //itmEditClipboard: TIDEMenuSection;
itmEditCut: TIDEMenuCommand; itmEditCut: TIDEMenuCommand;
itmEditCopy: TIDEMenuCommand; itmEditCopy: TIDEMenuCommand;
itmEditPaste: TIDEMenuCommand; itmEditPaste: TIDEMenuCommand;
itmEditBlockIndentation: TIDEMenuSection; //itmEditBlockIndentation: TIDEMenuSection;
itmEditIndentBlock: TIDEMenuCommand; itmEditIndentBlock: TIDEMenuCommand;
itmEditUnindentBlock: TIDEMenuCommand; itmEditUnindentBlock: TIDEMenuCommand;
itmEditEncloseBlock: TIDEMenuCommand; itmEditEncloseBlock: TIDEMenuCommand;
@ -107,21 +107,21 @@ type
itmEditUncommentBlock: TIDEMenuCommand; itmEditUncommentBlock: TIDEMenuCommand;
itmEditConditionalBlock: TIDEMenuCommand; itmEditConditionalBlock: TIDEMenuCommand;
itmEditSortBlock: TIDEMenuCommand; itmEditSortBlock: TIDEMenuCommand;
itmEditBlockCharConversion: TIDEMenuSection; //itmEditBlockCharConversion: TIDEMenuSection;
itmEditUpperCaseBlock: TIDEMenuCommand; itmEditUpperCaseBlock: TIDEMenuCommand;
itmEditLowerCaseBlock: TIDEMenuCommand; itmEditLowerCaseBlock: TIDEMenuCommand;
itmEditTabsToSpacesBlock: TIDEMenuCommand; itmEditTabsToSpacesBlock: TIDEMenuCommand;
itmEditSelectionBreakLines: TIDEMenuCommand; itmEditSelectionBreakLines: TIDEMenuCommand;
itmEditSelect: TIDEMenuSection; //itmEditSelect: TIDEMenuSection;
itmEditSelectAll: TIDEMenuCommand; itmEditSelectAll: TIDEMenuCommand;
itmEditSelectToBrace: TIDEMenuCommand; itmEditSelectToBrace: TIDEMenuCommand;
itmEditSelectCodeBlock: TIDEMenuCommand; itmEditSelectCodeBlock: TIDEMenuCommand;
itmEditSelectLine: TIDEMenuCommand; itmEditSelectLine: TIDEMenuCommand;
itmEditSelectParagraph: TIDEMenuCommand; itmEditSelectParagraph: TIDEMenuCommand;
itmEditInsertions: TIDEMenuSection; //itmEditInsertions: TIDEMenuSection;
itmEditInsertCharacter: TIDEMenuCommand; itmEditInsertCharacter: TIDEMenuCommand;
itmEditInsertText: TIDEMenuSection; //itmEditInsertText: TIDEMenuSection;
itmEditInsertCVSKeyWord: TIDEMenuSection; //itmEditInsertCVSKeyWord: TIDEMenuSection;
itmEditInsertCVSAuthor: TIDEMenuCommand; itmEditInsertCVSAuthor: TIDEMenuCommand;
itmEditInsertCVSDate: TIDEMenuCommand; itmEditInsertCVSDate: TIDEMenuCommand;
itmEditInsertCVSHeader: TIDEMenuCommand; itmEditInsertCVSHeader: TIDEMenuCommand;
@ -130,19 +130,19 @@ type
itmEditInsertCVSName: TIDEMenuCommand; itmEditInsertCVSName: TIDEMenuCommand;
itmEditInsertCVSRevision: TIDEMenuCommand; itmEditInsertCVSRevision: TIDEMenuCommand;
itmEditInsertCVSSource: TIDEMenuCommand; itmEditInsertCVSSource: TIDEMenuCommand;
itmEditInsertGeneral: TIDEMenuSection; //itmEditInsertGeneral: TIDEMenuSection;
itmEditInsertGPLNotice: TIDEMenuCommand; itmEditInsertGPLNotice: TIDEMenuCommand;
itmEditInsertLGPLNotice: TIDEMenuCommand; itmEditInsertLGPLNotice: TIDEMenuCommand;
itmEditInsertUsername: TIDEMenuCommand; itmEditInsertUsername: TIDEMenuCommand;
itmEditInsertDateTime: TIDEMenuCommand; itmEditInsertDateTime: TIDEMenuCommand;
itmEditInsertChangeLogEntry: TIDEMenuCommand; itmEditInsertChangeLogEntry: TIDEMenuCommand;
itmEditMenuCodeTools: TIDEMenuSection; //itmEditMenuCodeTools: TIDEMenuSection;
itmEditCompleteCode: TIDEMenuCommand; itmEditCompleteCode: TIDEMenuCommand;
itmEditExtractProc: TIDEMenuCommand; itmEditExtractProc: TIDEMenuCommand;
// search menu // search menu
mnuSearch: TIDEMenuSection; //mnuSearch: TIDEMenuSection;
itmSearchFindReplace: TIDEMenuSection; //itmSearchFindReplace: TIDEMenuSection;
itmSearchFind: TIDEMenuCommand; itmSearchFind: TIDEMenuCommand;
itmSearchFindNext: TIDEMenuCommand; itmSearchFindNext: TIDEMenuCommand;
itmSearchFindPrevious: TIDEMenuCommand; itmSearchFindPrevious: TIDEMenuCommand;
@ -150,18 +150,18 @@ type
itmSearchReplace: TIDEMenuCommand; itmSearchReplace: TIDEMenuCommand;
itmIncrementalFind: TIDEMenuCommand; itmIncrementalFind: TIDEMenuCommand;
itmGotoLine: TIDEMenuCommand; itmGotoLine: TIDEMenuCommand;
itmJumpings: TIDEMenuSection; //itmJumpings: TIDEMenuSection;
itmJumpBack: TIDEMenuCommand; itmJumpBack: TIDEMenuCommand;
itmJumpForward: TIDEMenuCommand; itmJumpForward: TIDEMenuCommand;
itmAddJumpPoint: TIDEMenuCommand; itmAddJumpPoint: TIDEMenuCommand;
itmJumpHistory: TIDEMenuCommand; itmJumpHistory: TIDEMenuCommand;
itmJumpToNextError: TIDEMenuCommand; itmJumpToNextError: TIDEMenuCommand;
itmJumpToPrevError: TIDEMenuCommand; itmJumpToPrevError: TIDEMenuCommand;
itmBookmarks: TIDEMenuSection; //itmBookmarks: TIDEMenuSection;
itmSetFreeBookmark: TIDEMenuCommand; itmSetFreeBookmark: TIDEMenuCommand;
itmJumpToNextBookmark: TIDEMenuCommand; itmJumpToNextBookmark: TIDEMenuCommand;
itmJumpToPrevBookmark: TIDEMenuCommand; itmJumpToPrevBookmark: TIDEMenuCommand;
itmCodeToolSearches: TIDEMenuSection; //itmCodeToolSearches: TIDEMenuSection;
itmFindDeclaration: TIDEMenuCommand; itmFindDeclaration: TIDEMenuCommand;
itmFindBlockOtherEnd: TIDEMenuCommand; itmFindBlockOtherEnd: TIDEMenuCommand;
itmFindBlockStart: TIDEMenuCommand; itmFindBlockStart: TIDEMenuCommand;
@ -171,23 +171,23 @@ type
itmSearchRenameIdentifier: TIDEMenuCommand; itmSearchRenameIdentifier: TIDEMenuCommand;
// view menu // view menu
mnuView: TIDEMenuSection; //mnuView: TIDEMenuSection;
itmViewMainWindows: TIDEMenuSection; //itmViewMainWindows: TIDEMenuSection;
itmViewInspector: TIDEMenuCommand; itmViewInspector: TIDEMenuCommand;
itmViewSourceEditor: TIDEMenuCommand; itmViewSourceEditor: TIDEMenuCommand;
itmViewCodeExplorer: TIDEMenuCommand; itmViewCodeExplorer: TIDEMenuCommand;
itmViewLazDoc: TIDEMenuCommand; itmViewLazDoc: TIDEMenuCommand;
itmViewUnitWindows: TIDEMenuSection; //itmViewUnitWindows: TIDEMenuSection;
itmViewUnits: TIDEMenuCommand; itmViewUnits: TIDEMenuCommand;
itmViewForms: TIDEMenuCommand; itmViewForms: TIDEMenuCommand;
itmViewUnitDependencies: TIDEMenuCommand; itmViewUnitDependencies: TIDEMenuCommand;
itmViewUnitInfo: TIDEMenuCommand; itmViewUnitInfo: TIDEMenuCommand;
itmViewToggleFormUnit: TIDEMenuCommand; itmViewToggleFormUnit: TIDEMenuCommand;
itmViewSecondaryWindows: TIDEMenuSection; //itmViewSecondaryWindows: TIDEMenuSection;
itmViewAnchorEditor: TIDEMenuCommand; itmViewAnchorEditor: TIDEMenuCommand;
itmViewMessage: TIDEMenuCommand; itmViewMessage: TIDEMenuCommand;
itmViewSearchResults: TIDEMenuCommand; itmViewSearchResults: TIDEMenuCommand;
itmViewDebugWindows: TIDEMenuSection; //itmViewDebugWindows: TIDEMenuSection;
itmViewWatches: TIDEMenuCommand; itmViewWatches: TIDEMenuCommand;
itmViewBreakpoints: TIDEMenuCommand; itmViewBreakpoints: TIDEMenuCommand;
itmViewLocals: TIDEMenuCommand; itmViewLocals: TIDEMenuCommand;
@ -195,39 +195,39 @@ type
itmViewDebugOutput: TIDEMenuCommand; itmViewDebugOutput: TIDEMenuCommand;
// project menu // project menu
mnuProject: TIDEMenuSection; //mnuProject: TIDEMenuSection;
itmProjectNewSection: TIDEMenuSection; //itmProjectNewSection: TIDEMenuSection;
itmProjectNew: TIDEMenuCommand; itmProjectNew: TIDEMenuCommand;
itmProjectNewFromFile: TIDEMenuCommand; itmProjectNewFromFile: TIDEMenuCommand;
itmProjectOpenSection: TIDEMenuSection; //itmProjectOpenSection: TIDEMenuSection;
itmProjectOpen: TIDEMenuCommand; itmProjectOpen: TIDEMenuCommand;
itmProjectRecentOpen: TIDEMenuSection; //itmProjectRecentOpen: TIDEMenuSection;
itmProjectSaveSection: TIDEMenuSection; //itmProjectSaveSection: TIDEMenuSection;
itmProjectSave: TIDEMenuCommand; itmProjectSave: TIDEMenuCommand;
itmProjectSaveAs: TIDEMenuCommand; itmProjectSaveAs: TIDEMenuCommand;
itmProjectPublish: TIDEMenuCommand; itmProjectPublish: TIDEMenuCommand;
itmProjectWindowSection: TIDEMenuSection; //itmProjectWindowSection: TIDEMenuSection;
itmProjectInspector: TIDEMenuCommand; itmProjectInspector: TIDEMenuCommand;
itmProjectOptions: TIDEMenuCommand; itmProjectOptions: TIDEMenuCommand;
itmProjectCompilerOptions: TIDEMenuCommand; itmProjectCompilerOptions: TIDEMenuCommand;
itmProjectViewToDos: TIDEMenuCommand; itmProjectViewToDos: TIDEMenuCommand;
itmProjectAddRemoveSection: TIDEMenuSection; //itmProjectAddRemoveSection: TIDEMenuSection;
itmProjectAddTo: TIDEMenuCommand; itmProjectAddTo: TIDEMenuCommand;
itmProjectRemoveFrom: TIDEMenuCommand; itmProjectRemoveFrom: TIDEMenuCommand;
itmProjectViewSource: TIDEMenuCommand; itmProjectViewSource: TIDEMenuCommand;
{$IFDEF TRANSLATESTRING} {$IFDEF TRANSLATESTRING}
itmProjectPoFileSection: TIDEMenuCommand; //itmProjectPoFileSection: TIDEMenuSection;
itmProjectCreatePoFiles: TIDEMenuCommand; itmProjectCreatePoFiles: TIDEMenuCommand;
itmProjectCollectPoFiles: TIDEMenuCommand; itmProjectCollectPoFiles: TIDEMenuCommand;
{$ENDIF} {$ENDIF}
// run menu // run menu
mnuRun: TIDEMenuSection; //mnuRun: TIDEMenuSection;
itmRunBuilding: TIDEMenuSection; //itmRunBuilding: TIDEMenuSection;
itmRunMenuBuild: TIDEMenuCommand; itmRunMenuBuild: TIDEMenuCommand;
itmRunMenuBuildAll: TIDEMenuCommand; itmRunMenuBuildAll: TIDEMenuCommand;
itmRunMenuAbortBuild: TIDEMenuCommand; itmRunMenuAbortBuild: TIDEMenuCommand;
itmRunnning: TIDEMenuSection; //itmRunnning: TIDEMenuSection;
itmRunMenuRun: TIDEMenuCommand; itmRunMenuRun: TIDEMenuCommand;
itmRunMenuPause: TIDEMenuCommand; itmRunMenuPause: TIDEMenuCommand;
itmRunMenuStepInto: TIDEMenuCommand; itmRunMenuStepInto: TIDEMenuCommand;
@ -236,27 +236,27 @@ type
itmRunMenuStop: TIDEMenuCommand; itmRunMenuStop: TIDEMenuCommand;
itmRunMenuRunParameters: TIDEMenuCommand; itmRunMenuRunParameters: TIDEMenuCommand;
itmRunMenuResetDebugger: TIDEMenuCommand; itmRunMenuResetDebugger: TIDEMenuCommand;
itmRunBuildingFile: TIDEMenuSection; //itmRunBuildingFile: TIDEMenuSection;
itmRunMenuBuildFile: TIDEMenuCommand; itmRunMenuBuildFile: TIDEMenuCommand;
itmRunMenuRunFile: TIDEMenuCommand; itmRunMenuRunFile: TIDEMenuCommand;
itmRunMenuConfigBuildFile: TIDEMenuCommand; itmRunMenuConfigBuildFile: TIDEMenuCommand;
itmRunDebugging: TIDEMenuSection; //itmRunDebugging: TIDEMenuSection;
itmRunMenuInspect: TIDEMenuCommand; itmRunMenuInspect: TIDEMenuCommand;
itmRunMenuEvaluate: TIDEMenuCommand; itmRunMenuEvaluate: TIDEMenuCommand;
itmRunMenuAddWatch: TIDEMenuCommand; itmRunMenuAddWatch: TIDEMenuCommand;
itmRunMenuAddBreakpoint: TIDEMenuSection; //itmRunMenuAddBreakpoint: TIDEMenuSection;
itmRunMenuAddBpSource: TIDEMenuCommand; itmRunMenuAddBpSource: TIDEMenuCommand;
// components menu // components menu
mnuComponents: TIDEMenuSection; //mnuComponents: TIDEMenuSection;
itmPkgOpening: TIDEMenuSection; //itmPkgOpening: TIDEMenuSection;
itmPkgOpenPackage: TIDEMenuCommand; itmPkgOpenPackage: TIDEMenuCommand;
itmPkgOpenPackageFile: TIDEMenuCommand; itmPkgOpenPackageFile: TIDEMenuCommand;
itmPkgOpenPackageOfCurUnit: TIDEMenuCommand; itmPkgOpenPackageOfCurUnit: TIDEMenuCommand;
itmPkgOpenRecent: TIDEMenuSection; //itmPkgOpenRecent: TIDEMenuSection;
itmPkgUnits: TIDEMenuSection; //itmPkgUnits: TIDEMenuSection;
itmPkgAddCurUnitToPkg: TIDEMenuCommand; itmPkgAddCurUnitToPkg: TIDEMenuCommand;
itmPkgGraphSection: TIDEMenuSection; //itmPkgGraphSection: TIDEMenuSection;
itmPkgPkgGraph: TIDEMenuCommand; itmPkgPkgGraph: TIDEMenuCommand;
itmPkgEditInstallPkgs: TIDEMenuCommand; itmPkgEditInstallPkgs: TIDEMenuCommand;
{$IFDEF CustomIDEComps} {$IFDEF CustomIDEComps}
@ -264,46 +264,46 @@ type
{$ENDIF} {$ENDIF}
// tools menu // tools menu
mnuTools: TIDEMenuSection; //mnuTools: TIDEMenuSection;
itmCustomTools: TIDEMenuSection; //itmCustomTools: TIDEMenuSection;
itmToolConfigure: TIDEMenuCommand; itmToolConfigure: TIDEMenuCommand;
itmCodeToolChecks: TIDEMenuSection; //itmCodeToolChecks: TIDEMenuSection;
itmToolSyntaxCheck: TIDEMenuCommand; itmToolSyntaxCheck: TIDEMenuCommand;
itmToolGuessUnclosedBlock: TIDEMenuCommand; itmToolGuessUnclosedBlock: TIDEMenuCommand;
itmToolGuessMisplacedIFDEF: TIDEMenuCommand; itmToolGuessMisplacedIFDEF: TIDEMenuCommand;
itmSecondaryTools: TIDEMenuSection; //itmSecondaryTools: TIDEMenuSection;
itmToolMakeResourceString: TIDEMenuCommand; itmToolMakeResourceString: TIDEMenuCommand;
itmToolDiff: TIDEMenuCommand; itmToolDiff: TIDEMenuCommand;
itmDelphiConversion: TIDEMenuSection; //itmDelphiConversion: TIDEMenuSection;
itmToolCheckLFM: TIDEMenuCommand; itmToolCheckLFM: TIDEMenuCommand;
itmToolConvertDelphiUnit: TIDEMenuCommand; itmToolConvertDelphiUnit: TIDEMenuCommand;
itmToolConvertDelphiProject: TIDEMenuCommand; itmToolConvertDelphiProject: TIDEMenuCommand;
itmToolConvertDFMtoLFM: TIDEMenuCommand; itmToolConvertDFMtoLFM: TIDEMenuCommand;
itmBuildingLazarus: TIDEMenuSection; //itmBuildingLazarus: TIDEMenuSection;
itmToolBuildLazarus: TIDEMenuCommand; itmToolBuildLazarus: TIDEMenuCommand;
itmToolConfigureBuildLazarus: TIDEMenuCommand; itmToolConfigureBuildLazarus: TIDEMenuCommand;
// environment menu // environment menu
mnuEnvironment: TIDEMenuSection; //mnuEnvironment: TIDEMenuSection;
itmOptionsDialogs: TIDEMenuSection; //itmOptionsDialogs: TIDEMenuSection;
itmEnvGeneralOptions: TIDEMenuCommand; itmEnvGeneralOptions: TIDEMenuCommand;
itmEnvEditorOptions: TIDEMenuCommand; itmEnvEditorOptions: TIDEMenuCommand;
itmEnvCodeTemplates: TIDEMenuCommand; itmEnvCodeTemplates: TIDEMenuCommand;
itmEnvDebuggerOptions: TIDEMenuCommand; itmEnvDebuggerOptions: TIDEMenuCommand;
itmEnvCodeToolsOptions: TIDEMenuCommand; itmEnvCodeToolsOptions: TIDEMenuCommand;
itmEnvCodeToolsDefinesEditor: TIDEMenuCommand; itmEnvCodeToolsDefinesEditor: TIDEMenuCommand;
itmIDECacheSection: TIDEMenuSection; //itmIDECacheSection: TIDEMenuSection;
itmEnvRescanFPCSrcDir: TIDEMenuCommand; itmEnvRescanFPCSrcDir: TIDEMenuCommand;
// windows menu // windows menu
mnuWindows: TIDEMenuSection; //mnuWindows: TIDEMenuSection;
// help menu // help menu
mnuHelp: TIDEMenuSection; //mnuHelp: TIDEMenuSection;
itmOnlineHelps: TIDEMenuSection; //itmOnlineHelps: TIDEMenuSection;
itmHelpOnlineHelp: TIDEMenuCommand; itmHelpOnlineHelp: TIDEMenuCommand;
itmHelpConfigureHelp: TIDEMenuCommand; itmHelpConfigureHelp: TIDEMenuCommand;
itmInfoHelps: TIDEMenuSection; //itmInfoHelps: TIDEMenuSection;
itmHelpAboutLazarus: TIDEMenuCommand; itmHelpAboutLazarus: TIDEMenuCommand;
// component palette // component palette

12
ide/mainbase.pas
View File

@ -307,7 +307,7 @@ end;
procedure TMainIDEBase.CreateMainMenuItem(var Section: TIDEMenuSection; procedure TMainIDEBase.CreateMainMenuItem(var Section: TIDEMenuSection;
const MenuItemName, MenuItemCaption: String); const MenuItemName, MenuItemCaption: String);
begin begin
Section:=RegisterIDESubMenu(MainIDEBar.mnuMain.GetPath,MenuItemName, Section:=RegisterIDESubMenu(mnuMain.GetPath,MenuItemName,
MenuItemCaption); MenuItemCaption);
end; end;
@ -1303,18 +1303,18 @@ begin
end; end;
// create menuitems // create menuitems
for i:=0 to WindowsList.Count-1 do begin for i:=0 to WindowsList.Count-1 do begin
if MainIDEBar.mnuWindows.Count>i then if mnuWindows.Count>i then
CurMenuItem:=MainIDEBar.mnuWindows.Items[i] CurMenuItem:=mnuWindows.Items[i]
else begin else begin
CurMenuItem:=RegisterIDEMenuCommand(MainIDEBar.mnuWindows.GetPath, CurMenuItem:=RegisterIDEMenuCommand(mnuWindows.GetPath,
'Window'+IntToStr(i),''); 'Window'+IntToStr(i),'');
CurMenuItem.OnClick:=@mnuWindowsItemClick; CurMenuItem.OnClick:=@mnuWindowsItemClick;
end; end;
CurMenuItem.Caption:=TCustomForm(WindowsList[i]).Caption; CurMenuItem.Caption:=TCustomForm(WindowsList[i]).Caption;
end; end;
// remove unused menuitems // remove unused menuitems
while MainIDEBar.mnuWindows.Count>WindowsList.Count do while mnuWindows.Count>WindowsList.Count do
MainIDEBar.mnuWindows.Items[MainIDEBar.mnuWindows.Count-1].Free; mnuWindows.Items[mnuWindows.Count-1].Free;
// clean up // clean up
WindowsList.Free; WindowsList.Free;
end; end;

89
ideintf/menuintf.pas
View File

@ -262,6 +262,93 @@ type
var var
IDEMenuRoots: TIDEMenuRoots = nil;// created by the IDE IDEMenuRoots: TIDEMenuRoots = nil;// created by the IDE
// IDE MainMenu
mnuMain: TIDEMenuSection;
// file menu
mnuFile: TIDEMenuSection;
itmFileNew: TIDEMenuSection;
itmFileOpenSave: TIDEMenuSection;
itmFileRecentOpen: TIDEMenuSection;
itmFileDirectories: TIDEMenuSection;
itmFileIDEStart: TIDEMenuSection;
// edit menu
mnuEdit: TIDEMenuSection;
itmEditReUndo: TIDEMenuSection;
itmEditClipboard: TIDEMenuSection;
itmEditBlockIndentation: TIDEMenuSection;
itmEditBlockCharConversion: TIDEMenuSection;
itmEditSelect: TIDEMenuSection;
itmEditInsertions: TIDEMenuSection;
itmEditInsertText: TIDEMenuSection;
itmEditInsertCVSKeyWord: TIDEMenuSection;
itmEditInsertGeneral: TIDEMenuSection;
itmEditMenuCodeTools: TIDEMenuSection;
// search menu
mnuSearch: TIDEMenuSection;
itmSearchFindReplace: TIDEMenuSection;
itmJumpings: TIDEMenuSection;
itmBookmarks: TIDEMenuSection;
itmCodeToolSearches: TIDEMenuSection;
// view menu
mnuView: TIDEMenuSection;
itmViewMainWindows: TIDEMenuSection;
itmViewUnitWindows: TIDEMenuSection;
itmViewSecondaryWindows: TIDEMenuSection;
itmViewDebugWindows: TIDEMenuSection;
// project menu
mnuProject: TIDEMenuSection;
itmProjectNewSection: TIDEMenuSection;
itmProjectOpenSection: TIDEMenuSection;
itmProjectRecentOpen: TIDEMenuSection;
itmProjectSaveSection: TIDEMenuSection;
itmProjectWindowSection: TIDEMenuSection;
itmProjectAddRemoveSection: TIDEMenuSection;
{$IFDEF TRANSLATESTRING}
itmProjectPoFileSection: TIDEMenuSection;
{$ENDIF}
// run menu
mnuRun: TIDEMenuSection;
itmRunBuilding: TIDEMenuSection;
itmRunnning: TIDEMenuSection;
itmRunBuildingFile: TIDEMenuSection;
itmRunDebugging: TIDEMenuSection;
itmRunMenuAddBreakpoint: TIDEMenuSection;
// components menu
mnuComponents: TIDEMenuSection;
itmPkgOpening: TIDEMenuSection;
itmPkgOpenRecent: TIDEMenuSection;
itmPkgUnits: TIDEMenuSection;
itmPkgGraphSection: TIDEMenuSection;
// tools menu
mnuTools: TIDEMenuSection;
itmCustomTools: TIDEMenuSection;
itmCodeToolChecks: TIDEMenuSection;
itmSecondaryTools: TIDEMenuSection;
itmDelphiConversion: TIDEMenuSection;
itmBuildingLazarus: TIDEMenuSection;
// environment menu
mnuEnvironment: TIDEMenuSection;
itmOptionsDialogs: TIDEMenuSection;
itmIDECacheSection: TIDEMenuSection;
// windows menu
mnuWindows: TIDEMenuSection;
// help menu
mnuHelp: TIDEMenuSection;
itmOnlineHelps: TIDEMenuSection;
itmInfoHelps: TIDEMenuSection;
// Source Editor: Popupmenu // Source Editor: Popupmenu
SourceEditorMenuRoot: TIDEMenuSection; SourceEditorMenuRoot: TIDEMenuSection;
// Source Editor: First dynamic section for often used context sensitive stuff // Source Editor: First dynamic section for often used context sensitive stuff
@ -287,8 +374,10 @@ var
// Source Editor: Refactor submenu // Source Editor: Refactor submenu
SrcEditSubMenuRefactor: TIDEMenuSection; SrcEditSubMenuRefactor: TIDEMenuSection;
// Messages window popupmenu
MessagesMenuRoot: TIDEMenuSection; MessagesMenuRoot: TIDEMenuSection;
// CodeExplorer window popupmenu
CodeExplorerMenuRoot: TIDEMenuSection; CodeExplorerMenuRoot: TIDEMenuSection;

2
packager/pkgmanager.pas
View File

@ -2156,7 +2156,7 @@ end;
procedure TPkgManager.SetRecentPackagesMenu; procedure TPkgManager.SetRecentPackagesMenu;
begin begin
MainIDE.SetRecentSubMenu(MainIDEBar.itmPkgOpenRecent, MainIDE.SetRecentSubMenu(itmPkgOpenRecent,
EnvironmentOptions.RecentPackageFiles,@MainIDEitmOpenRecentPackageClicked); EnvironmentOptions.RecentPackageFiles,@MainIDEitmOpenRecentPackageClicked);
end; end;