paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Src Editor: popup menu: switched move flags section to sub menu

Browse Source 
git-svn-id: trunk@14499 -
This commit is contained in:
mattias 2008-03-12 11:37:28 +00:00
parent 99fe112e0a
commit 580e37d62a
3 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -1,4 +1,3 @@
{ $Id$ }
{ {
/*************************************************************************** /***************************************************************************
lazarusidestrconsts.pas lazarusidestrconsts.pas
@ -3669,6 +3668,7 @@ resourcestring
lisNotImplementedYet = 'Not implemented yet:%s%s'; lisNotImplementedYet = 'Not implemented yet:%s%s';
lisOpenFile2 = 'Open File ...'; lisOpenFile2 = 'Open File ...';
lisMovePage = 'Move Page ...'; lisMovePage = 'Move Page ...';
lisFileSettings = 'File Settings ...';
implementation implementation

9
ide/uniteditor.pp
View File

@ -1012,9 +1012,9 @@ begin
'InsertTodo',uemInsertTodo, nil, nil, nil, 'item_todo'); 'InsertTodo',uemInsertTodo, nil, nil, nil, 'item_todo');
// register the Flags section // register the Flags section
SrcEditMenuSectionFlags:=RegisterIDEMenuSection(SourceEditorMenuRoot, SrcEditSubMenuFlags:=RegisterIDESubMenu(SourceEditorMenuRoot,
'Flags section'); 'Flags section', lisFileSettings);
AParent:=SrcEditMenuSectionFlags; AParent:=SrcEditSubMenuFlags;
SrcEditMenuReadOnly:=RegisterIDEMenuCommand(AParent,'ReadOnly',uemReadOnly); SrcEditMenuReadOnly:=RegisterIDEMenuCommand(AParent,'ReadOnly',uemReadOnly);
SrcEditMenuReadOnly.ShowAlwaysCheckable:=true; SrcEditMenuReadOnly.ShowAlwaysCheckable:=true;
SrcEditMenuShowLineNumbers:=RegisterIDEMenuCommand(AParent, SrcEditMenuShowLineNumbers:=RegisterIDEMenuCommand(AParent,
@ -1024,7 +1024,8 @@ begin
uemShowUnitInfo); uemShowUnitInfo);
SrcEditSubMenuHighlighter:=RegisterIDESubMenu(AParent,'Highlighter', SrcEditSubMenuHighlighter:=RegisterIDESubMenu(AParent,'Highlighter',
uemHighlighter); uemHighlighter);
SrcEditMenuEditorProperties:=RegisterIDEMenuCommand(AParent,
SrcEditMenuEditorProperties:=RegisterIDEMenuCommand(SourceEditorMenuRoot,
'EditorProperties',uemEditorProperties, nil, nil, nil, 'menu_editor_options'); 'EditorProperties',uemEditorProperties, nil, nil, nil, 'menu_editor_options');
end; end;

4
ideintf/menuintf.pas
View File

@ -374,14 +374,14 @@ var
// Source Editor: File Specific dynamic section // Source Editor: File Specific dynamic section
// The items are cleared automatically after each popup. // The items are cleared automatically after each popup.
SrcEditMenuSectionFileDynamic: TIDEMenuSection; SrcEditMenuSectionFileDynamic: TIDEMenuSection;
SrcEditSubMenuMovePage: TIDEMenuSection;
SrcEditMenuSectionClipboard: TIDEMenuSection; SrcEditMenuSectionClipboard: TIDEMenuSection;
SrcEditMenuSectionMarks: TIDEMenuSection; SrcEditMenuSectionMarks: TIDEMenuSection;
SrcEditSubMenuGotoBookmarks: TIDEMenuSection; SrcEditSubMenuGotoBookmarks: TIDEMenuSection;
SrcEditSubMenuSetBookmarks: TIDEMenuSection; SrcEditSubMenuSetBookmarks: TIDEMenuSection;
SrcEditMenuSectionFlags: TIDEMenuSection; SrcEditSubMenuFlags: TIDEMenuSection;
SrcEditSubMenuHighlighter: TIDEMenuSection; SrcEditSubMenuHighlighter: TIDEMenuSection;
SrcEditSubMenuDebug: TIDEMenuSection; SrcEditSubMenuDebug: TIDEMenuSection;
SrcEditSubMenuMovePage: TIDEMenuSection;
SrcEditSubMenuRefactor: TIDEMenuSection; SrcEditSubMenuRefactor: TIDEMenuSection;
// Messages window popupmenu // Messages window popupmenu