paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-17 05:28:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: rearrange source editor popup menu items

Browse Source 
git-svn-id: trunk@20119 -
This commit is contained in:
paul 2009-05-22 06:25:27 +00:00
parent c6677a7a40
commit 2ab7776d76
4 changed files with 40 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/printers/design/ideprinting.pas
View File

@ -70,7 +70,7 @@ begin
nil,nil,CmdFormatSelection, 'menu_file_print'); nil,nil,CmdFormatSelection, 'menu_file_print');
//source editor popup //source editor popup
RegisterIDEMenuCommand(SourceEditorMenuRoot, RegisterIDEMenuCommand(SrcEditMenuSectionPages,
'PrintSelection', 'PrintSelection',
SDescrPFSelection, SDescrPFSelection,
nil,nil,CmdFormatSelection, 'menu_file_print'); nil,nil,CmdFormatSelection, 'menu_file_print');

2
ide/lazarusidestrconsts.pas
View File

@ -1772,7 +1772,7 @@ resourcestring
uemCut = 'Cut'; uemCut = 'Cut';
uemCopy = 'Copy'; uemCopy = 'Copy';
uemPaste = 'Paste'; uemPaste = 'Paste';
uemCopyFilename = 'Copy filename'; uemCopyFilename = 'Copy Filename';
uemGotoBookmark = '&Goto Bookmark'; uemGotoBookmark = '&Goto Bookmark';
uemSetFreeBookmark = 'Set a free Bookmark'; uemSetFreeBookmark = 'Set a free Bookmark';
uemNextBookmark = 'Goto next Bookmark'; uemNextBookmark = 'Goto next Bookmark';

65
ide/sourceeditor.pp
View File

