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

Packager: Support Sender as TIDEMenuItem in function GetPackageOfEditorItem. Affects ToDo list with packages etc.

Browse Source
This commit is contained in:
Juha 2025-02-17 15:51:08 +02:00
parent 697a7c6612
commit 083741b251
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/menuintf.pas
View File

@ -90,7 +90,8 @@ type
public public
property Bitmap: TBitmap read GetBitmap write SetBitmap; property Bitmap: TBitmap read GetBitmap write SetBitmap;
property Section: TIDEMenuSection read FSection write SetSection; property Section: TIDEMenuSection read FSection write SetSection;
property MenuItem: TMenuItem read FMenuItem write SetMenuItem; // Note: root section MenuItem = TMenu.Items, setting a non root does not add to Section.MenuItem // Note: root section MenuItem=TMenu.Items, setting a non root does not add to Section.MenuItem
property MenuItem: TMenuItem read FMenuItem write SetMenuItem;
property MenuItemClass: TMenuItemClass read FMenuItemClass write FMenuItemClass; property MenuItemClass: TMenuItemClass read FMenuItemClass write FMenuItemClass;
property SectionIndex: Integer read FSectionIndex; property SectionIndex: Integer read FSectionIndex;
property Tag: Integer read FTag write FTag; property Tag: Integer read FTag write FTag;

8
packager/pkgmanager.pas
View File

@ -5385,8 +5385,7 @@ begin
end; end;
end; end;
function TPkgManager.ApplyDependency(CurDependency: TPkgDependency function TPkgManager.ApplyDependency(CurDependency: TPkgDependency): TModalResult;
): TModalResult;
// apply // apply
var var
OldPkg: TLazPackage; OldPkg: TLazPackage;
@ -5416,10 +5415,11 @@ end;
function TPkgManager.GetPackageOfEditorItem(Sender: TObject): TIDEPackage; function TPkgManager.GetPackageOfEditorItem(Sender: TObject): TIDEPackage;
begin begin
Result:=nil; Result:=nil;
if Sender is TIDEMenuItem then
Sender:=TIDEMenuItem(Sender).MenuItem;
while (Sender is TMenuItem) and (TMenuItem(Sender).Parent<>nil) do while (Sender is TMenuItem) and (TMenuItem(Sender).Parent<>nil) do
Sender:=TMenuItem(Sender).Parent; Sender:=TMenuItem(Sender).Parent;
if (Sender is TMenuItem) and (TMenuItem(Sender).Menu<>nil) if (Sender is TMenuItem) and (TMenuItem(Sender).Menu<>nil) then
then
Sender:=TMenuItem(Sender).Menu; Sender:=TMenuItem(Sender).Menu;
if (Sender is TComponent) and (TComponent(Sender).Owner is TCustomForm) then if (Sender is TComponent) and (TComponent(Sender).Owner is TCustomForm) then
Sender:=TCustomForm(TComponent(Sender).Owner); Sender:=TCustomForm(TComponent(Sender).Owner);