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

IDE: when component is deleted, mark referring designers modified

Browse Source 
git-svn-id: trunk@14882 -
This commit is contained in:
mattias 2008-04-18 19:13:00 +00:00
parent dc8dfda3bc
commit d80c75d659
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -11064,6 +11064,10 @@ begin
RaiseException('[TMainIDE.OnPropHookPersistentDeleting] Error: form without source');
end;
if APersistent is TComponent then begin
// mark references modified
if APersistent is TComponent then
MarkUnitsModifiedUsingSubComponent(TComponent(APersistent));
// remember cursor position
SourceNotebook.AddJumpPointClicked(Self);
@ -12846,6 +12850,8 @@ begin
// rename inherited components
RenameInheritedComponents(ActiveUnitInfo,false);
// mark references modified
MarkUnitsModifiedUsingSubComponent(AComponent);
// rename methods
RenameMethods;
@ -13622,7 +13628,6 @@ begin
if (AComponent.Owner=nil) then
FormEditor1.UpdateDesignerFormName(AComponent);
ObjectInspector1.FillPersistentComboBox;
MarkUnitsModifiedUsingSubComponent(AComponent);
end;
{-------------------------------------------------------------------------------

1
ide/project.pp
View File

@ -1,4 +1,3 @@
{ $Id$ }
{
/***************************************************************************
project.pp - project utility class file