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

IDE: Workaround for late updates of ecGotoBookmarks popup menu. See issue #39540

Browse Source
This commit is contained in:
Martin 2023-02-01 20:21:10 +01:00
parent 6d768e7921
commit 33d32450a5
3 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -401,7 +401,6 @@ type
procedure UpdateMainIDECommands(Sender: TObject); procedure UpdateMainIDECommands(Sender: TObject);
procedure UpdateFileCommands(Sender: TObject); procedure UpdateFileCommands(Sender: TObject);
procedure UpdateEditorCommands(Sender: TObject); procedure UpdateEditorCommands(Sender: TObject);
procedure UpdateBookmarkCommands(Sender: TObject);
procedure UpdateEditorTabCommands(Sender: TObject); procedure UpdateEditorTabCommands(Sender: TObject);
procedure UpdateProjectCommands(Sender: TObject); procedure UpdateProjectCommands(Sender: TObject);
procedure UpdatePackageCommands(Sender: TObject); procedure UpdatePackageCommands(Sender: TObject);
@ -428,6 +427,7 @@ type
procedure LayoutChangeHandler(Sender: TObject); procedure LayoutChangeHandler(Sender: TObject);
procedure ToolBarOptionsClick(Sender: TObject); procedure ToolBarOptionsClick(Sender: TObject);
public public
procedure UpdateBookmarkCommands(Sender: TObject); override;
// Environment options dialog event handlers // Environment options dialog event handlers
function DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass; function DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass;
ACaption: String; AOptionsFilter: array of TAbstractIDEOptionsClass; ACaption: String; AOptionsFilter: array of TAbstractIDEOptionsClass;

1
ide/mainintf.pas
View File

@ -124,6 +124,7 @@ type
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure UpdateBookmarkCommands(Sender: TObject); virtual; abstract;
procedure SetMainBarSubTitle(const AValue: string); override; procedure SetMainBarSubTitle(const AValue: string); override;
procedure UpdateCaption; virtual; abstract; procedure UpdateCaption; virtual; abstract;
procedure HideIDE; virtual; abstract; procedure HideIDE; virtual; abstract;

2
ide/sourceeditor.pp
View File

@ -1882,6 +1882,7 @@ end;
procedure TToolButton_GotoBookmarks.RefreshMenu; procedure TToolButton_GotoBookmarks.RefreshMenu;
begin begin
MainIDEInterface.UpdateBookmarkCommands(nil);
AddMenuItems(SrcEditMenuGotoBookmark); AddMenuItems(SrcEditMenuGotoBookmark);
DropdownMenu.Items.AddSeparator; DropdownMenu.Items.AddSeparator;
AddMenuItems([ AddMenuItems([
@ -1904,6 +1905,7 @@ end;
procedure TToolButton_ToggleBookmarks.RefreshMenu; procedure TToolButton_ToggleBookmarks.RefreshMenu;
begin begin
MainIDEInterface.UpdateBookmarkCommands(nil);
AddMenuItems(SrcEditMenuToggleBookmark); AddMenuItems(SrcEditMenuToggleBookmark);
DropdownMenu.Items.AddSeparator; DropdownMenu.Items.AddSeparator;
AddMenuItem(SrcEditMenuSetFreeBookmark); AddMenuItem(SrcEditMenuSetFreeBookmark);