mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-26 14:57:37 +01:00
IDE: Move View menu in front of Source and Refactor menus.
git-svn-id: trunk@29776 -
This commit is contained in:
juha
parent
62c2fd5bc1
commit
c8c11611e7
58
ide/main.pp
58
ide/main.pp
@ -647,9 +647,9 @@ type
|
|||||||
procedure SetupFileMenu; override;
|
procedure SetupFileMenu; override;
|
||||||
procedure SetupEditMenu; override;
|
procedure SetupEditMenu; override;
|
||||||
procedure SetupSearchMenu; override;
|
procedure SetupSearchMenu; override;
|
||||||
|
procedure SetupViewMenu; override;
|
||||||
procedure SetupSourceMenu; override;
|
procedure SetupSourceMenu; override;
|
||||||
procedure SetupRefactorMenu; override;
|
procedure SetupRefactorMenu; override;
|
||||||
procedure SetupViewMenu; override;
|
|
||||||
procedure SetupProjectMenu; override;
|
procedure SetupProjectMenu; override;
|
||||||
procedure SetupRunMenu; override;
|
procedure SetupRunMenu; override;
|
||||||
procedure SetupComponentsMenu; override;
|
procedure SetupComponentsMenu; override;
|
||||||
@ -2287,9 +2287,9 @@ begin
|
|||||||
SetupFileMenu;
|
SetupFileMenu;
|
||||||
SetupEditMenu;
|
SetupEditMenu;
|
||||||
SetupSearchMenu;
|
SetupSearchMenu;
|
||||||
|
SetupViewMenu;
|
||||||
SetupSourceMenu;
|
SetupSourceMenu;
|
||||||
SetupRefactorMenu;
|
SetupRefactorMenu;
|
||||||
SetupViewMenu;
|
|
||||||
SetupProjectMenu;
|
SetupProjectMenu;
|
||||||
SetupRunMenu;
|
SetupRunMenu;
|
||||||
SetupComponentsMenu;
|
SetupComponentsMenu;
|
||||||
@ -2411,6 +2411,33 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TMainIDE.SetupViewMenu;
|
||||||
|
begin
|
||||||
|
inherited SetupViewMenu;
|
||||||
|
with MainIDEBar do begin
|
||||||
|
itmViewInspector.OnClick := @mnuViewInspectorClicked;
|
||||||
|
itmViewSourceEditor.OnClick := @mnuViewSourceEditorClicked;
|
||||||
|
itmViewCodeExplorer.OnClick := @mnuViewCodeExplorerClick;
|
||||||
|
itmViewCodeBrowser.OnClick := @mnuViewCodeBrowserClick;
|
||||||
|
itmViewRestrictionBrowser.OnClick := @mnuViewRestrictionBrowserClick;
|
||||||
|
itmViewComponents.OnClick := @mnuViewComponentsClick;
|
||||||
|
itmViewFPDocEditor.OnClick := @mnuViewFPDocEditorClicked;
|
||||||
|
itmViewUnits.OnClick := @mnuViewUnitsClicked;
|
||||||
|
itmViewForms.OnClick := @mnuViewFormsClicked;
|
||||||
|
itmViewUnitDependencies.OnClick := @mnuViewUnitDependenciesClicked;
|
||||||
|
itmViewUnitInfo.OnClick := @mnuViewUnitInfoClicked;
|
||||||
|
itmViewToggleFormUnit.OnClick := @mnuToggleFormUnitClicked;
|
||||||
|
itmViewMessage.OnClick := @mnuViewMessagesClick;
|
||||||
|
itmViewSearchResults.OnClick := @mnuViewSearchResultsClick;
|
||||||
|
itmViewAnchorEditor.OnClick := @mnuViewAnchorEditorClicked;
|
||||||
|
itmViewComponentPalette.OnClick := @mnuViewComponentPaletteClicked;
|
||||||
|
itmViewIDESpeedButtons.OnClick := @mnuViewIDESpeedButtonsClicked;
|
||||||
|
|
||||||
|
itmViewFPCInfo.OnClick:=@mnuViewFPCInfoClicked;
|
||||||
|
itmViewIDEInfo.OnClick:=@mnuViewIDEInfoClicked;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TMainIDE.SetupSourceMenu;
|
procedure TMainIDE.SetupSourceMenu;
|
||||||
begin
|
begin
|
||||||
inherited SetupSourceMenu;
|
inherited SetupSourceMenu;
|
||||||
@ -2471,33 +2498,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMainIDE.SetupViewMenu;
|
|
||||||
begin
|
|
||||||
inherited SetupViewMenu;
|
|
||||||
with MainIDEBar do begin
|
|
||||||
itmViewInspector.OnClick := @mnuViewInspectorClicked;
|
|
||||||
itmViewSourceEditor.OnClick := @mnuViewSourceEditorClicked;
|
|
||||||
itmViewCodeExplorer.OnClick := @mnuViewCodeExplorerClick;
|
|
||||||
itmViewCodeBrowser.OnClick := @mnuViewCodeBrowserClick;
|
|
||||||
itmViewRestrictionBrowser.OnClick := @mnuViewRestrictionBrowserClick;
|
|
||||||
itmViewComponents.OnClick := @mnuViewComponentsClick;
|
|
||||||
itmViewFPDocEditor.OnClick := @mnuViewFPDocEditorClicked;
|
|
||||||
itmViewUnits.OnClick := @mnuViewUnitsClicked;
|
|
||||||
itmViewForms.OnClick := @mnuViewFormsClicked;
|
|
||||||
itmViewUnitDependencies.OnClick := @mnuViewUnitDependenciesClicked;
|
|
||||||
itmViewUnitInfo.OnClick := @mnuViewUnitInfoClicked;
|
|
||||||
itmViewToggleFormUnit.OnClick := @mnuToggleFormUnitClicked;
|
|
||||||
itmViewMessage.OnClick := @mnuViewMessagesClick;
|
|
||||||
itmViewSearchResults.OnClick := @mnuViewSearchResultsClick;
|
|
||||||
itmViewAnchorEditor.OnClick := @mnuViewAnchorEditorClicked;
|
|
||||||
itmViewComponentPalette.OnClick := @mnuViewComponentPaletteClicked;
|
|
||||||
itmViewIDESpeedButtons.OnClick := @mnuViewIDESpeedButtonsClicked;
|
|
||||||
|
|
||||||
itmViewFPCInfo.OnClick:=@mnuViewFPCInfoClicked;
|
|
||||||
itmViewIDEInfo.OnClick:=@mnuViewIDEInfoClicked;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TMainIDE.SetupProjectMenu;
|
procedure TMainIDE.SetupProjectMenu;
|
||||||
begin
|
begin
|
||||||
inherited SetupProjectMenu;
|
inherited SetupProjectMenu;
|
||||||
|
|||||||
@ -156,6 +156,43 @@ type
|
|||||||
itmSearchFindIdentifierRefs: TIDEMenuCommand;
|
itmSearchFindIdentifierRefs: TIDEMenuCommand;
|
||||||
itmSearchProcedureList: TIDEMenuCommand;
|
itmSearchProcedureList: TIDEMenuCommand;
|
||||||
|
|
||||||
|
// view menu
|
||||||
|
//mnuView: TIDEMenuSection;
|
||||||
|
//itmViewMainWindows: TIDEMenuSection;
|
||||||
|
itmViewInspector: TIDEMenuCommand;
|
||||||
|
itmViewSourceEditor: TIDEMenuCommand;
|
||||||
|
itmViewCodeExplorer: TIDEMenuCommand;
|
||||||
|
itmViewFPDocEditor: TIDEMenuCommand;
|
||||||
|
itmViewCodeBrowser: TIDEMenuCommand;
|
||||||
|
itmViewRestrictionBrowser: TIDEMenuCommand;
|
||||||
|
itmViewComponents: TIDEMenuCommand;
|
||||||
|
itmJumpHistory: TIDEMenuCommand;
|
||||||
|
//itmViewUnitWindows: TIDEMenuSection;
|
||||||
|
itmViewUnits: TIDEMenuCommand;
|
||||||
|
itmViewForms: TIDEMenuCommand;
|
||||||
|
itmViewUnitDependencies: TIDEMenuCommand;
|
||||||
|
itmViewUnitInfo: TIDEMenuCommand;
|
||||||
|
itmViewToggleFormUnit: TIDEMenuCommand;
|
||||||
|
//itmViewSecondaryWindows: TIDEMenuSection;
|
||||||
|
itmViewAnchorEditor: TIDEMenuCommand;
|
||||||
|
itmViewComponentPalette: TIDEMenuCommand;
|
||||||
|
itmViewIDESpeedButtons: TIDEMenuCommand;
|
||||||
|
itmViewMessage: TIDEMenuCommand;
|
||||||
|
itmViewSearchResults: TIDEMenuCommand;
|
||||||
|
//itmViewDebugWindows: TIDEMenuSection;
|
||||||
|
itmViewWatches: TIDEMenuCommand;
|
||||||
|
itmViewBreakpoints: TIDEMenuCommand;
|
||||||
|
itmViewLocals: TIDEMenuCommand;
|
||||||
|
itmViewRegisters: TIDEMenuCommand;
|
||||||
|
itmViewCallStack: TIDEMenuCommand;
|
||||||
|
itmViewAssembler: TIDEMenuCommand;
|
||||||
|
itmViewDebugOutput: TIDEMenuCommand;
|
||||||
|
itmViewDebugEvents: TIDEMenuCommand;
|
||||||
|
//itmViewIDEInternalsWindows: TIDEMenuSection;
|
||||||
|
itmViewPackageLinks: TIDEMenuCommand;
|
||||||
|
itmViewFPCInfo: TIDEMenuCommand;
|
||||||
|
itmViewIDEInfo: TIDEMenuCommand;
|
||||||
|
|
||||||
// source menu
|
// source menu
|
||||||
//mnuSource: TIDEMenuSection;
|
//mnuSource: TIDEMenuSection;
|
||||||
//itmSourceBlockIndentation: TIDEMenuSection;
|
//itmSourceBlockIndentation: TIDEMenuSection;
|
||||||
@ -207,43 +244,6 @@ type
|
|||||||
//itmRefactorTools: TIDEMenuSection;
|
//itmRefactorTools: TIDEMenuSection;
|
||||||
itmRefactorMakeResourceString: TIDEMenuCommand;
|
itmRefactorMakeResourceString: TIDEMenuCommand;
|
||||||
|
|
||||||
// view menu
|
|
||||||
//mnuView: TIDEMenuSection;
|
|
||||||
//itmViewMainWindows: TIDEMenuSection;
|
|
||||||
itmViewInspector: TIDEMenuCommand;
|
|
||||||
itmViewSourceEditor: TIDEMenuCommand;
|
|
||||||
itmViewCodeExplorer: TIDEMenuCommand;
|
|
||||||
itmViewFPDocEditor: TIDEMenuCommand;
|
|
||||||
itmViewCodeBrowser: TIDEMenuCommand;
|
|
||||||
itmViewRestrictionBrowser: TIDEMenuCommand;
|
|
||||||
itmViewComponents: TIDEMenuCommand;
|
|
||||||
itmJumpHistory: TIDEMenuCommand;
|
|
||||||
//itmViewUnitWindows: TIDEMenuSection;
|
|
||||||
itmViewUnits: TIDEMenuCommand;
|
|
||||||
itmViewForms: TIDEMenuCommand;
|
|
||||||
itmViewUnitDependencies: TIDEMenuCommand;
|
|
||||||
itmViewUnitInfo: TIDEMenuCommand;
|
|
||||||
itmViewToggleFormUnit: TIDEMenuCommand;
|
|
||||||
//itmViewSecondaryWindows: TIDEMenuSection;
|
|
||||||
itmViewAnchorEditor: TIDEMenuCommand;
|
|
||||||
itmViewComponentPalette: TIDEMenuCommand;
|
|
||||||
itmViewIDESpeedButtons: TIDEMenuCommand;
|
|
||||||
itmViewMessage: TIDEMenuCommand;
|
|
||||||
itmViewSearchResults: TIDEMenuCommand;
|
|
||||||
//itmViewDebugWindows: TIDEMenuSection;
|
|
||||||
itmViewWatches: TIDEMenuCommand;
|
|
||||||
itmViewBreakpoints: TIDEMenuCommand;
|
|
||||||
itmViewLocals: TIDEMenuCommand;
|
|
||||||
itmViewRegisters: TIDEMenuCommand;
|
|
||||||
itmViewCallStack: TIDEMenuCommand;
|
|
||||||
itmViewAssembler: TIDEMenuCommand;
|
|
||||||
itmViewDebugOutput: TIDEMenuCommand;
|
|
||||||
itmViewDebugEvents: TIDEMenuCommand;
|
|
||||||
//itmViewIDEInternalsWindows: TIDEMenuSection;
|
|
||||||
itmViewPackageLinks: TIDEMenuCommand;
|
|
||||||
itmViewFPCInfo: TIDEMenuCommand;
|
|
||||||
itmViewIDEInfo: TIDEMenuCommand;
|
|
||||||
|
|
||||||
// project menu
|
// project menu
|
||||||
//mnuProject: TIDEMenuSection;
|
//mnuProject: TIDEMenuSection;
|
||||||
//itmProjectNewSection: TIDEMenuSection;
|
//itmProjectNewSection: TIDEMenuSection;
|
||||||
|
|||||||
106
ide/mainbase.pas
106
ide/mainbase.pas
@ -107,9 +107,9 @@ type
|
|||||||
procedure SetupFileMenu; virtual;
|
procedure SetupFileMenu; virtual;
|
||||||
procedure SetupEditMenu; virtual;
|
procedure SetupEditMenu; virtual;
|
||||||
procedure SetupSearchMenu; virtual;
|
procedure SetupSearchMenu; virtual;
|
||||||
|
procedure SetupViewMenu; virtual;
|
||||||
procedure SetupSourceMenu; virtual;
|
procedure SetupSourceMenu; virtual;
|
||||||
procedure SetupRefactorMenu; virtual;
|
procedure SetupRefactorMenu; virtual;
|
||||||
procedure SetupViewMenu; virtual;
|
|
||||||
procedure SetupProjectMenu; virtual;
|
procedure SetupProjectMenu; virtual;
|
||||||
procedure SetupRunMenu; virtual;
|
procedure SetupRunMenu; virtual;
|
||||||
procedure SetupComponentsMenu; virtual;
|
procedure SetupComponentsMenu; virtual;
|
||||||
@ -356,9 +356,9 @@ begin
|
|||||||
CreateMainMenuItem(mnuFile,'File',lisMenuFile);
|
CreateMainMenuItem(mnuFile,'File',lisMenuFile);
|
||||||
CreateMainMenuItem(mnuEdit,'Edit',lisMenuEdit);
|
CreateMainMenuItem(mnuEdit,'Edit',lisMenuEdit);
|
||||||
CreateMainMenuItem(mnuSearch,'Search',lisMenuSearch);
|
CreateMainMenuItem(mnuSearch,'Search',lisMenuSearch);
|
||||||
|
CreateMainMenuItem(mnuView,'View',lisMenuView);
|
||||||
CreateMainMenuItem(mnuSource,'Source',lisMenuSource);
|
CreateMainMenuItem(mnuSource,'Source',lisMenuSource);
|
||||||
CreateMainMenuItem(mnuRefactor,'Refactor',lisMenuRefactor);
|
CreateMainMenuItem(mnuRefactor,'Refactor',lisMenuRefactor);
|
||||||
CreateMainMenuItem(mnuView,'View',lisMenuView);
|
|
||||||
CreateMainMenuItem(mnuProject,'Project',lisMenuProject);
|
CreateMainMenuItem(mnuProject,'Project',lisMenuProject);
|
||||||
CreateMainMenuItem(mnuRun,'Run',lisMenuRun);
|
CreateMainMenuItem(mnuRun,'Run',lisMenuRun);
|
||||||
CreateMainMenuItem(mnuPackage,'Package',lisMenuPackage);
|
CreateMainMenuItem(mnuPackage,'Package',lisMenuPackage);
|
||||||
@ -490,6 +490,57 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TMainIDEBase.SetupViewMenu;
|
||||||
|
var
|
||||||
|
ParentMI: TIDEMenuSection;
|
||||||
|
begin
|
||||||
|
with MainIDEBar do begin
|
||||||
|
CreateMenuSeparatorSection(mnuView,itmViewMainWindows,'itmViewMainWindows');
|
||||||
|
ParentMI:=itmViewMainWindows;
|
||||||
|
CreateMenuItem(ParentMI,itmViewInspector,'itmViewInspector',lisMenuViewObjectInspector, 'menu_view_inspector');
|
||||||
|
CreateMenuItem(ParentMI,itmViewSourceEditor,'itmViewSourceEditor',lisMenuViewSourceEditor, 'menu_view_source_editor');
|
||||||
|
CreateMenuItem(ParentMI,itmViewMessage,'itmViewMessage',lisMenuViewMessages);
|
||||||
|
CreateMenuItem(ParentMI,itmViewCodeExplorer,'itmViewCodeExplorer',lisMenuViewCodeExplorer, 'menu_view_code_explorer');
|
||||||
|
CreateMenuItem(ParentMI,itmViewFPDocEditor,'itmViewFPDocEditor',lisMenuFPDocEditor);
|
||||||
|
CreateMenuItem(ParentMI,itmViewCodeBrowser,'itmViewCodeBrowser',lisMenuViewCodeBrowser, 'menu_view_code_browser');
|
||||||
|
CreateMenuItem(ParentMI,itmViewRestrictionBrowser,'itmViewRestrictionBrowser',lisMenuViewRestrictionBrowser, 'menu_view_rectriction_browser');
|
||||||
|
CreateMenuItem(ParentMI,itmViewComponents,'itmViewComponents',lisMenuViewComponents);
|
||||||
|
CreateMenuItem(ParentMI,itmJumpHistory,'itmJumpHistory',lisMenuViewJumpHistory);
|
||||||
|
|
||||||
|
CreateMenuSeparatorSection(mnuView,itmViewUnitWindows,'itmViewUnitWindows');
|
||||||
|
ParentMI:=itmViewUnitWindows;
|
||||||
|
CreateMenuItem(ParentMI,itmViewUnits,'itmViewUnits',lisMenuViewUnits, 'menu_view_units');
|
||||||
|
CreateMenuItem(ParentMI,itmViewForms,'itmViewForms',lisMenuViewForms, 'menu_view_forms');
|
||||||
|
CreateMenuItem(ParentMI,itmViewUnitDependencies,'itmViewUnitDependencies',lisMenuViewUnitDependencies);
|
||||||
|
CreateMenuItem(ParentMI,itmViewUnitInfo,'itmViewUnitInfo',lisMenuViewUnitInfo, 'menu_view_unit_info');
|
||||||
|
CreateMenuItem(ParentMI,itmViewToggleFormUnit,'itmViewToggleFormUnit',lisMenuViewToggleFormUnit, 'menu_view_toggle_form_unit');
|
||||||
|
|
||||||
|
CreateMenuSeparatorSection(mnuView,itmViewSecondaryWindows,'itmViewSecondaryWindows');
|
||||||
|
ParentMI:=itmViewSecondaryWindows;
|
||||||
|
CreateMenuItem(ParentMI,itmViewSearchResults,'itmViewSearchResults',lisMenuViewSearchResults);
|
||||||
|
CreateMenuItem(ParentMI,itmViewAnchorEditor,'itmViewAnchorEditor',lisMenuViewAnchorEditor,'menu_view_anchor_editor');
|
||||||
|
CreateMenuItem(ParentMI,itmViewComponentPalette,'itmViewComponentPalette',lisMenuViewComponentPalette, '', true, EnvironmentOptions.ComponentPaletteVisible);
|
||||||
|
CreateMenuItem(ParentMI,itmViewIDESpeedButtons,'itmViewIDESpeedButtons',lisMenuViewIDESpeedButtons, '', true, EnvironmentOptions.IDESpeedButtonsVisible);
|
||||||
|
CreateMenuSubSection(ParentMI,itmViewDebugWindows,'itmViewDebugWindows',lisMenuDebugWindows,'debugger');
|
||||||
|
begin
|
||||||
|
CreateMenuItem(itmViewDebugWindows,itmViewWatches,'itmViewWatches',lisMenuViewWatches,'debugger_watches');
|
||||||
|
CreateMenuItem(itmViewDebugWindows,itmViewBreakPoints,'itmViewBreakPoints',lisMenuViewBreakPoints,'debugger_breakpoints');
|
||||||
|
CreateMenuItem(itmViewDebugWindows,itmViewLocals,'itmViewLocals',lisMenuViewLocalVariables);
|
||||||
|
CreateMenuItem(itmViewDebugWindows,itmViewRegisters,'itmViewRegisters',lisMenuViewRegisters);
|
||||||
|
CreateMenuItem(itmViewDebugWindows,itmViewCallStack,'itmViewCallStack',lisMenuViewCallStack,'debugger_call_stack');
|
||||||
|
CreateMenuItem(itmViewDebugWindows,itmViewAssembler,'itmViewAssembler',lisMenuViewAssembler);
|
||||||
|
CreateMenuItem(itmViewDebugWindows,itmViewDebugEvents,'itmViewDebugEvents',lisMenuViewDebugEvents,''{'debugger_events'});
|
||||||
|
CreateMenuItem(itmViewDebugWindows,itmViewDebugOutput,'itmViewDebugOutput',lisMenuViewDebugOutput,'debugger_output');
|
||||||
|
end;
|
||||||
|
CreateMenuSubSection(ParentMI, itmViewIDEInternalsWindows, 'itmViewIDEInternalsWindows', lisMenuIDEInternals);
|
||||||
|
begin
|
||||||
|
CreateMenuItem(itmViewIDEInternalsWindows, itmViewPackageLinks, 'itmViewPackageLinks', lisMenuPackageLinks);
|
||||||
|
CreateMenuItem(itmViewIDEInternalsWindows, itmViewFPCInfo, 'itmViewFPCInfo', lisMenuAboutFPC);
|
||||||
|
CreateMenuItem(itmViewIDEInternalsWindows, itmViewIDEInfo, 'itmViewIDEInfo', lisAboutIDE);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TMainIDEBase.SetupSourceMenu;
|
procedure TMainIDEBase.SetupSourceMenu;
|
||||||
var
|
var
|
||||||
ParentMI, SubParentMI: TIDEMenuSection;
|
ParentMI, SubParentMI: TIDEMenuSection;
|
||||||
@ -576,57 +627,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMainIDEBase.SetupViewMenu;
|
|
||||||
var
|
|
||||||
ParentMI: TIDEMenuSection;
|
|
||||||
begin
|
|
||||||
with MainIDEBar do begin
|
|
||||||
CreateMenuSeparatorSection(mnuView,itmViewMainWindows,'itmViewMainWindows');
|
|
||||||
ParentMI:=itmViewMainWindows;
|
|
||||||
CreateMenuItem(ParentMI,itmViewInspector,'itmViewInspector',lisMenuViewObjectInspector, 'menu_view_inspector');
|
|
||||||
CreateMenuItem(ParentMI,itmViewSourceEditor,'itmViewSourceEditor',lisMenuViewSourceEditor, 'menu_view_source_editor');
|
|
||||||
CreateMenuItem(ParentMI,itmViewMessage,'itmViewMessage',lisMenuViewMessages);
|
|
||||||
CreateMenuItem(ParentMI,itmViewCodeExplorer,'itmViewCodeExplorer',lisMenuViewCodeExplorer, 'menu_view_code_explorer');
|
|
||||||
CreateMenuItem(ParentMI,itmViewFPDocEditor,'itmViewFPDocEditor',lisMenuFPDocEditor);
|
|
||||||
CreateMenuItem(ParentMI,itmViewCodeBrowser,'itmViewCodeBrowser',lisMenuViewCodeBrowser, 'menu_view_code_browser');
|
|
||||||
CreateMenuItem(ParentMI,itmViewRestrictionBrowser,'itmViewRestrictionBrowser',lisMenuViewRestrictionBrowser, 'menu_view_rectriction_browser');
|
|
||||||
CreateMenuItem(ParentMI,itmViewComponents,'itmViewComponents',lisMenuViewComponents);
|
|
||||||
CreateMenuItem(ParentMI,itmJumpHistory,'itmJumpHistory',lisMenuViewJumpHistory);
|
|
||||||
|
|
||||||
CreateMenuSeparatorSection(mnuView,itmViewUnitWindows,'itmViewUnitWindows');
|
|
||||||
ParentMI:=itmViewUnitWindows;
|
|
||||||
CreateMenuItem(ParentMI,itmViewUnits,'itmViewUnits',lisMenuViewUnits, 'menu_view_units');
|
|
||||||
CreateMenuItem(ParentMI,itmViewForms,'itmViewForms',lisMenuViewForms, 'menu_view_forms');
|
|
||||||
CreateMenuItem(ParentMI,itmViewUnitDependencies,'itmViewUnitDependencies',lisMenuViewUnitDependencies);
|
|
||||||
CreateMenuItem(ParentMI,itmViewUnitInfo,'itmViewUnitInfo',lisMenuViewUnitInfo, 'menu_view_unit_info');
|
|
||||||
CreateMenuItem(ParentMI,itmViewToggleFormUnit,'itmViewToggleFormUnit',lisMenuViewToggleFormUnit, 'menu_view_toggle_form_unit');
|
|
||||||
|
|
||||||
CreateMenuSeparatorSection(mnuView,itmViewSecondaryWindows,'itmViewSecondaryWindows');
|
|
||||||
ParentMI:=itmViewSecondaryWindows;
|
|
||||||
CreateMenuItem(ParentMI,itmViewSearchResults,'itmViewSearchResults',lisMenuViewSearchResults);
|
|
||||||
CreateMenuItem(ParentMI,itmViewAnchorEditor,'itmViewAnchorEditor',lisMenuViewAnchorEditor,'menu_view_anchor_editor');
|
|
||||||
CreateMenuItem(ParentMI,itmViewComponentPalette,'itmViewComponentPalette',lisMenuViewComponentPalette, '', true, EnvironmentOptions.ComponentPaletteVisible);
|
|
||||||
CreateMenuItem(ParentMI,itmViewIDESpeedButtons,'itmViewIDESpeedButtons',lisMenuViewIDESpeedButtons, '', true, EnvironmentOptions.IDESpeedButtonsVisible);
|
|
||||||
CreateMenuSubSection(ParentMI,itmViewDebugWindows,'itmViewDebugWindows',lisMenuDebugWindows,'debugger');
|
|
||||||
begin
|
|
||||||
CreateMenuItem(itmViewDebugWindows,itmViewWatches,'itmViewWatches',lisMenuViewWatches,'debugger_watches');
|
|
||||||
CreateMenuItem(itmViewDebugWindows,itmViewBreakPoints,'itmViewBreakPoints',lisMenuViewBreakPoints,'debugger_breakpoints');
|
|
||||||
CreateMenuItem(itmViewDebugWindows,itmViewLocals,'itmViewLocals',lisMenuViewLocalVariables);
|
|
||||||
CreateMenuItem(itmViewDebugWindows,itmViewRegisters,'itmViewRegisters',lisMenuViewRegisters);
|
|
||||||
CreateMenuItem(itmViewDebugWindows,itmViewCallStack,'itmViewCallStack',lisMenuViewCallStack,'debugger_call_stack');
|
|
||||||
CreateMenuItem(itmViewDebugWindows,itmViewAssembler,'itmViewAssembler',lisMenuViewAssembler);
|
|
||||||
CreateMenuItem(itmViewDebugWindows,itmViewDebugEvents,'itmViewDebugEvents',lisMenuViewDebugEvents,''{'debugger_events'});
|
|
||||||
CreateMenuItem(itmViewDebugWindows,itmViewDebugOutput,'itmViewDebugOutput',lisMenuViewDebugOutput,'debugger_output');
|
|
||||||
end;
|
|
||||||
CreateMenuSubSection(ParentMI, itmViewIDEInternalsWindows, 'itmViewIDEInternalsWindows', lisMenuIDEInternals);
|
|
||||||
begin
|
|
||||||
CreateMenuItem(itmViewIDEInternalsWindows, itmViewPackageLinks, 'itmViewPackageLinks', lisMenuPackageLinks);
|
|
||||||
CreateMenuItem(itmViewIDEInternalsWindows, itmViewFPCInfo, 'itmViewFPCInfo', lisMenuAboutFPC);
|
|
||||||
CreateMenuItem(itmViewIDEInternalsWindows, itmViewIDEInfo, 'itmViewIDEInfo', lisAboutIDE);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TMainIDEBase.SetupProjectMenu;
|
procedure TMainIDEBase.SetupProjectMenu;
|
||||||
var
|
var
|
||||||
ParentMI: TIDEMenuSection;
|
ParentMI: TIDEMenuSection;
|
||||||
|
|||||||
@ -309,6 +309,14 @@ var
|
|||||||
itmBookmarks: TIDEMenuSection;
|
itmBookmarks: TIDEMenuSection;
|
||||||
itmCodeToolSearches: TIDEMenuSection;
|
itmCodeToolSearches: TIDEMenuSection;
|
||||||
|
|
||||||
|
// view menu
|
||||||
|
mnuView: TIDEMenuSection;
|
||||||
|
itmViewMainWindows: TIDEMenuSection;
|
||||||
|
itmViewUnitWindows: TIDEMenuSection;
|
||||||
|
itmViewSecondaryWindows: TIDEMenuSection;
|
||||||
|
itmViewDebugWindows: TIDEMenuSection;
|
||||||
|
itmViewIDEInternalsWindows: TIDEMenuSection;
|
||||||
|
|
||||||
// source menu
|
// source menu
|
||||||
mnuSource: TIDEMenuSection;
|
mnuSource: TIDEMenuSection;
|
||||||
itmSourceBlockIndentation: TIDEMenuSection;
|
itmSourceBlockIndentation: TIDEMenuSection;
|
||||||
@ -324,14 +332,6 @@ var
|
|||||||
itmRefactorAdvanced: TIDEMenuSection;
|
itmRefactorAdvanced: TIDEMenuSection;
|
||||||
itmRefactorTools: TIDEMenuSection;
|
itmRefactorTools: TIDEMenuSection;
|
||||||
|
|
||||||
// view menu
|
|
||||||
mnuView: TIDEMenuSection;
|
|
||||||
itmViewMainWindows: TIDEMenuSection;
|
|
||||||
itmViewUnitWindows: TIDEMenuSection;
|
|
||||||
itmViewSecondaryWindows: TIDEMenuSection;
|
|
||||||
itmViewDebugWindows: TIDEMenuSection;
|
|
||||||
itmViewIDEInternalsWindows: TIDEMenuSection;
|
|
||||||
|
|
||||||
// project menu
|
// project menu
|
||||||
mnuProject: TIDEMenuSection;
|
mnuProject: TIDEMenuSection;
|
||||||
itmProjectNewSection: TIDEMenuSection;
|
itmProjectNewSection: TIDEMenuSection;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user