GitHub-Mirror
/
x2cl
mirror of
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fixed: free notification wasn't handled for a linked Action

This commit is contained in:
Mark van Renswoude 2010-06-02 10:15:24 +00:00
parent 6322d27e0c
commit e1c32b70e5
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Source/X2CLMenuBar.pas
View File

@ -327,6 +327,7 @@ type
procedure DoActionChange(Sender: TObject);
protected
procedure ActionChange(Sender: TObject; CheckDefaults: Boolean); virtual;
procedure ActionNotification(Sender: TObject; AComponent: TComponent; Operation: TOperation); virtual;
function IsCaptionStored: Boolean; virtual;
function GetMenuBar: TX2CustomMenuBar; virtual;
@ -1198,6 +1199,17 @@ begin
end;
procedure TX2CustomMenuBarItem.ActionNotification(Sender: TObject; AComponent: TComponent; Operation: TOperation);
begin
if (AComponent = FAction) and (Operation = opRemove) then
begin
{ Don't free FNotification here, we're in it's event handler }
FAction := nil;
FreeAndNil(FActionLink);
end;
end;
function TX2CustomMenuBarItem.IsCaptionStored: Boolean;
begin
Result := (Length(Caption) > 0);
@ -1252,7 +1264,10 @@ begin
FActionLink.Action := Value;
if not Assigned(FNotification) then
begin
FNotification := TX2ComponentNotification.Create(nil);
FNotification.OnNotification := ActionNotification;
end;
ActionChange(Value, csLoading in Value.ComponentState);
FAction.FreeNotification(FNotification);