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

IDE: Update component tree(OI) when changing the Z-order of a control. Issue #33954.

Browse Source 
git-svn-id: trunk@58521 -
This commit is contained in:
balazs 2018-07-14 19:39:26 +00:00
parent 5b97504b36
commit 82ab3151e0
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/objectinspector.pp
View File

@ -5938,6 +5938,8 @@ begin
end;
DoModified;
if Assigned(ComponentTree) then
ComponentTree.RebuildComponentNodes
end;
function TObjectInspectorDlg.GetComponentPanelHeight: integer;

4
designer/designer.pp
View File

@ -1580,6 +1580,7 @@ procedure TDesigner.DoChangeZOrder(TheAction: Integer);
var
Control: TControl;
Parent: TWinControl;
OI: TObjectInspectorDlg;
begin
if Selection.Count <> 1 then Exit;
if not Selection[0].IsTControl then Exit;
@ -1606,6 +1607,9 @@ begin
SelectOnlyThisComponent(Control);
Modified;
OI := FormEditingHook.GetCurrentObjectInspector;
if Assigned(OI) then
OI.ComponentTree.RebuildComponentNodes;
end;
procedure TDesigner.GiveComponentsNames;