mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-05 20:18:21 +02:00
IDE: refactoring: merged connecting run menu events and creating idecommands
git-svn-id: trunk@61547 -
This commit is contained in:
mattias
parent
288b31c910
commit
b37a477c7e
@ -167,17 +167,7 @@ const
|
|||||||
BasePath = 'IDECoolBarOptions/';
|
BasePath = 'IDECoolBarOptions/';
|
||||||
|
|
||||||
{ TIDEToolBarOptions }
|
{ TIDEToolBarOptions }
|
||||||
{
|
|
||||||
constructor TIDEToolBarOptions.Create;
|
|
||||||
begin
|
|
||||||
inherited Create;
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor TIDEToolBarOptions.Destroy;
|
|
||||||
begin
|
|
||||||
inherited Destroy;
|
|
||||||
end;
|
|
||||||
}
|
|
||||||
function TIDEToolBarOptions.Equals(Opts: TIDEToolBarOptions): boolean;
|
function TIDEToolBarOptions.Equals(Opts: TIDEToolBarOptions): boolean;
|
||||||
begin
|
begin
|
||||||
Result := inherited Equals(Opts)
|
Result := inherited Equals(Opts)
|
||||||
|
|||||||
298
ide/main.pp
298
ide/main.pp
@ -2802,29 +2802,6 @@ end;
|
|||||||
procedure TMainIDE.SetupRunMenu;
|
procedure TMainIDE.SetupRunMenu;
|
||||||
begin
|
begin
|
||||||
inherited SetupRunMenu;
|
inherited SetupRunMenu;
|
||||||
with MainIDEBar do begin
|
|
||||||
itmRunMenuCompile.OnClick := @mnuCompileProjectClicked;
|
|
||||||
itmRunMenuBuild.OnClick := @mnuBuildProjectClicked;
|
|
||||||
itmRunMenuQuickCompile.OnClick := @mnuQuickCompileProjectClicked;
|
|
||||||
itmRunMenuCleanUpAndBuild.OnClick := @mnuCleanUpAndBuildProjectClicked;
|
|
||||||
itmRunMenuBuildManyModes.OnClick := @mnuBuildManyModesClicked;
|
|
||||||
itmRunMenuAbortBuild.OnClick := @mnuAbortBuildProjectClicked;
|
|
||||||
itmRunMenuRunWithoutDebugging.OnClick := @mnuRunMenuRunWithoutDebugging;
|
|
||||||
itmRunMenuRun.OnClick := @mnuRunProjectClicked;
|
|
||||||
itmRunMenuPause.OnClick := @mnuPauseProjectClicked;
|
|
||||||
itmRunMenuShowExecutionPoint.OnClick := @mnuShowExecutionPointClicked;
|
|
||||||
itmRunMenuStepInto.OnClick := @mnuStepIntoProjectClicked;
|
|
||||||
itmRunMenuStepOver.OnClick := @mnuStepOverProjectClicked;
|
|
||||||
itmRunMenuStepOut.OnClick := @mnuStepOutProjectClicked;
|
|
||||||
itmRunMenuRunToCursor.OnClick := @mnuRunToCursorProjectClicked;
|
|
||||||
itmRunMenuStop.OnClick := @mnuStopProjectClicked;
|
|
||||||
itmRunMenuAttach.OnClick := @mnuAttachDebuggerClicked;
|
|
||||||
itmRunMenuDetach.OnClick := @mnuDetachDebuggerClicked;
|
|
||||||
itmRunMenuRunParameters.OnClick := @mnuRunParametersClicked;
|
|
||||||
itmRunMenuBuildFile.OnClick := @mnuBuildFileClicked;
|
|
||||||
itmRunMenuRunFile.OnClick := @mnuRunFileClicked;
|
|
||||||
itmRunMenuConfigBuildFile.OnClick := @mnuConfigBuildFileClicked;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMainIDE.SetupPackageMenu;
|
procedure TMainIDE.SetupPackageMenu;
|
||||||
@ -2874,8 +2851,276 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMainIDE.LoadMenuShortCuts;
|
procedure TMainIDE.LoadMenuShortCuts;
|
||||||
|
|
||||||
|
function GetCmdAndBtn(ACommand: word; out ToolButton: TIDEButtonCommand): TIDECommand;
|
||||||
|
begin
|
||||||
|
Result:=IDECommandList.FindIDECommand(ACommand);
|
||||||
|
if Result<>nil then
|
||||||
|
ToolButton := RegisterIDEButtonCommand(Result)
|
||||||
|
else
|
||||||
|
ToolButton := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetCommand(ACommand: word): TIDECommand;
|
||||||
|
var
|
||||||
|
ToolButton: TIDEButtonCommand;
|
||||||
|
begin
|
||||||
|
Result:=GetCmdAndBtn(ACommand, ToolButton);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetCommand(ACommand: word; const OnExecute: TNotifyEvent;
|
||||||
|
ToolButtonClass: TIDEToolButtonClass = nil): TIDECommand;
|
||||||
|
var
|
||||||
|
ToolButton: TIDEButtonCommand;
|
||||||
|
begin
|
||||||
|
Result:=GetCmdAndBtn(ACommand, ToolButton);
|
||||||
|
if OnExecute<>nil then begin
|
||||||
|
if Result.OnExecute<>nil then
|
||||||
|
debugln(['WARNING: GetCommand ',ACommand,' OnExecute set twice. Different=',OnExecute<>Result.OnExecute]);
|
||||||
|
Result.OnExecute:=OnExecute;
|
||||||
|
end;
|
||||||
|
if ToolButtonClass<>nil then
|
||||||
|
ToolButton.ToolButtonClass := ToolButtonClass;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
xBtnItem: TIDEButtonCommand;
|
||||||
begin
|
begin
|
||||||
inherited LoadMenuShortCuts;
|
with MainIDEBar do begin
|
||||||
|
// file menu
|
||||||
|
itmFileNewUnit.Command:=GetCommand(ecNewUnit, nil, TNewUnitToolButton);
|
||||||
|
itmFileNewForm.Command:=GetCommand(ecNewForm, nil, TNewFormToolButton);
|
||||||
|
itmFileNewOther.Command:=GetCommand(ecNew);
|
||||||
|
itmFileOpen.Command:=GetCommand(ecOpen, nil, TOpenFileToolButton);
|
||||||
|
itmFileOpenUnit.Command:=GetCommand(ecOpenUnit);
|
||||||
|
itmFileRevert.Command:=GetCommand(ecRevert);
|
||||||
|
itmFileSave.Command:=GetCommand(ecSave);
|
||||||
|
itmFileSaveAs.Command:=GetCommand(ecSaveAs);
|
||||||
|
itmFileSaveAll.Command:=GetCommand(ecSaveAll);
|
||||||
|
itmFileClose.Command:=GetCommand(ecClose);
|
||||||
|
itmFileCloseAll.Command:=GetCommand(ecCloseAll);
|
||||||
|
itmFileCleanDirectory.Command:=GetCommand(ecCleanDirectory);
|
||||||
|
itmFileQuit.Command:=GetCommand(ecQuit);
|
||||||
|
|
||||||
|
// edit menu
|
||||||
|
itmEditUndo.Command:=GetCommand(ecUndo);
|
||||||
|
itmEditRedo.Command:=GetCommand(ecRedo);
|
||||||
|
itmEditCut.Command:=GetCommand(ecCut);
|
||||||
|
itmEditCopy.Command:=GetCommand(ecCopy);
|
||||||
|
itmEditPaste.Command:=GetCommand(ecPaste);
|
||||||
|
itmEditMultiPaste.Command:=GetCommand(ecMultiPaste);
|
||||||
|
|
||||||
|
itmEditSelectAll.Command:=GetCommand(ecSelectAll);
|
||||||
|
itmEditSelectToBrace.Command:=GetCommand(ecSelectToBrace);
|
||||||
|
itmEditSelectCodeBlock.Command:=GetCommand(ecSelectCodeBlock);
|
||||||
|
itmEditSelectWord.Command:=GetCommand(ecSelectWord);
|
||||||
|
itmEditSelectLine.Command:=GetCommand(ecSelectLine);
|
||||||
|
itmEditSelectParagraph.Command:=GetCommand(ecSelectParagraph);
|
||||||
|
|
||||||
|
itmEditIndentBlock.Command:=GetCommand(ecBlockIndent);
|
||||||
|
itmEditUnindentBlock.Command:=GetCommand(ecBlockUnindent);
|
||||||
|
itmEditUpperCaseBlock.Command:=GetCommand(ecSelectionUpperCase);
|
||||||
|
itmEditLowerCaseBlock.Command:=GetCommand(ecSelectionLowerCase);
|
||||||
|
itmEditSwapCaseBlock.Command:=GetCommand(ecSelectionSwapCase);
|
||||||
|
itmEditSortBlock.Command:=GetCommand(ecSelectionSort);
|
||||||
|
itmEditTabsToSpacesBlock.Command:=GetCommand(ecSelectionTabs2Spaces);
|
||||||
|
itmEditSelectionBreakLines.Command:=GetCommand(ecSelectionBreakLines);
|
||||||
|
|
||||||
|
itmEditInsertCharacter.Command:=GetCommand(ecInsertCharacter);
|
||||||
|
|
||||||
|
// search menu
|
||||||
|
itmSearchFind.Command:=GetCommand(ecFind);
|
||||||
|
itmSearchFindNext.Command:=GetCommand(ecFindNext);
|
||||||
|
itmSearchFindPrevious.Command:=GetCommand(ecFindPrevious);
|
||||||
|
itmSearchFindInFiles.Command:=GetCommand(ecFindInFiles);
|
||||||
|
itmSearchFindIdentifierRefs.Command:=GetCommand(ecFindIdentifierRefs);
|
||||||
|
itmSearchReplace.Command:=GetCommand(ecReplace);
|
||||||
|
itmIncrementalFind.Command:=GetCommand(ecIncrementalFind);
|
||||||
|
itmGotoLine.Command:=GetCommand(ecGotoLineNumber);
|
||||||
|
itmJumpBack.Command:=GetCommand(ecJumpBack);
|
||||||
|
itmJumpForward.Command:=GetCommand(ecJumpForward);
|
||||||
|
itmAddJumpPoint.Command:=GetCommand(ecAddJumpPoint);
|
||||||
|
itmJumpToNextError.Command:=GetCommand(ecJumpToNextError);
|
||||||
|
itmJumpToPrevError.Command:=GetCommand(ecJumpToPrevError);
|
||||||
|
itmSetFreeBookmark.Command:=GetCommand(ecSetFreeBookmark);
|
||||||
|
itmJumpToNextBookmark.Command:=GetCommand(ecNextBookmark);
|
||||||
|
itmJumpToPrevBookmark.Command:=GetCommand(ecPrevBookmark);
|
||||||
|
itmJumpToInterface.Command:=GetCommand(ecJumpToInterface, nil, TJumpToSectionToolButton);
|
||||||
|
itmJumpToInterfaceUses.Command:=GetCommand(ecJumpToInterfaceUses, nil, TJumpToSectionToolButton);
|
||||||
|
itmJumpToImplementation.Command:=GetCommand(ecJumpToImplementation, nil, TJumpToSectionToolButton);
|
||||||
|
itmJumpToImplementationUses.Command:=GetCommand(ecJumpToImplementationUses, nil, TJumpToSectionToolButton);
|
||||||
|
itmJumpToInitialization.Command:=GetCommand(ecJumpToInitialization, nil, TJumpToSectionToolButton);
|
||||||
|
GetCmdAndBtn(ecJumpToProcedureHeader, xBtnItem);
|
||||||
|
xBtnItem.Caption := lisMenuJumpToProcedureHeader;
|
||||||
|
xBtnItem.OnClick := @SourceEditorManager.JumpToProcedureHeaderClicked;
|
||||||
|
xBtnItem.ImageIndex := IDEImages.LoadImage('menu_jumpto_procedureheader');
|
||||||
|
GetCmdAndBtn(ecJumpToProcedureBegin, xBtnItem);
|
||||||
|
xBtnItem.Caption := lisMenuJumpToProcedureBegin;
|
||||||
|
xBtnItem.ImageIndex := IDEImages.LoadImage('menu_jumpto_procedurebegin');
|
||||||
|
xBtnItem.OnClick := @SourceEditorManager.JumpToProcedureBeginClicked;
|
||||||
|
itmFindBlockOtherEnd.Command:=GetCommand(ecFindBlockOtherEnd);
|
||||||
|
itmFindBlockStart.Command:=GetCommand(ecFindBlockStart);
|
||||||
|
itmFindDeclaration.Command:=GetCommand(ecFindDeclaration);
|
||||||
|
itmOpenFileAtCursor.Command:=GetCommand(ecOpenFileAtCursor);
|
||||||
|
itmGotoIncludeDirective.Command:=GetCommand(ecGotoIncludeDirective);
|
||||||
|
itmSearchProcedureList.Command:=GetCommand(ecProcedureList);
|
||||||
|
|
||||||
|
// view menu
|
||||||
|
itmViewToggleFormUnit.Command:=GetCommand(ecToggleFormUnit);
|
||||||
|
itmViewInspector.Command:=GetCommand(ecToggleObjectInsp);
|
||||||
|
itmViewSourceEditor.Command:=GetCommand(ecToggleSourceEditor);
|
||||||
|
itmViewCodeExplorer.Command:=GetCommand(ecToggleCodeExpl);
|
||||||
|
itmViewFPDocEditor.Command:=GetCommand(ecToggleFPDocEditor);
|
||||||
|
itmViewCodeBrowser.Command:=GetCommand(ecToggleCodeBrowser);
|
||||||
|
itmViewRestrictionBrowser.Command:=GetCommand(ecToggleRestrictionBrowser);
|
||||||
|
itmViewComponents.Command:=GetCommand(ecViewComponents);
|
||||||
|
itmMacroListView.Command:=GetCommand(ecViewMacroList);
|
||||||
|
itmJumpHistory.Command:=GetCommand(ecViewJumpHistory);
|
||||||
|
itmViewMessage.Command:=GetCommand(ecToggleMessages);
|
||||||
|
itmViewSearchResults.Command:=GetCommand(ecToggleSearchResults);
|
||||||
|
itmViewAnchorEditor.Command:=GetCommand(ecViewAnchorEditor);
|
||||||
|
itmViewTabOrder.Command:=GetCommand(ecViewTabOrder);
|
||||||
|
//itmPkgPackageLinks.Command:=GetCommand(ec?);
|
||||||
|
|
||||||
|
// source menu
|
||||||
|
itmSourceCommentBlock.Command:=GetCommand(ecSelectionComment);
|
||||||
|
itmSourceUncommentBlock.Command:=GetCommand(ecSelectionUncomment);
|
||||||
|
itmSourceToggleComment.Command:=GetCommand(ecToggleComment);
|
||||||
|
itmSourceEncloseBlock.Command:=GetCommand(ecSelectionEnclose);
|
||||||
|
itmSourceEncloseInIFDEF.Command:=GetCommand(ecSelectionEncloseIFDEF);
|
||||||
|
itmSourceCompleteCodeInteractive.Command:=GetCommand(ecCompleteCodeInteractive);
|
||||||
|
itmSourceUseUnit.Command:=GetCommand(ecUseUnit);
|
||||||
|
|
||||||
|
itmSourceSyntaxCheck.Command:=GetCommand(ecSyntaxCheck);
|
||||||
|
itmSourceGuessUnclosedBlock.Command:=GetCommand(ecGuessUnclosedBlock);
|
||||||
|
itmSourceGuessMisplacedIFDEF.Command:=GetCommand(ecGuessMisplacedIFDEF);
|
||||||
|
|
||||||
|
itmSourceInsertCVSAuthor.Command:=GetCommand(ecInsertCVSAuthor);
|
||||||
|
itmSourceInsertCVSDate.Command:=GetCommand(ecInsertCVSDate);
|
||||||
|
itmSourceInsertCVSHeader.Command:=GetCommand(ecInsertCVSHeader);
|
||||||
|
itmSourceInsertCVSID.Command:=GetCommand(ecInsertCVSID);
|
||||||
|
itmSourceInsertCVSLog.Command:=GetCommand(ecInsertCVSLog);
|
||||||
|
itmSourceInsertCVSName.Command:=GetCommand(ecInsertCVSName);
|
||||||
|
itmSourceInsertCVSRevision.Command:=GetCommand(ecInsertCVSRevision);
|
||||||
|
itmSourceInsertCVSSource.Command:=GetCommand(ecInsertCVSSource);
|
||||||
|
|
||||||
|
itmSourceInsertGPLNotice.Command:=GetCommand(ecInsertGPLNotice);
|
||||||
|
itmSourceInsertGPLNoticeTranslated.Command:=GetCommand(ecInsertGPLNoticeTranslated);
|
||||||
|
itmSourceInsertLGPLNotice.Command:=GetCommand(ecInsertLGPLNotice);
|
||||||
|
itmSourceInsertLGPLNoticeTranslated.Command:=GetCommand(ecInsertLGPLNoticeTranslated);
|
||||||
|
itmSourceInsertModifiedLGPLNotice.Command:=GetCommand(ecInsertModifiedLGPLNotice);
|
||||||
|
itmSourceInsertModifiedLGPLNoticeTranslated.Command:=GetCommand(ecInsertModifiedLGPLNoticeTranslated);
|
||||||
|
itmSourceInsertMITNotice.Command:=GetCommand(ecInsertMITNotice);
|
||||||
|
itmSourceInsertMITNoticeTranslated.Command:=GetCommand(ecInsertMITNoticeTranslated);
|
||||||
|
itmSourceInsertUsername.Command:=GetCommand(ecInsertUserName);
|
||||||
|
itmSourceInsertDateTime.Command:=GetCommand(ecInsertDateTime);
|
||||||
|
itmSourceInsertChangeLogEntry.Command:=GetCommand(ecInsertChangeLogEntry);
|
||||||
|
itmSourceInsertGUID.Command:=GetCommand(ecInsertGUID);
|
||||||
|
itmSourceInsertFilename.Command:=GetCommand(ecInsertFilename);
|
||||||
|
|
||||||
|
itmSourceUnitInfo.Command:=GetCommand(ecViewUnitInfo);
|
||||||
|
itmSourceUnitDependencies.Command:=GetCommand(ecViewUnitDependencies);
|
||||||
|
|
||||||
|
// refactor menu
|
||||||
|
itmRefactorRenameIdentifier.Command:=GetCommand(ecRenameIdentifier);
|
||||||
|
itmRefactorExtractProc.Command:=GetCommand(ecExtractProc);
|
||||||
|
itmRefactorInvertAssignment.Command:=GetCommand(ecInvertAssignment);
|
||||||
|
|
||||||
|
itmRefactorShowAbstractMethods.Command:=GetCommand(ecShowAbstractMethods);
|
||||||
|
itmRefactorShowEmptyMethods.Command:=GetCommand(ecRemoveEmptyMethods);
|
||||||
|
itmRefactorShowUnusedUnits.Command:=GetCommand(ecRemoveUnusedUnits);
|
||||||
|
{$IFDEF EnableFindOverloads}
|
||||||
|
itmRefactorFindOverloads.Command:=GetCommand(ecFindOverloads);
|
||||||
|
{$ENDIF}
|
||||||
|
itmRefactorMakeResourceString.Command:=GetCommand(ecMakeResourceString);
|
||||||
|
|
||||||
|
// project menu
|
||||||
|
itmProjectNew.Command:=GetCommand(ecNewProject);
|
||||||
|
itmProjectNewFromFile.Command:=GetCommand(ecNewProjectFromFile);
|
||||||
|
itmProjectOpen.Command:=GetCommand(ecOpenProject);
|
||||||
|
itmProjectClose.Command:=GetCommand(ecCloseProject);
|
||||||
|
itmProjectSave.Command:=GetCommand(ecSaveProject);
|
||||||
|
itmProjectSaveAs.Command:=GetCommand(ecSaveProjectAs);
|
||||||
|
itmProjectResaveFormsWithI18n.Command:=GetCommand(ecProjectResaveFormsWithI18n);
|
||||||
|
itmProjectPublish.Command:=GetCommand(ecPublishProject);
|
||||||
|
itmProjectInspector.Command:=GetCommand(ecProjectInspector);
|
||||||
|
itmProjectOptions.Command:=GetCommand(ecProjectOptions);
|
||||||
|
itmProjectAddTo.Command:=GetCommand(ecAddCurUnitToProj);
|
||||||
|
itmProjectRemoveFrom.Command:=GetCommand(ecRemoveFromProj);
|
||||||
|
itmProjectViewUnits.Command:=GetCommand(ecViewProjectUnits);
|
||||||
|
itmProjectViewForms.Command:=GetCommand(ecViewProjectForms);
|
||||||
|
itmProjectViewSource.Command:=GetCommand(ecViewProjectSource);
|
||||||
|
GetCmdAndBtn(ecProjectChangeBuildMode, xBtnItem);
|
||||||
|
xBtnItem.Caption := lisChangeBuildMode;
|
||||||
|
xBtnItem.ToolButtonClass:=TSetBuildModeToolButton;
|
||||||
|
xBtnItem.ImageIndex := IDEImages.LoadImage('menu_compiler_options');
|
||||||
|
xBtnItem.OnClick := @mnuBuildModeClicked;
|
||||||
|
|
||||||
|
// run menu
|
||||||
|
itmRunMenuCompile.Command:=GetCommand(ecCompile, @mnuCompileProjectClicked);
|
||||||
|
itmRunMenuBuild.Command:=GetCommand(ecBuild, @mnuBuildProjectClicked);
|
||||||
|
itmRunMenuQuickCompile.Command:=GetCommand(ecQuickCompile, @mnuQuickCompileProjectClicked);
|
||||||
|
itmRunMenuCleanUpAndBuild.Command:=GetCommand(ecCleanUpAndBuild, @mnuCleanUpAndBuildProjectClicked);
|
||||||
|
itmRunMenuBuildManyModes.Command:=GetCommand(ecBuildManyModes, @mnuBuildManyModesClicked);
|
||||||
|
itmRunMenuAbortBuild.Command:=GetCommand(ecAbortBuild, @mnuAbortBuildProjectClicked);
|
||||||
|
itmRunMenuRunWithoutDebugging.Command:=GetCommand(ecRunWithoutDebugging, @mnuRunMenuRunWithoutDebugging);
|
||||||
|
itmRunMenuRun.Command:=GetCommand(ecRun, @mnuRunProjectClicked, TRunToolButton);
|
||||||
|
itmRunMenuPause.Command:=GetCommand(ecPause, @mnuPauseProjectClicked);
|
||||||
|
itmRunMenuShowExecutionPoint.Command:=GetCommand(ecShowExecutionPoint, @mnuShowExecutionPointClicked);
|
||||||
|
itmRunMenuStepInto.Command:=GetCommand(ecStepInto, @mnuStepIntoProjectClicked);
|
||||||
|
itmRunMenuStepOver.Command:=GetCommand(ecStepOver, @mnuStepOverProjectClicked);
|
||||||
|
itmRunMenuStepOut.Command:=GetCommand(ecStepOut, @mnuStepOutProjectClicked);
|
||||||
|
itmRunMenuRunToCursor.Command:=GetCommand(ecRunToCursor, @mnuRunToCursorProjectClicked);
|
||||||
|
itmRunMenuStop.Command:=GetCommand(ecStopProgram, @mnuStopProjectClicked);
|
||||||
|
itmRunMenuAttach.Command:=GetCommand(ecAttach, @mnuAttachDebuggerClicked);
|
||||||
|
itmRunMenuDetach.Command:=GetCommand(ecDetach, @mnuDetachDebuggerClicked);
|
||||||
|
itmRunMenuResetDebugger.Command:=GetCommand(ecResetDebugger);
|
||||||
|
itmRunMenuRunParameters.Command:=GetCommand(ecRunParameters, @mnuRunParametersClicked);
|
||||||
|
itmRunMenuBuildFile.Command:=GetCommand(ecBuildFile, @mnuBuildFileClicked);
|
||||||
|
itmRunMenuRunFile.Command:=GetCommand(ecRunFile, @mnuRunFileClicked);
|
||||||
|
itmRunMenuConfigBuildFile.Command:=GetCommand(ecConfigBuildFile, @mnuConfigBuildFileClicked);
|
||||||
|
|
||||||
|
// package menu
|
||||||
|
itmPkgNewPackage.Command:=GetCommand(ecNewPackage);
|
||||||
|
itmPkgOpenLoadedPackage.Command:=GetCommand(ecOpenPackage);
|
||||||
|
itmPkgOpenPackageFile.Command:=GetCommand(ecOpenPackageFile);
|
||||||
|
itmPkgOpenPackageOfCurUnit.Command:=GetCommand(ecOpenPackageOfCurUnit);
|
||||||
|
itmPkgAddCurFileToPkg.Command:=GetCommand(ecAddCurFileToPkg);
|
||||||
|
itmPkgAddNewComponentToPkg.Command:=GetCommand(ecNewPkgComponent);
|
||||||
|
itmPkgPkgGraph.Command:=GetCommand(ecPackageGraph);
|
||||||
|
itmPkgPackageLinks.Command:=GetCommand(ecPackageLinks);
|
||||||
|
itmPkgEditInstallPkgs.Command:=GetCommand(ecEditInstallPkgs);
|
||||||
|
|
||||||
|
// tools menu
|
||||||
|
itmEnvGeneralOptions.Command:=GetCommand(ecEnvironmentOptions);
|
||||||
|
itmToolRescanFPCSrcDir.Command:=GetCommand(ecRescanFPCSrcDir);
|
||||||
|
itmEnvCodeTemplates.Command:=GetCommand(ecEditCodeTemplates);
|
||||||
|
itmEnvCodeToolsDefinesEditor.Command:=GetCommand(ecCodeToolsDefinesEd);
|
||||||
|
|
||||||
|
itmToolConfigure.Command:=GetCommand(ecExtToolSettings);
|
||||||
|
|
||||||
|
itmToolManageDesktops.Command:=GetCommand(ecManageDesktops, nil, TShowDesktopsToolButton);
|
||||||
|
itmToolManageExamples.Command:=GetCommand(ecManageExamples);
|
||||||
|
itmToolDiff.Command:=GetCommand(ecDiff);
|
||||||
|
|
||||||
|
itmToolConvertDFMtoLFM.Command:=GetCommand(ecConvertDFM2LFM);
|
||||||
|
itmToolCheckLFM.Command:=GetCommand(ecCheckLFM);
|
||||||
|
itmToolConvertDelphiUnit.Command:=GetCommand(ecConvertDelphiUnit);
|
||||||
|
itmToolConvertDelphiProject.Command:=GetCommand(ecConvertDelphiProject);
|
||||||
|
itmToolConvertDelphiPackage.Command:=GetCommand(ecConvertDelphiPackage);
|
||||||
|
itmToolConvertEncoding.Command:=GetCommand(ecConvertEncoding);
|
||||||
|
itmToolBuildLazarus.Command:=GetCommand(ecBuildLazarus);
|
||||||
|
itmToolConfigureBuildLazarus.Command:=GetCommand(ecConfigBuildLazarus);
|
||||||
|
|
||||||
|
// window menu
|
||||||
|
itmWindowManager.Command:=GetCommand(ecManageSourceEditors);
|
||||||
|
|
||||||
|
// help menu
|
||||||
|
itmHelpAboutLazarus.Command:=GetCommand(ecAboutLazarus);
|
||||||
|
itmHelpOnlineHelp.Command:=GetCommand(ecOnlineHelp);
|
||||||
|
itmHelpReportingBug.Command:=GetCommand(ecReportingBug);
|
||||||
|
end;
|
||||||
|
|
||||||
SourceEditorManager.SetupShortCuts;
|
SourceEditorManager.SetupShortCuts;
|
||||||
DebugBoss.SetupMainBarShortCuts;
|
DebugBoss.SetupMainBarShortCuts;
|
||||||
end;
|
end;
|
||||||
@ -3237,7 +3482,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMainIDE.ProcessIDECommand(Sender: TObject;
|
procedure TMainIDE.ProcessIDECommand(Sender: TObject;
|
||||||
Command: word; var Handled: boolean);
|
Command: word; var Handled: boolean);
|
||||||
|
|
||||||
function IsOnWindow(Wnd: TWinControl): boolean;
|
function IsOnWindow(Wnd: TWinControl): boolean;
|
||||||
begin
|
begin
|
||||||
@ -3309,7 +3554,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
ecDetach: DebugBoss.Detach;
|
ecDetach: DebugBoss.Detach;
|
||||||
ecBuild: DoBuildProject(crBuild, []);
|
|
||||||
ecCleanUpAndBuild: mnuCleanUpAndBuildProjectClicked(nil);
|
ecCleanUpAndBuild: mnuCleanUpAndBuildProjectClicked(nil);
|
||||||
ecQuickCompile: DoQuickCompile;
|
ecQuickCompile: DoQuickCompile;
|
||||||
ecAbortBuild: DoAbortBuild(false);
|
ecAbortBuild: DoAbortBuild(false);
|
||||||
@ -3602,7 +3846,7 @@ begin
|
|||||||
inherited SetToolStatus(AValue);
|
inherited SetToolStatus(AValue);
|
||||||
if DebugBoss <> nil then
|
if DebugBoss <> nil then
|
||||||
DebugBoss.UpdateButtonsAndMenuItems;
|
DebugBoss.UpdateButtonsAndMenuItems;
|
||||||
if Assigned(MainIDEBar) and not IDEIsClosing then
|
if Assigned(MainIDEBar) and not IDEIsClosing and not (csDestroying in ComponentState)then
|
||||||
MainIDEBar.AllowCompilation(ToolStatus <> itBuilder); // Disable some GUI controls while compiling.
|
MainIDEBar.AllowCompilation(ToolStatus <> itBuilder); // Disable some GUI controls while compiling.
|
||||||
if FWaitForClose and (ToolStatus = itNone) then
|
if FWaitForClose and (ToolStatus = itNone) then
|
||||||
begin
|
begin
|
||||||
|
|||||||
@ -690,6 +690,7 @@ var
|
|||||||
I: Integer;
|
I: Integer;
|
||||||
CoolBand: TCoolBand;
|
CoolBand: TCoolBand;
|
||||||
CoolBarOpts: TIDECoolBarOptions;
|
CoolBarOpts: TIDECoolBarOptions;
|
||||||
|
CurToolBar: TIDEToolBar;
|
||||||
begin
|
begin
|
||||||
CoolBarOpts := EnvironmentOptions.Desktop.IDECoolBarOptions;
|
CoolBarOpts := EnvironmentOptions.Desktop.IDECoolBarOptions;
|
||||||
//read general settings
|
//read general settings
|
||||||
@ -707,13 +708,19 @@ begin
|
|||||||
IDECoolBar.Sort;
|
IDECoolBar.Sort;
|
||||||
for I := 0 to IDECoolBar.ToolBars.Count - 1 do
|
for I := 0 to IDECoolBar.ToolBars.Count - 1 do
|
||||||
begin
|
begin
|
||||||
CoolBand := CoolBar.Bands.Add;
|
CurToolBar:=IDECoolBar.ToolBars[I];
|
||||||
CoolBand.Break := IDECoolBar.ToolBars[I].CurrentOptions.Break;
|
CurToolBar.ToolBar.BeginUpdate;
|
||||||
CoolBand.Control := IDECoolBar.ToolBars[I].ToolBar;
|
try
|
||||||
CoolBand.MinWidth := 25;
|
CoolBand := CoolBar.Bands.Add;
|
||||||
CoolBand.MinHeight := 22;
|
CoolBand.Break := CurToolBar.CurrentOptions.Break;
|
||||||
CoolBand.FixedSize := True;
|
CoolBand.Control := CurToolBar.ToolBar;
|
||||||
IDECoolBar.ToolBars[I].UseCurrentOptions;
|
CoolBand.MinWidth := 25;
|
||||||
|
CoolBand.MinHeight := 22;
|
||||||
|
CoolBand.FixedSize := True;
|
||||||
|
CurToolBar.UseCurrentOptions;
|
||||||
|
finally
|
||||||
|
CurToolBar.ToolBar.EndUpdate;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
CoolBar.AutoAdjustLayout(lapAutoAdjustForDPI, 96, PixelsPerInch, 0, 0);
|
CoolBar.AutoAdjustLayout(lapAutoAdjustForDPI, 96, PixelsPerInch, 0, 0);
|
||||||
CoolBar.AutosizeBands;
|
CoolBar.AutosizeBands;
|
||||||
|
|||||||
261
ide/mainbase.pas
261
ide/mainbase.pas
@ -1523,268 +1523,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMainIDEBase.LoadMenuShortCuts;
|
procedure TMainIDEBase.LoadMenuShortCuts;
|
||||||
|
|
||||||
function GetCmdAndBtn(ACommand: word; out ToolButton: TIDEButtonCommand): TIDECommand;
|
|
||||||
begin
|
|
||||||
Result:=IDECommandList.FindIDECommand(ACommand);
|
|
||||||
if Result<>nil then
|
|
||||||
ToolButton := RegisterIDEButtonCommand(Result)
|
|
||||||
else
|
|
||||||
ToolButton := nil;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function GetCommand(ACommand: word): TIDECommand;
|
|
||||||
var
|
|
||||||
ToolButton: TIDEButtonCommand;
|
|
||||||
begin
|
|
||||||
Result:=GetCmdAndBtn(ACommand, ToolButton);
|
|
||||||
end;
|
|
||||||
|
|
||||||
function GetCommand(ACommand: word; ToolButtonClass: TIDEToolButtonClass): TIDECommand;
|
|
||||||
var
|
|
||||||
ToolButton: TIDEButtonCommand;
|
|
||||||
begin
|
|
||||||
Result:=GetCmdAndBtn(ACommand, ToolButton);
|
|
||||||
if ToolButton<>nil then
|
|
||||||
ToolButton.ToolButtonClass := ToolButtonClass;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
xBtnItem: TIDEButtonCommand;
|
|
||||||
begin
|
begin
|
||||||
with MainIDEBar do begin
|
|
||||||
// file menu
|
|
||||||
itmFileNewUnit.Command:=GetCommand(ecNewUnit, TNewUnitToolButton);
|
|
||||||
itmFileNewForm.Command:=GetCommand(ecNewForm, TNewFormToolButton);
|
|
||||||
itmFileNewOther.Command:=GetCommand(ecNew);
|
|
||||||
itmFileOpen.Command:=GetCommand(ecOpen, TOpenFileToolButton);
|
|
||||||
itmFileOpenUnit.Command:=GetCommand(ecOpenUnit);
|
|
||||||
itmFileRevert.Command:=GetCommand(ecRevert);
|
|
||||||
itmFileSave.Command:=GetCommand(ecSave);
|
|
||||||
itmFileSaveAs.Command:=GetCommand(ecSaveAs);
|
|
||||||
itmFileSaveAll.Command:=GetCommand(ecSaveAll);
|
|
||||||
itmFileClose.Command:=GetCommand(ecClose);
|
|
||||||
itmFileCloseAll.Command:=GetCommand(ecCloseAll);
|
|
||||||
itmFileCleanDirectory.Command:=GetCommand(ecCleanDirectory);
|
|
||||||
itmFileQuit.Command:=GetCommand(ecQuit);
|
|
||||||
|
|
||||||
// edit menu
|
|
||||||
itmEditUndo.Command:=GetCommand(ecUndo);
|
|
||||||
itmEditRedo.Command:=GetCommand(ecRedo);
|
|
||||||
itmEditCut.Command:=GetCommand(ecCut);
|
|
||||||
itmEditCopy.Command:=GetCommand(ecCopy);
|
|
||||||
itmEditPaste.Command:=GetCommand(ecPaste);
|
|
||||||
itmEditMultiPaste.Command:=GetCommand(ecMultiPaste);
|
|
||||||
|
|
||||||
itmEditSelectAll.Command:=GetCommand(ecSelectAll);
|
|
||||||
itmEditSelectToBrace.Command:=GetCommand(ecSelectToBrace);
|
|
||||||
itmEditSelectCodeBlock.Command:=GetCommand(ecSelectCodeBlock);
|
|
||||||
itmEditSelectWord.Command:=GetCommand(ecSelectWord);
|
|
||||||
itmEditSelectLine.Command:=GetCommand(ecSelectLine);
|
|
||||||
itmEditSelectParagraph.Command:=GetCommand(ecSelectParagraph);
|
|
||||||
|
|
||||||
itmEditIndentBlock.Command:=GetCommand(ecBlockIndent);
|
|
||||||
itmEditUnindentBlock.Command:=GetCommand(ecBlockUnindent);
|
|
||||||
itmEditUpperCaseBlock.Command:=GetCommand(ecSelectionUpperCase);
|
|
||||||
itmEditLowerCaseBlock.Command:=GetCommand(ecSelectionLowerCase);
|
|
||||||
itmEditSwapCaseBlock.Command:=GetCommand(ecSelectionSwapCase);
|
|
||||||
itmEditSortBlock.Command:=GetCommand(ecSelectionSort);
|
|
||||||
itmEditTabsToSpacesBlock.Command:=GetCommand(ecSelectionTabs2Spaces);
|
|
||||||
itmEditSelectionBreakLines.Command:=GetCommand(ecSelectionBreakLines);
|
|
||||||
|
|
||||||
itmEditInsertCharacter.Command:=GetCommand(ecInsertCharacter);
|
|
||||||
|
|
||||||
// search menu
|
|
||||||
itmSearchFind.Command:=GetCommand(ecFind);
|
|
||||||
itmSearchFindNext.Command:=GetCommand(ecFindNext);
|
|
||||||
itmSearchFindPrevious.Command:=GetCommand(ecFindPrevious);
|
|
||||||
itmSearchFindInFiles.Command:=GetCommand(ecFindInFiles);
|
|
||||||
itmSearchFindIdentifierRefs.Command:=GetCommand(ecFindIdentifierRefs);
|
|
||||||
itmSearchReplace.Command:=GetCommand(ecReplace);
|
|
||||||
itmIncrementalFind.Command:=GetCommand(ecIncrementalFind);
|
|
||||||
itmGotoLine.Command:=GetCommand(ecGotoLineNumber);
|
|
||||||
itmJumpBack.Command:=GetCommand(ecJumpBack);
|
|
||||||
itmJumpForward.Command:=GetCommand(ecJumpForward);
|
|
||||||
itmAddJumpPoint.Command:=GetCommand(ecAddJumpPoint);
|
|
||||||
itmJumpToNextError.Command:=GetCommand(ecJumpToNextError);
|
|
||||||
itmJumpToPrevError.Command:=GetCommand(ecJumpToPrevError);
|
|
||||||
itmSetFreeBookmark.Command:=GetCommand(ecSetFreeBookmark);
|
|
||||||
itmJumpToNextBookmark.Command:=GetCommand(ecNextBookmark);
|
|
||||||
itmJumpToPrevBookmark.Command:=GetCommand(ecPrevBookmark);
|
|
||||||
itmJumpToInterface.Command:=GetCommand(ecJumpToInterface, TJumpToSectionToolButton);
|
|
||||||
itmJumpToInterfaceUses.Command:=GetCommand(ecJumpToInterfaceUses, TJumpToSectionToolButton);
|
|
||||||
itmJumpToImplementation.Command:=GetCommand(ecJumpToImplementation, TJumpToSectionToolButton);
|
|
||||||
itmJumpToImplementationUses.Command:=GetCommand(ecJumpToImplementationUses, TJumpToSectionToolButton);
|
|
||||||
itmJumpToInitialization.Command:=GetCommand(ecJumpToInitialization, TJumpToSectionToolButton);
|
|
||||||
GetCmdAndBtn(ecJumpToProcedureHeader, xBtnItem);
|
|
||||||
xBtnItem.Caption := lisMenuJumpToProcedureHeader;
|
|
||||||
xBtnItem.OnClick := @SourceEditorManager.JumpToProcedureHeaderClicked;
|
|
||||||
xBtnItem.ImageIndex := IDEImages.LoadImage('menu_jumpto_procedureheader');
|
|
||||||
GetCmdAndBtn(ecJumpToProcedureBegin, xBtnItem);
|
|
||||||
xBtnItem.Caption := lisMenuJumpToProcedureBegin;
|
|
||||||
xBtnItem.ImageIndex := IDEImages.LoadImage('menu_jumpto_procedurebegin');
|
|
||||||
xBtnItem.OnClick := @SourceEditorManager.JumpToProcedureBeginClicked;
|
|
||||||
itmFindBlockOtherEnd.Command:=GetCommand(ecFindBlockOtherEnd);
|
|
||||||
itmFindBlockStart.Command:=GetCommand(ecFindBlockStart);
|
|
||||||
itmFindDeclaration.Command:=GetCommand(ecFindDeclaration);
|
|
||||||
itmOpenFileAtCursor.Command:=GetCommand(ecOpenFileAtCursor);
|
|
||||||
itmGotoIncludeDirective.Command:=GetCommand(ecGotoIncludeDirective);
|
|
||||||
itmSearchProcedureList.Command:=GetCommand(ecProcedureList);
|
|
||||||
|
|
||||||
// view menu
|
|
||||||
itmViewToggleFormUnit.Command:=GetCommand(ecToggleFormUnit);
|
|
||||||
itmViewInspector.Command:=GetCommand(ecToggleObjectInsp);
|
|
||||||
itmViewSourceEditor.Command:=GetCommand(ecToggleSourceEditor);
|
|
||||||
itmViewCodeExplorer.Command:=GetCommand(ecToggleCodeExpl);
|
|
||||||
itmViewFPDocEditor.Command:=GetCommand(ecToggleFPDocEditor);
|
|
||||||
itmViewCodeBrowser.Command:=GetCommand(ecToggleCodeBrowser);
|
|
||||||
itmViewRestrictionBrowser.Command:=GetCommand(ecToggleRestrictionBrowser);
|
|
||||||
itmViewComponents.Command:=GetCommand(ecViewComponents);
|
|
||||||
itmMacroListView.Command:=GetCommand(ecViewMacroList);
|
|
||||||
itmJumpHistory.Command:=GetCommand(ecViewJumpHistory);
|
|
||||||
itmViewMessage.Command:=GetCommand(ecToggleMessages);
|
|
||||||
itmViewSearchResults.Command:=GetCommand(ecToggleSearchResults);
|
|
||||||
itmViewAnchorEditor.Command:=GetCommand(ecViewAnchorEditor);
|
|
||||||
itmViewTabOrder.Command:=GetCommand(ecViewTabOrder);
|
|
||||||
//itmPkgPackageLinks.Command:=GetCommand(ec?);
|
|
||||||
|
|
||||||
// source menu
|
|
||||||
itmSourceCommentBlock.Command:=GetCommand(ecSelectionComment);
|
|
||||||
itmSourceUncommentBlock.Command:=GetCommand(ecSelectionUncomment);
|
|
||||||
itmSourceToggleComment.Command:=GetCommand(ecToggleComment);
|
|
||||||
itmSourceEncloseBlock.Command:=GetCommand(ecSelectionEnclose);
|
|
||||||
itmSourceEncloseInIFDEF.Command:=GetCommand(ecSelectionEncloseIFDEF);
|
|
||||||
itmSourceCompleteCodeInteractive.Command:=GetCommand(ecCompleteCodeInteractive);
|
|
||||||
itmSourceUseUnit.Command:=GetCommand(ecUseUnit);
|
|
||||||
|
|
||||||
itmSourceSyntaxCheck.Command:=GetCommand(ecSyntaxCheck);
|
|
||||||
itmSourceGuessUnclosedBlock.Command:=GetCommand(ecGuessUnclosedBlock);
|
|
||||||
itmSourceGuessMisplacedIFDEF.Command:=GetCommand(ecGuessMisplacedIFDEF);
|
|
||||||
|
|
||||||
itmSourceInsertCVSAuthor.Command:=GetCommand(ecInsertCVSAuthor);
|
|
||||||
itmSourceInsertCVSDate.Command:=GetCommand(ecInsertCVSDate);
|
|
||||||
itmSourceInsertCVSHeader.Command:=GetCommand(ecInsertCVSHeader);
|
|
||||||
itmSourceInsertCVSID.Command:=GetCommand(ecInsertCVSID);
|
|
||||||
itmSourceInsertCVSLog.Command:=GetCommand(ecInsertCVSLog);
|
|
||||||
itmSourceInsertCVSName.Command:=GetCommand(ecInsertCVSName);
|
|
||||||
itmSourceInsertCVSRevision.Command:=GetCommand(ecInsertCVSRevision);
|
|
||||||
itmSourceInsertCVSSource.Command:=GetCommand(ecInsertCVSSource);
|
|
||||||
|
|
||||||
itmSourceInsertGPLNotice.Command:=GetCommand(ecInsertGPLNotice);
|
|
||||||
itmSourceInsertGPLNoticeTranslated.Command:=GetCommand(ecInsertGPLNoticeTranslated);
|
|
||||||
itmSourceInsertLGPLNotice.Command:=GetCommand(ecInsertLGPLNotice);
|
|
||||||
itmSourceInsertLGPLNoticeTranslated.Command:=GetCommand(ecInsertLGPLNoticeTranslated);
|
|
||||||
itmSourceInsertModifiedLGPLNotice.Command:=GetCommand(ecInsertModifiedLGPLNotice);
|
|
||||||
itmSourceInsertModifiedLGPLNoticeTranslated.Command:=GetCommand(ecInsertModifiedLGPLNoticeTranslated);
|
|
||||||
itmSourceInsertMITNotice.Command:=GetCommand(ecInsertMITNotice);
|
|
||||||
itmSourceInsertMITNoticeTranslated.Command:=GetCommand(ecInsertMITNoticeTranslated);
|
|
||||||
itmSourceInsertUsername.Command:=GetCommand(ecInsertUserName);
|
|
||||||
itmSourceInsertDateTime.Command:=GetCommand(ecInsertDateTime);
|
|
||||||
itmSourceInsertChangeLogEntry.Command:=GetCommand(ecInsertChangeLogEntry);
|
|
||||||
itmSourceInsertGUID.Command:=GetCommand(ecInsertGUID);
|
|
||||||
itmSourceInsertFilename.Command:=GetCommand(ecInsertFilename);
|
|
||||||
|
|
||||||
itmSourceUnitInfo.Command:=GetCommand(ecViewUnitInfo);
|
|
||||||
itmSourceUnitDependencies.Command:=GetCommand(ecViewUnitDependencies);
|
|
||||||
|
|
||||||
// refactor menu
|
|
||||||
itmRefactorRenameIdentifier.Command:=GetCommand(ecRenameIdentifier);
|
|
||||||
itmRefactorExtractProc.Command:=GetCommand(ecExtractProc);
|
|
||||||
itmRefactorInvertAssignment.Command:=GetCommand(ecInvertAssignment);
|
|
||||||
|
|
||||||
itmRefactorShowAbstractMethods.Command:=GetCommand(ecShowAbstractMethods);
|
|
||||||
itmRefactorShowEmptyMethods.Command:=GetCommand(ecRemoveEmptyMethods);
|
|
||||||
itmRefactorShowUnusedUnits.Command:=GetCommand(ecRemoveUnusedUnits);
|
|
||||||
{$IFDEF EnableFindOverloads}
|
|
||||||
itmRefactorFindOverloads.Command:=GetCommand(ecFindOverloads);
|
|
||||||
{$ENDIF}
|
|
||||||
itmRefactorMakeResourceString.Command:=GetCommand(ecMakeResourceString);
|
|
||||||
|
|
||||||
// project menu
|
|
||||||
itmProjectNew.Command:=GetCommand(ecNewProject);
|
|
||||||
itmProjectNewFromFile.Command:=GetCommand(ecNewProjectFromFile);
|
|
||||||
itmProjectOpen.Command:=GetCommand(ecOpenProject);
|
|
||||||
itmProjectClose.Command:=GetCommand(ecCloseProject);
|
|
||||||
itmProjectSave.Command:=GetCommand(ecSaveProject);
|
|
||||||
itmProjectSaveAs.Command:=GetCommand(ecSaveProjectAs);
|
|
||||||
itmProjectResaveFormsWithI18n.Command:=GetCommand(ecProjectResaveFormsWithI18n);
|
|
||||||
itmProjectPublish.Command:=GetCommand(ecPublishProject);
|
|
||||||
itmProjectInspector.Command:=GetCommand(ecProjectInspector);
|
|
||||||
itmProjectOptions.Command:=GetCommand(ecProjectOptions);
|
|
||||||
itmProjectAddTo.Command:=GetCommand(ecAddCurUnitToProj);
|
|
||||||
itmProjectRemoveFrom.Command:=GetCommand(ecRemoveFromProj);
|
|
||||||
itmProjectViewUnits.Command:=GetCommand(ecViewProjectUnits);
|
|
||||||
itmProjectViewForms.Command:=GetCommand(ecViewProjectForms);
|
|
||||||
itmProjectViewSource.Command:=GetCommand(ecViewProjectSource);
|
|
||||||
GetCmdAndBtn(ecProjectChangeBuildMode, xBtnItem);
|
|
||||||
xBtnItem.Caption := lisChangeBuildMode;
|
|
||||||
xBtnItem.ToolButtonClass:=TSetBuildModeToolButton;
|
|
||||||
xBtnItem.ImageIndex := IDEImages.LoadImage('menu_compiler_options');
|
|
||||||
xBtnItem.OnClick := @mnuBuildModeClicked;
|
|
||||||
|
|
||||||
// run menu
|
|
||||||
itmRunMenuCompile.Command:=GetCommand(ecCompile);
|
|
||||||
itmRunMenuBuild.Command:=GetCommand(ecBuild);
|
|
||||||
itmRunMenuQuickCompile.Command:=GetCommand(ecQuickCompile);
|
|
||||||
itmRunMenuCleanUpAndBuild.Command:=GetCommand(ecCleanUpAndBuild);
|
|
||||||
itmRunMenuBuildManyModes.Command:=GetCommand(ecBuildManyModes);
|
|
||||||
itmRunMenuAbortBuild.Command:=GetCommand(ecAbortBuild);
|
|
||||||
itmRunMenuRunWithoutDebugging.Command:=GetCommand(ecRunWithoutDebugging);
|
|
||||||
itmRunMenuRun.Command:=GetCommand(ecRun, TRunToolButton);
|
|
||||||
itmRunMenuPause.Command:=GetCommand(ecPause);
|
|
||||||
itmRunMenuStepInto.Command:=GetCommand(ecStepInto);
|
|
||||||
itmRunMenuStepOver.Command:=GetCommand(ecStepOver);
|
|
||||||
itmRunMenuStepOut.Command:=GetCommand(ecStepOut);
|
|
||||||
itmRunMenuRunToCursor.Command:=GetCommand(ecRunToCursor);
|
|
||||||
itmRunMenuStop.Command:=GetCommand(ecStopProgram);
|
|
||||||
itmRunMenuAttach.Command:=GetCommand(ecAttach);
|
|
||||||
itmRunMenuDetach.Command:=GetCommand(ecDetach);
|
|
||||||
itmRunMenuResetDebugger.Command:=GetCommand(ecResetDebugger);
|
|
||||||
itmRunMenuRunParameters.Command:=GetCommand(ecRunParameters);
|
|
||||||
itmRunMenuBuildFile.Command:=GetCommand(ecBuildFile);
|
|
||||||
itmRunMenuRunFile.Command:=GetCommand(ecRunFile);
|
|
||||||
itmRunMenuConfigBuildFile.Command:=GetCommand(ecConfigBuildFile);
|
|
||||||
|
|
||||||
// package menu
|
|
||||||
itmPkgNewPackage.Command:=GetCommand(ecNewPackage);
|
|
||||||
itmPkgOpenLoadedPackage.Command:=GetCommand(ecOpenPackage);
|
|
||||||
itmPkgOpenPackageFile.Command:=GetCommand(ecOpenPackageFile);
|
|
||||||
itmPkgOpenPackageOfCurUnit.Command:=GetCommand(ecOpenPackageOfCurUnit);
|
|
||||||
itmPkgAddCurFileToPkg.Command:=GetCommand(ecAddCurFileToPkg);
|
|
||||||
itmPkgAddNewComponentToPkg.Command:=GetCommand(ecNewPkgComponent);
|
|
||||||
itmPkgPkgGraph.Command:=GetCommand(ecPackageGraph);
|
|
||||||
itmPkgPackageLinks.Command:=GetCommand(ecPackageLinks);
|
|
||||||
itmPkgEditInstallPkgs.Command:=GetCommand(ecEditInstallPkgs);
|
|
||||||
|
|
||||||
// tools menu
|
|
||||||
itmEnvGeneralOptions.Command:=GetCommand(ecEnvironmentOptions);
|
|
||||||
itmToolRescanFPCSrcDir.Command:=GetCommand(ecRescanFPCSrcDir);
|
|
||||||
itmEnvCodeTemplates.Command:=GetCommand(ecEditCodeTemplates);
|
|
||||||
itmEnvCodeToolsDefinesEditor.Command:=GetCommand(ecCodeToolsDefinesEd);
|
|
||||||
|
|
||||||
itmToolConfigure.Command:=GetCommand(ecExtToolSettings);
|
|
||||||
|
|
||||||
itmToolManageDesktops.Command:=GetCommand(ecManageDesktops, TShowDesktopsToolButton);
|
|
||||||
itmToolManageExamples.Command:=GetCommand(ecManageExamples);
|
|
||||||
itmToolDiff.Command:=GetCommand(ecDiff);
|
|
||||||
|
|
||||||
itmToolConvertDFMtoLFM.Command:=GetCommand(ecConvertDFM2LFM);
|
|
||||||
itmToolCheckLFM.Command:=GetCommand(ecCheckLFM);
|
|
||||||
itmToolConvertDelphiUnit.Command:=GetCommand(ecConvertDelphiUnit);
|
|
||||||
itmToolConvertDelphiProject.Command:=GetCommand(ecConvertDelphiProject);
|
|
||||||
itmToolConvertDelphiPackage.Command:=GetCommand(ecConvertDelphiPackage);
|
|
||||||
itmToolConvertEncoding.Command:=GetCommand(ecConvertEncoding);
|
|
||||||
itmToolBuildLazarus.Command:=GetCommand(ecBuildLazarus);
|
|
||||||
itmToolConfigureBuildLazarus.Command:=GetCommand(ecConfigBuildLazarus);
|
|
||||||
|
|
||||||
// window menu
|
|
||||||
itmWindowManager.Command:=GetCommand(ecManageSourceEditors);
|
|
||||||
|
|
||||||
// help menu
|
|
||||||
itmHelpAboutLazarus.Command:=GetCommand(ecAboutLazarus);
|
|
||||||
itmHelpOnlineHelp.Command:=GetCommand(ecOnlineHelp);
|
|
||||||
itmHelpReportingBug.Command:=GetCommand(ecReportingBug);
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TMainIDEBase.DoOpenMacroFile(Sender: TObject; const AFilename: string
|
function TMainIDEBase.DoOpenMacroFile(Sender: TObject; const AFilename: string
|
||||||
|
|||||||
@ -613,17 +613,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TIDEToolbarBase }
|
{ TIDEToolbarBase }
|
||||||
{ For future needs ...
|
|
||||||
constructor TIDEToolbarBase.Create(AOwner: TComponent);
|
|
||||||
begin
|
|
||||||
inherited Create(AOwner);
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor TIDEToolbarBase.Destroy;
|
|
||||||
begin
|
|
||||||
inherited Destroy;
|
|
||||||
end;
|
|
||||||
}
|
|
||||||
procedure TIDEToolbarBase.AddButton(ACommand: TIDEButtonCommand);
|
procedure TIDEToolbarBase.AddButton(ACommand: TIDEButtonCommand);
|
||||||
var
|
var
|
||||||
B: TIDEToolButton;
|
B: TIDEToolButton;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user