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

IDE: fixed editor context menu, show bookmarks in the main pop-up. (not under "file settings")

Browse Source
This commit is contained in:
Martin 2022-04-01 17:48:20 +02:00
parent 67921e73b6
commit c4d93041c3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.pp
View File

@ -1721,6 +1721,7 @@ begin
{%region *** Goto Marks section ***} {%region *** Goto Marks section ***}
SrcEditMenuSectionMarks:=RegisterIDEMenuSection(SourceEditorMenuRoot, 'Marks section'); SrcEditMenuSectionMarks:=RegisterIDEMenuSection(SourceEditorMenuRoot, 'Marks section');
AParent:=SrcEditMenuSectionMarks;
// register the Goto Bookmarks Submenu // register the Goto Bookmarks Submenu
SrcEditSubMenuGotoBookmarks:=RegisterIDESubMenu(AParent, SrcEditSubMenuGotoBookmarks:=RegisterIDESubMenu(AParent,
'Goto bookmarks', uemGotoBookmark, 'Goto bookmarks', uemGotoBookmark,
@ -1743,6 +1744,7 @@ begin
{%endregion} {%endregion}
{%region *** Toggle Bookmarks Submenu ***} {%region *** Toggle Bookmarks Submenu ***}
AParent:=SrcEditMenuSectionMarks;
SrcEditSubMenuToggleBookmarks:=RegisterIDESubMenu(AParent, SrcEditSubMenuToggleBookmarks:=RegisterIDESubMenu(AParent,
'Toggle bookmarks', uemToggleBookmark, 'Toggle bookmarks', uemToggleBookmark,
nil, TNotifyProcedure(@TToolButton_ToggleBookmarks.ShowAloneMenu), nil, TNotifyProcedure(@TToolButton_ToggleBookmarks.ShowAloneMenu),