paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 12:12:47 +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; end;
DoModified; DoModified;
if Assigned(ComponentTree) then
ComponentTree.RebuildComponentNodes
end; end;
function TObjectInspectorDlg.GetComponentPanelHeight: integer; function TObjectInspectorDlg.GetComponentPanelHeight: integer;

4
designer/designer.pp
View File

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