@ -928,18 +928,14 @@ begin
'Find previous word occurrence', srkmecFindPrevWordOccurrence, nil, nil, nil, 'menu_search_find_previous'); 'Find previous word occurrence', srkmecFindPrevWordOccurrence, nil, nil, nil, 'menu_search_find_previous');
SrcEditMenuFindInFiles:=RegisterIDEMenuCommand(AParent, SrcEditMenuFindInFiles:=RegisterIDEMenuCommand(AParent,
'Find in files', srkmecFindInFiles, nil, nil, nil, 'menu_search_files'); 'Find in files', srkmecFindInFiles, nil, nil, nil, 'menu_search_files');
// register the sub menu Open File SrcEditMenuSectionPages := RegisterIDEMenuSection(SourceEditorMenuRoot,
SrcEditSubMenuOpenFile:=RegisterIDESubMenu(SrcEditMenuSectionFirstStatic, 'Pages');
'Open File ...', lisOpenFile2);
AParent:=SrcEditSubMenuOpenFile; SrcEditMenuClosePage:=RegisterIDEMenuCommand(SrcEditMenuSectionPages,
SrcEditMenuOpenFileAtCursor:=RegisterIDEMenuCommand(AParent, 'Close Page',uemClosePage, nil, nil, nil, 'menu_close');
'Open File At Cursor',uemOpenFileAtCursor, nil, nil, nil, 'menu_search_openfile_atcursor');
// register the File Specific dynamic section
SrcEditMenuSectionFileDynamic:=RegisterIDEMenuSection(AParent,
'File dynamic section');
// register the Move Page sub menu // register the Move Page sub menu
SrcEditSubMenuMovePage:=RegisterIDESubMenu(SrcEditMenuSectionFirstStatic, SrcEditSubMenuMovePage:=RegisterIDESubMenu(SrcEditMenuSectionPages,
'Move Page ...', lisMovePage); 'Move Page ...', lisMovePage);
AParent:=SrcEditSubMenuMovePage; AParent:=SrcEditSubMenuMovePage;
SrcEditMenuMoveEditorLeft:=RegisterIDEMenuCommand(AParent,'MoveEditorLeft', SrcEditMenuMoveEditorLeft:=RegisterIDEMenuCommand(AParent,'MoveEditorLeft',
@ -951,9 +947,31 @@ begin
SrcEditMenuMoveEditorLast:=RegisterIDEMenuCommand(AParent,'MoveEditorRightmost', SrcEditMenuMoveEditorLast:=RegisterIDEMenuCommand(AParent,'MoveEditorRightmost',
uemMoveEditorRightmost); uemMoveEditorRightmost);
AParent:=SrcEditMenuSectionFirstStatic; // register the sub menu Open File
SrcEditMenuClosePage:=RegisterIDEMenuCommand(AParent, SrcEditSubMenuOpenFile:=RegisterIDESubMenu(SrcEditMenuSectionPages,
'Close Page',uemClosePage, nil, nil, nil, 'menu_close'); 'Open File ...', lisOpenFile2);
AParent:=SrcEditSubMenuOpenFile;
SrcEditMenuOpenFileAtCursor:=RegisterIDEMenuCommand(AParent,
'Open File At Cursor',uemOpenFileAtCursor, nil, nil, nil, 'menu_search_openfile_atcursor');
// register the File Specific dynamic section
SrcEditMenuSectionFileDynamic:=RegisterIDEMenuSection(AParent,
'File dynamic section');
// register the Flags section
SrcEditSubMenuFlags:=RegisterIDESubMenu(SrcEditMenuSectionPages,
'Flags section', lisFileSettings);
AParent:=SrcEditSubMenuFlags;
SrcEditMenuReadOnly:=RegisterIDEMenuCommand(AParent,'ReadOnly',uemReadOnly);
SrcEditMenuReadOnly.ShowAlwaysCheckable:=true;
SrcEditMenuShowLineNumbers:=RegisterIDEMenuCommand(AParent,
'ShowLineNumbers',uemShowLineNumbers);
SrcEditMenuShowLineNumbers.ShowAlwaysCheckable:=true;
SrcEditMenuShowUnitInfo:=RegisterIDEMenuCommand(AParent,'ShowUnitInfo',
uemShowUnitInfo);
SrcEditSubMenuHighlighter:=RegisterIDESubMenu(AParent,'Highlighter',
uemHighlighter);
SrcEditSubMenuEncoding:=RegisterIDESubMenu(AParent,'Encoding',
uemEncoding);
// register the Clipboard section // register the Clipboard section
SrcEditMenuSectionClipboard:=RegisterIDEMenuSection(SourceEditorMenuRoot, SrcEditMenuSectionClipboard:=RegisterIDEMenuSection(SourceEditorMenuRoot,
@ -990,8 +1008,11 @@ begin
SrcEditMenuSetFreeBookmark:=RegisterIDEMenuCommand(AParent, SrcEditMenuSetFreeBookmark:=RegisterIDEMenuCommand(AParent,
'Set a free Bookmark',uemSetFreeBookmark); 'Set a free Bookmark',uemSetFreeBookmark);
// register the Debug section
SrcEditMenuSectionDebug:=RegisterIDEMenuSection(SourceEditorMenuRoot,
'Debug section');
// register the Debug submenu // register the Debug submenu
SrcEditSubMenuDebug:=RegisterIDESubMenu(SrcEditMenuSectionMarks, SrcEditSubMenuDebug:=RegisterIDESubMenu(SrcEditMenuSectionDebug,
'Debug',uemDebugWord); 'Debug',uemDebugWord);
AParent:=SrcEditSubMenuDebug; AParent:=SrcEditSubMenuDebug;
// register the Debug submenu items // register the Debug submenu items
@ -1035,22 +1056,6 @@ begin
SrcEditMenuInsertTodo:=RegisterIDEMenuCommand(SourceEditorMenuRoot, SrcEditMenuInsertTodo:=RegisterIDEMenuCommand(SourceEditorMenuRoot,
'InsertTodo',uemInsertTodo, nil, nil, nil, 'item_todo'); 'InsertTodo',uemInsertTodo, nil, nil, nil, 'item_todo');
// register the Flags section
SrcEditSubMenuFlags:=RegisterIDESubMenu(SourceEditorMenuRoot,
'Flags section', lisFileSettings);
AParent:=SrcEditSubMenuFlags;
SrcEditMenuReadOnly:=RegisterIDEMenuCommand(AParent,'ReadOnly',uemReadOnly);
SrcEditMenuReadOnly.ShowAlwaysCheckable:=true;
SrcEditMenuShowLineNumbers:=RegisterIDEMenuCommand(AParent,
'ShowLineNumbers',uemShowLineNumbers);
SrcEditMenuShowLineNumbers.ShowAlwaysCheckable:=true;
SrcEditMenuShowUnitInfo:=RegisterIDEMenuCommand(AParent,'ShowUnitInfo',
uemShowUnitInfo);
SrcEditSubMenuHighlighter:=RegisterIDESubMenu(AParent,'Highlighter',
uemHighlighter);
SrcEditSubMenuEncoding:=RegisterIDESubMenu(AParent,'Encoding',
uemEncoding);
SrcEditMenuEditorProperties:=RegisterIDEMenuCommand(SourceEditorMenuRoot, SrcEditMenuEditorProperties:=RegisterIDEMenuCommand(SourceEditorMenuRoot,
'EditorProperties', dlgFROpts, nil, nil, nil, 'menu_environment_options'); 'EditorProperties', dlgFROpts, nil, nil, nil, 'menu_environment_options');
SrcEditMenuDocking:=RegisterIDEMenuCommand(SourceEditorMenuRoot, 'Docking', SrcEditMenuDocking:=RegisterIDEMenuCommand(SourceEditorMenuRoot, 'Docking',

4
ideintf/menuintf.pas
View File

@ -374,6 +374,7 @@ var
SrcEditMenuSectionFirstDynamic: TIDEMenuSection; SrcEditMenuSectionFirstDynamic: TIDEMenuSection;
SrcEditMenuSectionFirstStatic: TIDEMenuSection; SrcEditMenuSectionFirstStatic: TIDEMenuSection;
SrcEditSubMenuFind: TIDEMenuSection; SrcEditSubMenuFind: TIDEMenuSection;
SrcEditMenuSectionPages: TIDEMenuSection;
SrcEditSubMenuOpenFile: TIDEMenuSection; SrcEditSubMenuOpenFile: TIDEMenuSection;
// 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.
@ -383,7 +384,8 @@ var
SrcEditMenuSectionMarks: TIDEMenuSection; SrcEditMenuSectionMarks: TIDEMenuSection;
SrcEditSubMenuGotoBookmarks: TIDEMenuSection; SrcEditSubMenuGotoBookmarks: TIDEMenuSection;
SrcEditSubMenuToggleBookmarks: TIDEMenuSection; SrcEditSubMenuToggleBookmarks: TIDEMenuSection;
SrcEditSubMenuDebug: TIDEMenuSection; SrcEditMenuSectionDebug: TIDEMenuSection;
SrcEditSubMenuDebug: TIDEMenuSection;
SrcEditSubMenuRefactor: TIDEMenuSection; SrcEditSubMenuRefactor: TIDEMenuSection;
SrcEditSubMenuFlags: TIDEMenuSection; SrcEditSubMenuFlags: TIDEMenuSection;
SrcEditSubMenuHighlighter: TIDEMenuSection; SrcEditSubMenuHighlighter: TIDEMenuSection;