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

TCustomAbstractGroupedEdit: assign PopupMenu also to FBuddy (if this does not have a separate PopupMenu by itself).

Browse Source 
Resolves part of .
This commit is contained in:
Bart 2023-11-06 13:22:24 +01:00
parent 8fa26c3c71
commit 54e9cc9171
1 changed files with 6 additions and 0 deletions

6
lcl/groupededit.pp
View File

@ -905,8 +905,14 @@ begin
end; end;
procedure TCustomAbstractGroupedEdit.SetPopupMenu(AValue: TPopupMenu); procedure TCustomAbstractGroupedEdit.SetPopupMenu(AValue: TPopupMenu);
var
OldPopupMenu: TPopupMenu;
begin begin
OldPopupMenu := FEdit.PopupMenu;
FEdit.PopupMenu := AValue; FEdit.PopupMenu := AValue;
//users can assign a different popupmenu to the buddy if so desired, if that is the case, don't touch it
if (FBuddy.PopupMenu = OldPopupMenu) then
FBuddy.PopupMenu := AValue;
end; end;
procedure TCustomAbstractGroupedEdit.RealSetText(const AValue: TCaption); procedure TCustomAbstractGroupedEdit.RealSetText(const AValue: TCaption);