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

IdeIntf: comment.

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

2
components/ideintf/componenttreeview.pas
View File

@ -267,6 +267,7 @@ begin
and FComponentList.IsEqual(PropertyEditorHook.LookupRoot, NewSelection) then
begin
// nodes ok, but maybe node values need update
DebugLn('TComponentTreeView.SetSelection: Updating component node values.');
UpdateComponentNodesValues;
Exit;
end;
@ -723,6 +724,7 @@ begin
end;
procedure TComponentTreeView.UpdateComponentNodesValues;
// Could be optimised by adding a PropName parameter and searching a node by name.
procedure UpdateComponentNode(ANode: TTreeNode);
var