From f794eccc729e04191fde9bdfd4c33db64fe24598 Mon Sep 17 00:00:00 2001
From: albireo77 <albireo77@users.noreply.github.com>
Date: Sat, 7 Aug 2021 09:53:16 +0200
Subject: [PATCH] Updates

---
 Common/UserFunction.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Common/UserFunction.pas b/Common/UserFunction.pas
index f3d4a8f0..7b81721b 100644
--- 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;