Updates

albireo77 · Aug 7, 2021 · f794ecc · f794ecc
1 parent 3f217de
commit f794ecc
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Common/UserFunction.pas b/Common/UserFunction.pas
@@ -416,7 +416,8 @@ constructor TUserFunctionHeader.Create(AParentForm: TFunctionsForm);
 
    cbBodyPage := TComboBox.Create(gbBody);
    cbBodyPage.Parent := gbBody;
-   cbBodyPage.SetBounds(lblBodyPage.BoundsRect.Right+6, 20, TInfra.Scaled(95), 21);
+   cbBodyPage.Constraints.MinWidth := TInfra.Scaled(75);
+   cbBodyPage.SetBounds(lblBodyPage.BoundsRect.Right+6, 20, cbBodyPage.Constraints.MinWidth, 21);
    cbBodyPage.Style := csDropDownList;
    cbBodyPage.ParentFont := false;
    cbBodyPage.Font.Style := [];
@@ -432,7 +433,7 @@ constructor TUserFunctionHeader.Create(AParentForm: TFunctionsForm);
    chkBodyVisible.Font.Style := [];
    chkBodyVisible.Font.Color := clWindowText;
    chkBodyVisible.Caption := i18Manager.GetString('Visible');
-   chkBodyVisible.SetBounds(cbBodyPage.BoundsRect.Right+10, 23, TInfra.GetAutoWidth(chkBodyVisible), 17);
+   chkBodyVisible.SetBounds(cbBodyPage.BoundsRect.Right+20, 22, TInfra.GetAutoWidth(chkBodyVisible), TInfra.Scaled(17));
    chkBodyVisible.DoubleBuffered := true;
    chkBodyVisible.Anchors := [akBottom, akLeft];
    chkBodyVisible.OnClick := OnClickBodyVisible;