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

Object Inspector: Update component tree's captions after changing property value.

Browse Source 
git-svn-id: trunk@52244 -
This commit is contained in:
juha 2016-04-24 14:15:14 +00:00
parent 3a9c90d806
commit 7047f40793
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -12610,10 +12610,10 @@ end;
procedure TMainIDE.OnPropHookModified(Sender: TObject; PropName: ShortString);
begin
// ToDo: Mark designer as modified with PropName.
if (PropName='') and Assigned(ObjectInspector1) then
// any change of property can cause a change of a display name
ObjectInspector1.FillComponentList;
// ToDo: Should designer be marked as modified with PropName?
if Assigned(ObjectInspector1) then
// Any change of property can cause a change of a display name
ObjectInspector1.ComponentTree.UpdateComponentNodesValues;
end;
{-------------------------------------------------------------------------------