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

Merged revision(s) 58221 #39d1a5d7b4, 58521 #82ab3151e0 from trunk:

Browse Source 
IDE, options: Improve/Correct sizing of color palette (e.g. in used defined markup). Issue #0033435
........
IDE: Update component tree(OI) when changing the Z-order of a control. Issue #33954.
........

git-svn-id: branches/fixes_1_8@58725 -
This commit is contained in:
maxim 2018-08-16 22:27:13 +00:00
parent 15e80dfc85
commit 67593511e2
3 changed files with 8 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

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

4
designer/designer.pp
View File

@ -1562,6 +1562,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;
@ -1588,6 +1589,9 @@ begin
SelectOnlyThisComponent(Control);
Modified;
OI := FormEditingHook.GetCurrentObjectInspector;
if Assigned(OI) then
OI.ComponentTree.RebuildComponentNodes;
end;
procedure TDesigner.GiveComponentsNames;

2
ide/syncolorattribeditor.pas
View File

@ -401,6 +401,8 @@ begin
CheckControl(FrameColorUseDefaultCheckBox);
ColumnPosBevel.AnchorSide[akLeft].Control := MinAnchor;
Constraints.MinHeight := pnlItalic.Top + pnlItalic.Height;
Constraints.MinWidth := BackPriorSpin.Left + BackPriorSpin.Width;
end;
procedure TSynColorAttrEditor.TextStyleRadioOnChange(Sender: TObject);