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

IdeIntf: Prevent a crash when Action is deleted in ActionsEditor. Issue #27624, patch from Anton.

Browse Source 
git-svn-id: trunk@48187 -
This commit is contained in:
juha 2015-03-09 23:15:48 +00:00
parent dc0729c75b
commit 85dae0945d
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/ideintf/actionseditor.pas
View File

@ -135,6 +135,7 @@ type
protected
procedure OnComponentRenamed(AComponent: TComponent);
procedure OnComponentSelection(const NewSelection: TPersistentSelectionList);
procedure OnComponentDelete(APersistent: TPersistent);
procedure OnRefreshPropertyValues;
function GetSelectedAction: TContainedAction;
procedure Notification(AComponent: TComponent; Operation: TOperation);
@ -757,6 +758,16 @@ begin
ACanvas.DrawFocusRect(ARect);
end;
procedure TActionListEditor.OnComponentDelete(APersistent: TPersistent);
var
i: Integer;
begin
if not (APersistent is TContainedAction) then Exit;
i := lstActionName.Items.IndexOfObject(APersistent);
if i >= 0 then
lstActionName.Items.Delete(i);
end;
procedure TActionListEditor.SBShowMenuNewActionsClick(Sender: TObject);
var
MousePoint: TPoint;
@ -891,6 +902,7 @@ begin
GlobalDesignHook.AddHandlerComponentRenamed(@OnComponentRenamed);
GlobalDesignHook.AddHandlerSetSelection(@OnComponentSelection);
GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnRefreshPropertyValues);
GlobalDesignHook.AddHandlerPersistentDeleting(@OnComponentDelete);
AddActionEditor(Self);
end;