mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-05 04:20:19 +02:00
started restructuring of IDE main menu for menuintf
git-svn-id: trunk@7761 -
This commit is contained in:
mattias
parent
f285cb9409
commit
04627f89c3
@ -249,8 +249,8 @@ begin
|
||||
CodeExplorerMenuRoot.MenuItem:=TreePopupMenu.Items;
|
||||
//CodeExplorerMenuRoot.Items.WriteDebugReport(' ');
|
||||
|
||||
CEJumpToIDEMenuCommand.OnClickMethod:=@JumpToMenuitemCLICK;
|
||||
CERefreshIDEMenuCommand.OnClickMethod:=@RefreshMenuitemCLICK;
|
||||
CEJumpToIDEMenuCommand.OnClick:=@JumpToMenuitemCLICK;
|
||||
CERefreshIDEMenuCommand.OnClick:=@RefreshMenuitemCLICK;
|
||||
end;
|
||||
|
||||
procedure TCodeExplorerView.CodeExplorerViewDestroy(Sender: TObject);
|
||||
|
||||
245
ide/mainbar.pas
245
ide/mainbar.pas
@ -40,7 +40,7 @@ uses
|
||||
MemCheck,
|
||||
{$ENDIF}
|
||||
Classes, StdCtrls, Forms, Controls, Buttons, Menus, ComCtrls, ExtCtrls,
|
||||
Dialogs;
|
||||
Dialogs, MenuIntf;
|
||||
|
||||
type
|
||||
{ TMainIDEBar }
|
||||
@ -64,6 +64,248 @@ type
|
||||
StepOverSpeedButton : TSpeedButton;
|
||||
OpenFilePopUpMenu : TPopupMenu;
|
||||
|
||||
{$IFDEF UseMenuIntf}
|
||||
// MainMenu
|
||||
mnuMainMenu: TMainMenu;
|
||||
mnuMain: TIDEMenuSection;
|
||||
|
||||
// file menu
|
||||
mnuFile: TIDEMenuSection;
|
||||
itmFileNew: TIDEMenuSection;
|
||||
itmFileNewUnit: TIDEMenuCommand;
|
||||
itmFileNewForm: TIDEMenuCommand;
|
||||
itmFileNewOther: TIDEMenuCommand;
|
||||
itmFileOpenSave: TIDEMenuSection;
|
||||
itmFileOpen: TIDEMenuCommand;
|
||||
itmFileRevert: TIDEMenuCommand;
|
||||
itmFileRecentOpen: TIDEMenuSection;
|
||||
itmFileSave: TIDEMenuCommand;
|
||||
itmFileSaveAs: TIDEMenuCommand;
|
||||
itmFileSaveAll: TIDEMenuCommand;
|
||||
itmFileClose: TIDEMenuCommand;
|
||||
itmFileCloseAll: TIDEMenuCommand;
|
||||
itmFileCleanDirectory: TIDEMenuCommand;
|
||||
itmFileIDEStart: TIDEMenuSection;
|
||||
itmFileRestart: TIDEMenuCommand;
|
||||
itmFileQuit: TIDEMenuCommand;
|
||||
|
||||
// edit menu
|
||||
mnuEdit: TIDEMenuSection;
|
||||
itmEditReUndo: TIDEMenuSection;
|
||||
itmEditUndo: TIDEMenuCommand;
|
||||
itmEditRedo: TIDEMenuCommand;
|
||||
itmEditClipboard: TIDEMenuSection;
|
||||
itmEditCut: TIDEMenuCommand;
|
||||
itmEditCopy: TIDEMenuCommand;
|
||||
itmEditPaste: TIDEMenuCommand;
|
||||
itmEditBlockIndentation: TIDEMenuSection;
|
||||
itmEditIndentBlock: TIDEMenuCommand;
|
||||
itmEditUnindentBlock: TIDEMenuCommand;
|
||||
itmEditEncloseBlock: TIDEMenuCommand;
|
||||
itmEditCommentBlock: TIDEMenuCommand;
|
||||
itmEditUncommentBlock: TIDEMenuCommand;
|
||||
itmEditConditionalBlock: TIDEMenuCommand;
|
||||
itmEditSortBlock: TIDEMenuCommand;
|
||||
itmEditBlockCharConversion: TIDEMenuSection;
|
||||
itmEditUpperCaseBlock: TIDEMenuCommand;
|
||||
itmEditLowerCaseBlock: TIDEMenuCommand;
|
||||
itmEditTabsToSpacesBlock: TIDEMenuCommand;
|
||||
itmEditSelections: TIDEMenuSection;
|
||||
itmEditSelectionBreakLines: TIDEMenuCommand;
|
||||
itmEditSelect: TIDEMenuSection;
|
||||
itmEditSelectAll: TIDEMenuCommand;
|
||||
itmEditSelectToBrace: TIDEMenuCommand;
|
||||
itmEditSelectCodeBlock: TIDEMenuCommand;
|
||||
itmEditSelectLine: TIDEMenuCommand;
|
||||
itmEditSelectParagraph: TIDEMenuCommand;
|
||||
itmEditInsertions: TIDEMenuSection;
|
||||
itmEditInsertCharacter: TIDEMenuCommand;
|
||||
itmEditInsertText: TIDEMenuSection;
|
||||
itmEditInsertCVSKeyWord: TIDEMenuCommand;
|
||||
itmEditInsertCVSAuthor: TIDEMenuCommand;
|
||||
itmEditInsertCVSDate: TIDEMenuCommand;
|
||||
itmEditInsertCVSHeader: TIDEMenuCommand;
|
||||
itmEditInsertCVSID: TIDEMenuCommand;
|
||||
itmEditInsertCVSLog: TIDEMenuCommand;
|
||||
itmEditInsertCVSName: TIDEMenuCommand;
|
||||
itmEditInsertCVSRevision: TIDEMenuCommand;
|
||||
itmEditInsertCVSSource: TIDEMenuCommand;
|
||||
itmEditInsertGeneral: TIDEMenuCommand;
|
||||
itmEditInsertGPLNotice: TIDEMenuCommand;
|
||||
itmEditInsertLGPLNotice: TIDEMenuCommand;
|
||||
itmEditInsertUsername: TIDEMenuCommand;
|
||||
itmEditInsertDateTime: TIDEMenuCommand;
|
||||
itmEditInsertChangeLogEntry: TIDEMenuCommand;
|
||||
itmEditCodeTools: TIDEMenuSection;
|
||||
itmEditCompleteCode: TIDEMenuCommand;
|
||||
itmEditExtractProc: TIDEMenuCommand;
|
||||
|
||||
// search menu
|
||||
mnuSearch: TIDEMenuSection;
|
||||
itmSearchFindReplace: TIDEMenuSection;
|
||||
itmSearchFind: TIDEMenuCommand;
|
||||
itmSearchFindNext: TIDEMenuCommand;
|
||||
itmSearchFindPrevious: TIDEMenuCommand;
|
||||
itmSearchFindInFiles: TIDEMenuCommand;
|
||||
itmSearchFindIdentifierRefs: TIDEMenuCommand;
|
||||
itmSearchReplace: TIDEMenuCommand;
|
||||
itmIncrementalFind: TIDEMenuCommand;
|
||||
itmGotoLine: TIDEMenuCommand;
|
||||
itmJumpings: TIDEMenuSection;
|
||||
itmJumpBack: TIDEMenuCommand;
|
||||
itmJumpForward: TIDEMenuCommand;
|
||||
itmAddJumpPoint: TIDEMenuCommand;
|
||||
itmJumpHistory: TIDEMenuCommand;
|
||||
itmJumpToNextError: TIDEMenuCommand;
|
||||
itmJumpToPrevError: TIDEMenuCommand;
|
||||
itmBookmarks: TIDEMenuSection;
|
||||
itmSetFreeBookmark: TIDEMenuCommand;
|
||||
itmJumpToNextBookmark: TIDEMenuCommand;
|
||||
itmJumpToPrevBookmark: TIDEMenuCommand;
|
||||
itmCodeToolSearches: TIDEMenuSection;
|
||||
itmFindDeclaration: TIDEMenuCommand;
|
||||
itmSearchRenameIdentifier: TIDEMenuCommand;
|
||||
itmFindBlockOtherEnd: TIDEMenuCommand;
|
||||
itmFindBlockStart: TIDEMenuCommand;
|
||||
itmOpenFileAtCursor: TIDEMenuCommand;
|
||||
itmGotoIncludeDirective: TIDEMenuCommand;
|
||||
|
||||
// view menu
|
||||
mnuView: TIDEMenuSection;
|
||||
itmViewMainWindows: TIDEMenuSection;
|
||||
itmViewInspector: TIDEMenuCommand;
|
||||
itmViewSourceEditor: TIDEMenuCommand;
|
||||
itmViewCodeExplorer: TIDEMenuCommand;
|
||||
itmViewLazDoc: TIDEMenuCommand;
|
||||
itmViewUnitWindows: TIDEMenuSection;
|
||||
itmViewUnits: TIDEMenuCommand;
|
||||
itmViewForms: TIDEMenuCommand;
|
||||
itmViewUnitDependencies: TIDEMenuCommand;
|
||||
itmViewUnitInfo: TIDEMenuCommand;
|
||||
itmViewToggleFormUnit: TIDEMenuCommand;
|
||||
itmViewSecondaryWindows: TIDEMenuSection;
|
||||
itmViewAnchorEditor: TIDEMenuCommand;
|
||||
itmViewMessage: TIDEMenuCommand;
|
||||
itmViewSearchResults: TIDEMenuCommand;
|
||||
itmViewDebugWindows: TIDEMenuSection;
|
||||
itmViewWatches: TIDEMenuCommand;
|
||||
itmViewBreakpoints: TIDEMenuCommand;
|
||||
itmViewLocals: TIDEMenuCommand;
|
||||
itmViewCallStack: TIDEMenuCommand;
|
||||
itmViewDebugOutput: TIDEMenuCommand;
|
||||
|
||||
// project menu
|
||||
mnuProject: TIDEMenuSection;
|
||||
itmProjectNews: TIDEMenuSection;
|
||||
itmProjectNew: TIDEMenuCommand;
|
||||
itmProjectNewFromFile: TIDEMenuCommand;
|
||||
itmProjectOpens: TIDEMenuSection;
|
||||
itmProjectOpen: TIDEMenuCommand;
|
||||
itmProjectRecentOpen: TIDEMenuCommand;
|
||||
itmProjectSaves: TIDEMenuSection;
|
||||
itmProjectSave: TIDEMenuCommand;
|
||||
itmProjectSaveAs: TIDEMenuCommand;
|
||||
itmProjectPublish: TIDEMenuCommand;
|
||||
itmProjectWindows: TIDEMenuSection;
|
||||
itmProjectInspector: TIDEMenuCommand;
|
||||
itmProjectOptions: TIDEMenuCommand;
|
||||
itmProjectCompilerOptions: TIDEMenuCommand;
|
||||
itmProjectViewToDos: TIDEMenuCommand;
|
||||
itmProjectAddRemoves: TIDEMenuSection;
|
||||
itmProjectAddTo: TIDEMenuCommand;
|
||||
itmProjectRemoveFrom: TIDEMenuCommand;
|
||||
itmProjectViewSource: TIDEMenuCommand;
|
||||
{$IFDEF TRANSLATESTRING}
|
||||
itmProjectPoFiles:TIDEMenuCommand;
|
||||
itmProjectCreatePoFiles:TIDEMenuCommand;
|
||||
itmProjectCollectPoFiles:TIDEMenuCommand;
|
||||
{$ENDIF}
|
||||
|
||||
// run menu
|
||||
mnuRun: TIDEMenuSection;
|
||||
itmRunBuilding: TIDEMenuSection;
|
||||
itmRunMenuBuild: TIDEMenuCommand;
|
||||
itmRunMenuBuildAll: TIDEMenuCommand;
|
||||
itmRunMenuAbortBuild: TIDEMenuCommand;
|
||||
itmRunnning: TIDEMenuSection;
|
||||
itmRunMenuRun: TIDEMenuCommand;
|
||||
itmRunMenuPause: TIDEMenuCommand;
|
||||
itmRunMenuStepInto: TIDEMenuCommand;
|
||||
itmRunMenuStepOver: TIDEMenuCommand;
|
||||
itmRunMenuRunToCursor: TIDEMenuCommand;
|
||||
itmRunMenuStop: TIDEMenuCommand;
|
||||
itmRunMenuRunParameters: TIDEMenuCommand;
|
||||
itmRunMenuResetDebugger: TIDEMenuCommand;
|
||||
itmRunBuildignFile: TIDEMenuSection;
|
||||
itmRunMenuBuildFile: TIDEMenuCommand;
|
||||
itmRunMenuRunFile: TIDEMenuCommand;
|
||||
itmRunMenuConfigBuildFile: TIDEMenuCommand;
|
||||
itmRunDebugging: TIDEMenuSection;
|
||||
itmRunMenuInspect: TIDEMenuCommand;
|
||||
itmRunMenuEvaluate: TIDEMenuCommand;
|
||||
itmRunMenuAddWatch: TIDEMenuCommand;
|
||||
itmRunMenuAddBreakpoint: TIDEMenuCommand;
|
||||
itmRunMenuAddBpSource: TIDEMenuCommand;
|
||||
|
||||
// components menu
|
||||
mnuComponents: TIDEMenuSection;
|
||||
itmPkgOpening: TIDEMenuCommand;
|
||||
itmPkgOpenPackage: TIDEMenuCommand;
|
||||
itmPkgOpenPackageFile: TIDEMenuCommand;
|
||||
itmPkgOpenPackageOfCurUnit: TIDEMenuCommand;
|
||||
itmPkgOpenRecent: TIDEMenuCommand;
|
||||
itmPkgUnits: TIDEMenuCommand;
|
||||
itmPkgAddCurUnitToPkg: TIDEMenuCommand;
|
||||
itmPkgGraphs: TIDEMenuCommand;
|
||||
itmPkgPkgGraph: TIDEMenuCommand;
|
||||
itmPkgEditInstallPkgs: TIDEMenuCommand;
|
||||
{$IFDEF CustomIDEComps}
|
||||
itmCompsConfigCustomComps: TIDEMenuCommand;
|
||||
{$ENDIF}
|
||||
|
||||
// tools menu
|
||||
mnuTools: TIDEMenuSection;
|
||||
itmCustomTools: TIDEMenuSection;
|
||||
itmToolConfigure: TIDEMenuCommand;
|
||||
itmCodeToolChecks: TIDEMenuSection;
|
||||
itmToolSyntaxCheck: TIDEMenuCommand;
|
||||
itmToolGuessUnclosedBlock: TIDEMenuCommand;
|
||||
itmToolGuessMisplacedIFDEF: TIDEMenuCommand;
|
||||
itmDelphiConversion: TIDEMenuSection;
|
||||
itmToolCheckLFM: TIDEMenuCommand;
|
||||
itmToolConvertDelphiUnit: TIDEMenuCommand;
|
||||
itmToolConvertDelphiProject: TIDEMenuCommand;
|
||||
itmToolConvertDFMtoLFM: TIDEMenuCommand;
|
||||
itmSecondaryTools: TIDEMenuSection;
|
||||
itmToolMakeResourceString: TIDEMenuCommand;
|
||||
itmToolDiff: TIDEMenuCommand;
|
||||
itmBuildingLazarus: TIDEMenuSection;
|
||||
itmToolBuildLazarus: TIDEMenuCommand;
|
||||
itmToolConfigureBuildLazarus: TIDEMenuCommand;
|
||||
|
||||
// environment menu
|
||||
mnuEnvironment: TIDEMenuSection;
|
||||
itmOptionsDialogs: TIDEMenuSection;
|
||||
itmEnvGeneralOptions: TIDEMenuCommand;
|
||||
itmEnvEditorOptions: TIDEMenuCommand;
|
||||
itmEnvCodeTemplates: TIDEMenuCommand;
|
||||
itmEnvDebuggerOptions: TIDEMenuCommand;
|
||||
itmEnvCodeToolsOptions: TIDEMenuCommand;
|
||||
itmEnvCodeToolsDefinesEditor: TIDEMenuCommand;
|
||||
itmIDECache: TIDEMenuSection;
|
||||
itmEnvRescanFPCSrcDir: TIDEMenuCommand;
|
||||
|
||||
// windows menu
|
||||
mnuWindows: TIDEMenuSection;
|
||||
|
||||
// help menu
|
||||
mnuHelp: TIDEMenuSection;
|
||||
itmOnlineHelps: TIDEMenuSection;
|
||||
itmHelpOnlineHelp: TIDEMenuCommand;
|
||||
itmHelpConfigureHelp: TIDEMenuCommand;
|
||||
itmInfoHelps: TIDEMenuSection;
|
||||
itmHelpAboutLazarus: TIDEMenuCommand;
|
||||
{$ELSE}
|
||||
// MainMenu
|
||||
mnuMain: TMainMenu;
|
||||
|
||||
@ -266,6 +508,7 @@ type
|
||||
itmHelpAboutLazarus: TMenuItem;
|
||||
itmHelpOnlineHelp: TMenuItem;
|
||||
itmHelpConfigureHelp: TMenuItem;
|
||||
{$ENDIF}
|
||||
|
||||
// component palette
|
||||
ComponentNotebook : TNotebook;
|
||||
|
||||
@ -60,8 +60,8 @@ uses
|
||||
Controls, Graphics, ExtCtrls, Dialogs, FileUtil, Forms, CodeToolManager,
|
||||
CodeCache, AVL_Tree, SynEditKeyCmds,
|
||||
// IDE
|
||||
LazConf, LazarusIDEStrConsts, SrcEditorIntf,
|
||||
ProjectDefs, Project, PublishModule, BuildLazDialog, Compiler, LazIDEIntf,
|
||||
LazConf, LazarusIDEStrConsts, SrcEditorIntf, LazIDEIntf, MenuIntf,
|
||||
ProjectDefs, Project, PublishModule, BuildLazDialog, Compiler,
|
||||
ComponentReg,
|
||||
TransferMacros, ObjectInspector, PropEdits, OutputFilter, IDEDefs, MsgView,
|
||||
EnvironmentOpts, EditorOptions, CompilerOptions, KeyMapping, IDEProcs,
|
||||
@ -89,8 +89,13 @@ type
|
||||
procedure CreateMenuItem(MenuItemParent, MenuItem: TMenuItem;
|
||||
const MenuItemName, MenuItemCaption: String;
|
||||
const bmpName: String; mnuEnabled: Boolean);
|
||||
{$IFDEF UseMenuIntf}
|
||||
procedure CreateMainMenuItem(var Section: TIDEMenuSection;
|
||||
const MenuItemName, MenuItemCaption: String);
|
||||
{$ELSE}
|
||||
procedure CreateMainMenuItem(MainMenu: TMainMenu; var MenuItem: TMenuItem;
|
||||
const MenuItemName, MenuItemCaption: String);
|
||||
{$ENDIF}
|
||||
procedure SetupMainMenu; virtual;
|
||||
procedure SetupFileMenu; virtual;
|
||||
procedure SetupEditMenu; virtual;
|
||||
@ -299,6 +304,14 @@ begin
|
||||
MenuItemParent.Add(MenuItem);
|
||||
end;
|
||||
|
||||
{$IFDEF UseMenuIntf}
|
||||
procedure TMainIDEBase.CreateMainMenuItem(var Section: TIDEMenuSection;
|
||||
const MenuItemName, MenuItemCaption: String);
|
||||
begin
|
||||
Section:=RegisterIDEMenuSection(MainIDEBar.mnuMain.GetPath,MenuItemName);
|
||||
Section.Caption := MenuItemCaption;
|
||||
end;
|
||||
{$ELSE}
|
||||
procedure TMainIDEBase.CreateMainMenuItem(MainMenu: TMainMenu;
|
||||
var MenuItem: TMenuItem; const MenuItemName, MenuItemCaption: String);
|
||||
begin
|
||||
@ -307,9 +320,27 @@ begin
|
||||
MenuItem.Caption := MenuItemCaption;
|
||||
MainMenu.items.Add(MenuItem);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
procedure TMainIDEBase.SetupMainMenu;
|
||||
begin
|
||||
{$IFDEF UseMenuIntf}
|
||||
MainIDEBar.mnuMainMenu := TMainMenu.Create(MainIDEBar);
|
||||
with MainIDEBar do begin
|
||||
mnuMain:=RegisterIDEMenuRoot('IDEMainMenu',mnuMainMenu.Items);
|
||||
CreateMainMenuItem(mnuFile,'mnuFile',lisMenuFile);
|
||||
CreateMainMenuItem(mnuEdit,'mnuEdit',lisMenuEdit);
|
||||
CreateMainMenuItem(mnuSearch,'mnuSearch',lisMenuSearch);
|
||||
CreateMainMenuItem(mnuView,'mnuView',lisMenuView);
|
||||
CreateMainMenuItem(mnuProject,'mnuProject',lisMenuProject);
|
||||
CreateMainMenuItem(mnuRun,'mnuRun',lisMenuRun);
|
||||
CreateMainMenuItem(mnuComponents,'mnuComponents',lisMenuComponents);
|
||||
CreateMainMenuItem(mnuTools,'mnuTools',lisMenuTools);
|
||||
CreateMainMenuItem(mnuEnvironment,'mnuEnvironment',lisMenuEnvironent);
|
||||
CreateMainMenuItem(mnuWindows,'mnuWindows',lisMenuWindows);
|
||||
CreateMainMenuItem(mnuHelp,'mnuHelp',lisMenuHelp);
|
||||
end;
|
||||
{$ELSE}
|
||||
MainIDEBar.mnuMain := TMainMenu.Create(MainIDEBar);
|
||||
with MainIDEBar do begin
|
||||
mnuMain.Name:='mnuMainMenu';
|
||||
@ -326,6 +357,7 @@ begin
|
||||
CreateMainMenuItem(mnuMain,mnuWindows,'mnuWindows',lisMenuWindows);
|
||||
CreateMainMenuItem(mnuMain,mnuHelp,'mnuHelp',lisMenuHelp);
|
||||
end;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure TMainIDEBase.SetupFileMenu;
|
||||
|
||||
@ -193,10 +193,10 @@ Begin
|
||||
MessagesMenuRoot.MenuItem:=MainPopupMenu.Items;
|
||||
//MainPopupMenu.Items.WriteDebugReport('TMessagesView.Create ');
|
||||
|
||||
MsgHelpIDEMenuCommand.OnClickMethod:=@HelpMenuItemClick;
|
||||
MsgCopyIDEMenuCommand.OnClickMethod:=@CopyMenuItemClick;
|
||||
MsgCopyAllIDEMenuCommand.OnClickMethod:=@CopyAllMenuItemClick;
|
||||
MsgSaveAllToFileIDEMenuCommand.OnClickMethod:=@SaveAllToFileMenuItemClick;
|
||||
MsgHelpIDEMenuCommand.OnClick:=@HelpMenuItemClick;
|
||||
MsgCopyIDEMenuCommand.OnClick:=@CopyMenuItemClick;
|
||||
MsgCopyAllIDEMenuCommand.OnClick:=@CopyAllMenuItemClick;
|
||||
MsgSaveAllToFileIDEMenuCommand.OnClick:=@SaveAllToFileMenuItemClick;
|
||||
|
||||
EnvironmentOptions.IDEWindowLayoutList.Apply(Self,Name);
|
||||
KeyPreview:=true;
|
||||
|
||||
@ -3256,43 +3256,43 @@ begin
|
||||
{$ENDIF}
|
||||
SourceEditorMenuRoot.MenuItem:=SrcPopupMenu.Items;
|
||||
|
||||
SrcEditMenuFindDeclaration.OnClickMethod:=@FindDeclarationClicked;
|
||||
SrcEditMenuOpenFileAtCursor.OnClickMethod:=@OpenAtCursorClicked;
|
||||
SrcEditMenuFindDeclaration.OnClick:=@FindDeclarationClicked;
|
||||
SrcEditMenuOpenFileAtCursor.OnClick:=@OpenAtCursorClicked;
|
||||
|
||||
SrcEditMenuClosePage.OnClickMethod:=@CloseClicked;
|
||||
SrcEditMenuCut.OnClickMethod:=@CutClicked;
|
||||
SrcEditMenuCopy.OnClickMethod:=@CopyClicked;
|
||||
SrcEditMenuPaste.OnClickMethod:=@PasteClicked;
|
||||
SrcEditMenuClosePage.OnClick:=@CloseClicked;
|
||||
SrcEditMenuCut.OnClick:=@CutClicked;
|
||||
SrcEditMenuCopy.OnClick:=@CopyClicked;
|
||||
SrcEditMenuPaste.OnClick:=@PasteClicked;
|
||||
for i:=0 to 9 do begin
|
||||
SrcEditSubMenuGotoBookmarks.FindByName('GotoBookmark'+IntToStr(i))
|
||||
.OnClickMethod:=@BookmarkGotoClicked;
|
||||
.OnClick:=@BookmarkGotoClicked;
|
||||
SrcEditSubMenuSetBookmarks.FindByName('SetBookmark'+IntToStr(i))
|
||||
.OnClickMethod:=@BookMarkSetClicked;
|
||||
.OnClick:=@BookMarkSetClicked;
|
||||
end;
|
||||
SrcEditMenuSetFreeBookmark.OnClickMethod:=@BookMarkSetClicked;
|
||||
SrcEditMenuNextBookmark.OnClickMethod:=@BookMarkNextClicked;
|
||||
SrcEditMenuPrevBookmark.OnClickMethod:=@BookMarkPrevClicked;
|
||||
SrcEditMenuSetFreeBookmark.OnClick:=@BookMarkSetClicked;
|
||||
SrcEditMenuNextBookmark.OnClick:=@BookMarkNextClicked;
|
||||
SrcEditMenuPrevBookmark.OnClick:=@BookMarkPrevClicked;
|
||||
|
||||
SrcEditMenuAddBreakpoint.OnClickMethod:=@AddBreakpointClicked;
|
||||
SrcEditMenuAddWatchAtCursor.OnClickMethod:=@AddWatchAtCursor;
|
||||
SrcEditMenuRunToCursor.OnClickMethod:=@RunToClicked;
|
||||
SrcEditMenuViewCallStack.OnClickMethod:=@ViewCallStackClick;
|
||||
SrcEditMenuAddBreakpoint.OnClick:=@AddBreakpointClicked;
|
||||
SrcEditMenuAddWatchAtCursor.OnClick:=@AddWatchAtCursor;
|
||||
SrcEditMenuRunToCursor.OnClick:=@RunToClicked;
|
||||
SrcEditMenuViewCallStack.OnClick:=@ViewCallStackClick;
|
||||
|
||||
SrcEditMenuMoveEditorLeft.OnClickMethod:=@MoveEditorLeftClicked;
|
||||
SrcEditMenuMoveEditorRight.OnClickMethod:=@MoveEditorRightClicked;
|
||||
SrcEditMenuMoveEditorLeft.OnClick:=@MoveEditorLeftClicked;
|
||||
SrcEditMenuMoveEditorRight.OnClick:=@MoveEditorRightClicked;
|
||||
|
||||
SrcEditMenuCompleteCode.OnClickMethod:=@CompleteCodeMenuItemClick;
|
||||
SrcEditMenuEncloseSelection.OnClickMethod:=@EncloseSelectionMenuItemClick;
|
||||
SrcEditMenuExtractProc.OnClickMethod:=@ExtractProcMenuItemClick;
|
||||
SrcEditMenuInvertAssignment.OnClickMethod:=@InvertAssignmentMenuItemClick;
|
||||
SrcEditMenuFindIdentifierReferences.OnClickMethod:=
|
||||
SrcEditMenuCompleteCode.OnClick:=@CompleteCodeMenuItemClick;
|
||||
SrcEditMenuEncloseSelection.OnClick:=@EncloseSelectionMenuItemClick;
|
||||
SrcEditMenuExtractProc.OnClick:=@ExtractProcMenuItemClick;
|
||||
SrcEditMenuInvertAssignment.OnClick:=@InvertAssignmentMenuItemClick;
|
||||
SrcEditMenuFindIdentifierReferences.OnClick:=
|
||||
@FindIdentifierReferencesMenuItemClick;
|
||||
SrcEditMenuRenameIdentifier.OnClickMethod:=@RenameIdentifierMenuItemClick;
|
||||
SrcEditMenuRenameIdentifier.OnClick:=@RenameIdentifierMenuItemClick;
|
||||
|
||||
SrcEditMenuReadOnly.OnClickMethod:=@ReadOnlyClicked;
|
||||
SrcEditMenuShowLineNumbers.OnClickMethod:=@ToggleLineNumbersClicked;
|
||||
SrcEditMenuShowUnitInfo.OnClickMethod:=@ShowUnitInfo;
|
||||
SrcEditMenuEditorProperties.OnClickMethod:=@EditorPropertiesClicked;
|
||||
SrcEditMenuReadOnly.OnClick:=@ReadOnlyClicked;
|
||||
SrcEditMenuShowLineNumbers.OnClick:=@ToggleLineNumbersClicked;
|
||||
SrcEditMenuShowUnitInfo.OnClick:=@ShowUnitInfo;
|
||||
SrcEditMenuEditorProperties.OnClick:=@EditorPropertiesClicked;
|
||||
end;
|
||||
|
||||
procedure TSourceNotebook.RemoveUserDefinedMenuItems;
|
||||
|
||||
@ -100,7 +100,7 @@ type
|
||||
property Hint: String read GetHint write SetHint;
|
||||
property ImageIndex: Integer read FImageIndex write SetImageIndex;
|
||||
property Visible: Boolean read FVisible write SetVisible;
|
||||
property OnClickMethod: TNotifyEvent read FOnClickMethod write FOnClickMethod;
|
||||
property OnClick: TNotifyEvent read FOnClickMethod write FOnClickMethod;
|
||||
property OnClickProc: TNotifyProcedure read FOnClickProc write FOnClickProc;
|
||||
property Caption: string read GetCaption write SetCaption;
|
||||
property Section: TIDEMenuSection read FSection write SetSection;
|
||||
@ -336,7 +336,7 @@ begin
|
||||
Result:=TIDEMenuSection.Create(Name);
|
||||
Result.ChildsAsSubMenu:=true;
|
||||
Result.Caption:=Caption;
|
||||
Result.OnClickMethod:=OnClickMethod;
|
||||
Result.OnClick:=OnClickMethod;
|
||||
Result.OnClickProc:=OnClickProc;
|
||||
Parent.AddLast(Result);
|
||||
end;
|
||||
@ -353,7 +353,7 @@ begin
|
||||
Parent:=IDEMenuRoots.FindByPath(Path,true) as TIDEMenuSection;
|
||||
Result:=TIDEMenuCommand.Create(Name);
|
||||
Result.Caption:=Caption;
|
||||
Result.OnClickMethod:=OnClickMethod;
|
||||
Result.OnClick:=OnClickMethod;
|
||||
Result.OnClickProc:=OnClickProc;
|
||||
Result.Command:=Command;
|
||||
Parent.AddLast(Result);
|
||||
@ -363,7 +363,7 @@ end;
|
||||
|
||||
procedure TIDEMenuItem.MenuItemClick(Sender: TObject);
|
||||
begin
|
||||
if Assigned(OnClickMethod) then OnClickMethod(Sender);
|
||||
if Assigned(OnClick) then OnClick(Sender);
|
||||
if Assigned(OnClickProc) then OnClickProc(Sender);
|
||||
end;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user