diff --git a/ide/progresswnd.pas b/ide/progresswnd.pas index 575cfac04b..cd6522ad54 100644 --- a/ide/progresswnd.pas +++ b/ide/progresswnd.pas @@ -328,12 +328,15 @@ begin Result.Panel.AutoSize:=true; Result.Panel.Constraints.MinWidth:=100; Result.Panel.Constraints.MinHeight:=30; + Result.Panel.BevelInner:=bvNone; + Result.Panel.BevelOuter:=bvNone; // add a label into the panel Result.CaptionLabel:=TLabel.Create(Result.Panel); Result.CaptionLabel.Align:=alTop; Result.CaptionLabel.AutoSize:=true; Result.CaptionLabel.Parent:=Result.Panel; Result.CaptionLabel.ShowHint:=true; + Result.CaptionLabel.BorderSpacing.Around:=6; // add a progressbar below the label Result.ProgressBar:=TProgressBar.Create(Result.Panel); Result.ProgressBar.Align:=alTop; @@ -341,6 +344,7 @@ begin Result.ProgressBar.Parent:=Result.Panel; Result.ProgressBar.ShowHint:=true; Result.ProgressBar.Top:=10; + Result.ProgressBar.BorderSpacing.Around:=6; // show panel DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TIDEProgressWindow.AddItem'){$ENDIF};