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

MG: TMenuItems now all owned by mainbar

Browse Source 
git-svn-id: trunk@1720 -
This commit is contained in:
lazarus 2002-05-30 22:08:09 +00:00
parent e76460e8d4
commit 45309abaf7
1 changed files with 31 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
ide/main.pp
View File

@ -1237,13 +1237,13 @@ end;
procedure TMainIDE.SetupEditMenu; procedure TMainIDE.SetupEditMenu;
begin begin
itmEditUndo := TMenuItem.Create(nil); itmEditUndo := TMenuItem.Create(Self);
itmEditUndo.Name:='itmEditUndo'; itmEditUndo.Name:='itmEditUndo';
itmEditUndo.Caption := lisMenuUndo; itmEditUndo.Caption := lisMenuUndo;
itmEditUndo.OnClick:=@mnuEditUndoClicked; itmEditUndo.OnClick:=@mnuEditUndoClicked;
mnuEdit.Add(itmEditUndo); mnuEdit.Add(itmEditUndo);
itmEditRedo := TMenuItem.Create(nil); itmEditRedo := TMenuItem.Create(Self);
itmEditRedo.Name:='itmEditRedo'; itmEditRedo.Name:='itmEditRedo';
itmEditRedo.Caption := lisMenuRedo; itmEditRedo.Caption := lisMenuRedo;
itmEditRedo.OnClick:=@mnuEditRedoClicked; itmEditRedo.OnClick:=@mnuEditRedoClicked;
@ -1251,19 +1251,19 @@ begin
mnuEdit.Add(CreateSeperator); mnuEdit.Add(CreateSeperator);
itmEditCut := TMenuItem.Create(nil); itmEditCut := TMenuItem.Create(Self);
itmEditCut.Name:='itmEditCut'; itmEditCut.Name:='itmEditCut';
itmEditCut.Caption := lisMenuCut; itmEditCut.Caption := lisMenuCut;
itmEditCut.OnClick:=@mnuEditCutClicked; itmEditCut.OnClick:=@mnuEditCutClicked;
mnuEdit.Add(itmEditCut); mnuEdit.Add(itmEditCut);
itmEditCopy := TMenuItem.Create(nil); itmEditCopy := TMenuItem.Create(Self);
itmEditCopy.Name:='itmEditCopy'; itmEditCopy.Name:='itmEditCopy';
itmEditCopy.Caption := lisMenuCopy; itmEditCopy.Caption := lisMenuCopy;
itmEditCopy.OnClick:=@mnuEditCopyClicked; itmEditCopy.OnClick:=@mnuEditCopyClicked;
mnuEdit.Add(itmEditCopy); mnuEdit.Add(itmEditCopy);
itmEditPaste := TMenuItem.Create(nil); itmEditPaste := TMenuItem.Create(Self);
itmEditPaste.Name:='itmEditPaste'; itmEditPaste.Name:='itmEditPaste';
itmEditPaste.Caption := lisMenuPaste; itmEditPaste.Caption := lisMenuPaste;
itmEditPaste.OnClick:=@mnuEditPasteClicked; itmEditPaste.OnClick:=@mnuEditPasteClicked;
@ -1271,13 +1271,13 @@ begin
mnuEdit.Add(CreateSeperator); mnuEdit.Add(CreateSeperator);
itmEditIndentBlock := TMenuItem.Create(nil); itmEditIndentBlock := TMenuItem.Create(Self);
itmEditIndentBlock.Name:='itmEditIndentBlock'; itmEditIndentBlock.Name:='itmEditIndentBlock';
itmEditIndentBlock.Caption := lisMenuIndentSelection; itmEditIndentBlock.Caption := lisMenuIndentSelection;
itmEditIndentBlock.OnClick:=@mnuEditIndentBlockClicked; itmEditIndentBlock.OnClick:=@mnuEditIndentBlockClicked;
mnuEdit.Add(itmEditIndentBlock); mnuEdit.Add(itmEditIndentBlock);
itmEditUnindentBlock := TMenuItem.Create(nil); itmEditUnindentBlock := TMenuItem.Create(Self);
itmEditUnindentBlock.Name:='itmEditUnindentBlock'; itmEditUnindentBlock.Name:='itmEditUnindentBlock';
itmEditUnindentBlock.Caption := lisMenuUnindentSelection; itmEditUnindentBlock.Caption := lisMenuUnindentSelection;
itmEditUnindentBlock.OnClick:=@mnuEditUnindentBlockClicked; itmEditUnindentBlock.OnClick:=@mnuEditUnindentBlockClicked;
@ -1285,7 +1285,7 @@ begin
mnuEdit.Add(CreateSeperator); mnuEdit.Add(CreateSeperator);
itmEditCompleteCode := TMenuItem.Create(nil); itmEditCompleteCode := TMenuItem.Create(Self);
itmEditCompleteCode.Name:='itmEditCompleteCode'; itmEditCompleteCode.Name:='itmEditCompleteCode';
itmEditCompleteCode.Caption := lisMenuCompleteCode; itmEditCompleteCode.Caption := lisMenuCompleteCode;
itmEditCompleteCode.OnClick:=@mnuEditCompleteCodeClicked; itmEditCompleteCode.OnClick:=@mnuEditCompleteCodeClicked;
@ -1294,86 +1294,86 @@ end;
procedure TMainIDE.SetupSearchMenu; procedure TMainIDE.SetupSearchMenu;
begin begin
itmSearchFind := TMenuItem.Create(nil); itmSearchFind := TMenuItem.Create(Self);
itmSearchFind.Name:='itmSearchFind'; itmSearchFind.Name:='itmSearchFind';
itmSearchFind.Caption := lisMenuFind; itmSearchFind.Caption := lisMenuFind;
mnuSearch.add(itmSearchFind); mnuSearch.add(itmSearchFind);
itmSearchFindNext := TMenuItem.Create(nil); itmSearchFindNext := TMenuItem.Create(Self);
itmSearchFindNext.Name:='itmSearchFindNext'; itmSearchFindNext.Name:='itmSearchFindNext';
itmSearchFindNext.Caption := lisMenuFindNext; itmSearchFindNext.Caption := lisMenuFindNext;
itmSearchFindNext.Enabled := False; itmSearchFindNext.Enabled := False;
mnuSearch.add(itmSearchFindNext); mnuSearch.add(itmSearchFindNext);
itmSearchFindPrevious := TMenuItem.Create(nil); itmSearchFindPrevious := TMenuItem.Create(Self);
itmSearchFindPrevious.Name:='itmSearchFindPrevious'; itmSearchFindPrevious.Name:='itmSearchFindPrevious';
itmSearchFindPrevious.Caption := lisMenuFindPrevious; itmSearchFindPrevious.Caption := lisMenuFindPrevious;
itmSearchFindPrevious.Enabled := False; itmSearchFindPrevious.Enabled := False;
mnuSearch.add(itmSearchFindPrevious); mnuSearch.add(itmSearchFindPrevious);
itmSearchFindInFiles := TMenuItem.Create(nil); itmSearchFindInFiles := TMenuItem.Create(Self);
itmSearchFindInFiles.Name:='itmSearchFindInFiles'; itmSearchFindInFiles.Name:='itmSearchFindInFiles';
itmSearchFindInFiles.Caption := lisMenuFindInFiles; itmSearchFindInFiles.Caption := lisMenuFindInFiles;
itmSearchFindInFiles.Enabled := False; itmSearchFindInFiles.Enabled := False;
mnuSearch.add(itmSearchFindInFiles); mnuSearch.add(itmSearchFindInFiles);
itmSearchReplace := TMenuItem.Create(nil); itmSearchReplace := TMenuItem.Create(Self);
itmSearchReplace.Name:='itmSearchReplace'; itmSearchReplace.Name:='itmSearchReplace';
itmSearchReplace.Caption := lisMenuReplace; itmSearchReplace.Caption := lisMenuReplace;
mnuSearch.add(itmSearchReplace); mnuSearch.add(itmSearchReplace);
mnuSearch.Add(CreateSeperator); mnuSearch.Add(CreateSeperator);
itmGotoLine := TMenuItem.Create(nil); itmGotoLine := TMenuItem.Create(Self);
itmGotoLine.Name:='itmGotoLine'; itmGotoLine.Name:='itmGotoLine';
itmGotoLine.Caption := lisMenuGotoLine; itmGotoLine.Caption := lisMenuGotoLine;
mnuSearch.add(itmGotoLine); mnuSearch.add(itmGotoLine);
mnuSearch.Add(CreateSeperator); mnuSearch.Add(CreateSeperator);
itmJumpBack := TMenuItem.Create(nil); itmJumpBack := TMenuItem.Create(Self);
itmJumpBack.Name:='itmJumpBack'; itmJumpBack.Name:='itmJumpBack';
itmJumpBack.Caption := lisMenuJumpBack; itmJumpBack.Caption := lisMenuJumpBack;
mnuSearch.add(itmJumpBack); mnuSearch.add(itmJumpBack);
itmJumpForward := TMenuItem.Create(nil); itmJumpForward := TMenuItem.Create(Self);
itmJumpForward.Name:='itmJumpForward'; itmJumpForward.Name:='itmJumpForward';
itmJumpForward.Caption := lisMenuJumpForward; itmJumpForward.Caption := lisMenuJumpForward;
mnuSearch.add(itmJumpForward); mnuSearch.add(itmJumpForward);
itmAddJumpPoint := TMenuItem.Create(nil); itmAddJumpPoint := TMenuItem.Create(Self);
itmAddJumpPoint.Name:='itmAddJumpPoint'; itmAddJumpPoint.Name:='itmAddJumpPoint';
itmAddJumpPoint.Caption := lisMenuAddJumpPointToHistory; itmAddJumpPoint.Caption := lisMenuAddJumpPointToHistory;
mnuSearch.add(itmAddJumpPoint); mnuSearch.add(itmAddJumpPoint);
itmJumpHistory := TMenuItem.Create(nil); itmJumpHistory := TMenuItem.Create(Self);
itmJumpHistory.Name:='itmJumpHistory'; itmJumpHistory.Name:='itmJumpHistory';
itmJumpHistory.Caption := lisMenuViewJumpHistory; itmJumpHistory.Caption := lisMenuViewJumpHistory;
mnuSearch.add(itmJumpHistory); mnuSearch.add(itmJumpHistory);
mnuSearch.Add(CreateSeperator); mnuSearch.Add(CreateSeperator);
itmFindBlockOtherEnd := TMenuItem.Create(nil); itmFindBlockOtherEnd := TMenuItem.Create(Self);
itmFindBlockOtherEnd.Name:='itmFindBlockOtherEnd'; itmFindBlockOtherEnd.Name:='itmFindBlockOtherEnd';
itmFindBlockOtherEnd.Caption := lisMenuFindBlockOtherEndOfCodeBlock; itmFindBlockOtherEnd.Caption := lisMenuFindBlockOtherEndOfCodeBlock;
mnuSearch.add(itmFindBlockOtherEnd); mnuSearch.add(itmFindBlockOtherEnd);
itmFindBlockStart := TMenuItem.Create(nil); itmFindBlockStart := TMenuItem.Create(Self);
itmFindBlockStart.Name:='itmFindBlockStart'; itmFindBlockStart.Name:='itmFindBlockStart';
itmFindBlockStart.Caption := lisMenuFindCodeBlockStart; itmFindBlockStart.Caption := lisMenuFindCodeBlockStart;
mnuSearch.add(itmFindBlockStart); mnuSearch.add(itmFindBlockStart);
itmFindDeclaration := TMenuItem.Create(nil); itmFindDeclaration := TMenuItem.Create(Self);
itmFindDeclaration.Name:='itmFindDeclaration'; itmFindDeclaration.Name:='itmFindDeclaration';
itmFindDeclaration.Caption := lisMenuFindDeclarationAtCursor; itmFindDeclaration.Caption := lisMenuFindDeclarationAtCursor;
mnuSearch.add(itmFindDeclaration); mnuSearch.add(itmFindDeclaration);
itmOpenFileAtCursor := TMenuItem.Create(nil); itmOpenFileAtCursor := TMenuItem.Create(Self);
itmOpenFileAtCursor.Name:='itmOpenFileAtCursor'; itmOpenFileAtCursor.Name:='itmOpenFileAtCursor';
itmOpenFileAtCursor.Caption := lisMenuOpenFilenameAtCursor; itmOpenFileAtCursor.Caption := lisMenuOpenFilenameAtCursor;
mnuSearch.add(itmOpenFileAtCursor); mnuSearch.add(itmOpenFileAtCursor);
itmGotoIncludeDirective := TMenuItem.Create(nil); itmGotoIncludeDirective := TMenuItem.Create(Self);
itmGotoIncludeDirective.Name:='itmGotoIncludeDirective'; itmGotoIncludeDirective.Name:='itmGotoIncludeDirective';
itmGotoIncludeDirective.Caption := lisMenuGotoIncludeDirective; itmGotoIncludeDirective.Caption := lisMenuGotoIncludeDirective;
itmGotoIncludeDirective.OnClick:=@mnuGotoIncludeDirectiveClicked; itmGotoIncludeDirective.OnClick:=@mnuGotoIncludeDirectiveClicked;
@ -1622,25 +1622,25 @@ end;
procedure TMainIDE.SetupEnvironmentMenu; procedure TMainIDE.SetupEnvironmentMenu;
begin begin
itmEnvGeneralOptions := TMenuItem.Create(nil); itmEnvGeneralOptions := TMenuItem.Create(Self);
itmEnvGeneralOptions.Name:='itmEnvGeneralOptions'; itmEnvGeneralOptions.Name:='itmEnvGeneralOptions';
itmEnvGeneralOptions.Caption := lisMenuGeneralOptions; itmEnvGeneralOptions.Caption := lisMenuGeneralOptions;
itmEnvGeneralOptions.OnCLick := @mnuEnvGeneralOptionsClicked; itmEnvGeneralOptions.OnCLick := @mnuEnvGeneralOptionsClicked;
mnuEnvironment.Add(itmEnvGeneralOptions); mnuEnvironment.Add(itmEnvGeneralOptions);
itmEnvEditorOptions := TMenuItem.Create(nil); itmEnvEditorOptions := TMenuItem.Create(Self);
itmEnvEditorOptions.Name:='itmEnvEditorOptions'; itmEnvEditorOptions.Name:='itmEnvEditorOptions';
itmEnvEditorOptions.Caption := lisMenuEditorOptions; itmEnvEditorOptions.Caption := lisMenuEditorOptions;
itmEnvEditorOptions.OnCLick := @mnuEnvEditorOptionsClicked; itmEnvEditorOptions.OnCLick := @mnuEnvEditorOptionsClicked;
mnuEnvironment.Add(itmEnvEditorOptions); mnuEnvironment.Add(itmEnvEditorOptions);
itmEnvCodeToolsOptions := TMenuItem.Create(nil); itmEnvCodeToolsOptions := TMenuItem.Create(Self);
itmEnvCodeToolsOptions.Name:='itmEnvCodeToolsOptions'; itmEnvCodeToolsOptions.Name:='itmEnvCodeToolsOptions';
itmEnvCodeToolsOptions.Caption := lisMenuCodeToolsOptions; itmEnvCodeToolsOptions.Caption := lisMenuCodeToolsOptions;
itmEnvCodeToolsOptions.OnCLick := @mnuEnvCodeToolsOptionsClicked; itmEnvCodeToolsOptions.OnCLick := @mnuEnvCodeToolsOptionsClicked;
mnuEnvironment.Add(itmEnvCodeToolsOptions); mnuEnvironment.Add(itmEnvCodeToolsOptions);
itmEnvCodeToolsDefinesEditor := TMenuItem.Create(nil); itmEnvCodeToolsDefinesEditor := TMenuItem.Create(Self);
itmEnvCodeToolsDefinesEditor.Name:='itmEnvCodeToolsDefinesEditor'; itmEnvCodeToolsDefinesEditor.Name:='itmEnvCodeToolsDefinesEditor';
itmEnvCodeToolsDefinesEditor.Caption := lisMenuCodeToolsDefinesEditor; itmEnvCodeToolsDefinesEditor.Caption := lisMenuCodeToolsDefinesEditor;
itmEnvCodeToolsDefinesEditor.OnCLick := @mnuEnvCodeToolsDefinesEditorClicked; itmEnvCodeToolsDefinesEditor.OnCLick := @mnuEnvCodeToolsDefinesEditorClicked;
@ -1649,7 +1649,7 @@ end;
procedure TMainIDE.SetupHelpMenu; procedure TMainIDE.SetupHelpMenu;
begin begin
itmHelpAboutLazarus := TMenuItem.Create(nil); itmHelpAboutLazarus := TMenuItem.Create(Self);
itmHelpAboutLazarus.Name:='itmHelpAboutLazarus'; itmHelpAboutLazarus.Name:='itmHelpAboutLazarus';
itmHelpAboutLazarus.Caption := lisMenuAboutLazarus; itmHelpAboutLazarus.Caption := lisMenuAboutLazarus;
itmHelpAboutLazarus.OnCLick := @mnuHelpAboutLazarusClicked; itmHelpAboutLazarus.OnCLick := @mnuHelpAboutLazarusClicked;
@ -6404,6 +6404,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.304 2002/05/30 22:08:09 lazarus
MG: TMenuItems now all owned by mainbar
Revision 1.303 2002/05/30 21:40:08 lazarus Revision 1.303 2002/05/30 21:40:08 lazarus
* component-palette: TMainMenu replaces TMenu * component-palette: TMainMenu replaces TMenu
+ TMenuItem registered as unvisible component + TMenuItem registered as unvisible component