Updates

albireo77 · Aug 15, 2021 · 437d774 · 437d774
1 parent 76e1d4c
commit 437d774
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,9 @@
+9.0 [15.08.2021]
+- fix access violation in for..do loop in some cases
+- fix bugs in copy/cut with drag and drop when resize frame was enabled
+- fixes for high DPI monitors (125%)
+- reduce exe file size
+
 8.12 [20.07.2021]
 - compiled with Delphi 10.4.2
 

diff --git a/Common/UserDataType.pas b/Common/UserDataType.pas
@@ -123,9 +123,9 @@ constructor TUserDataType.Create(AParentForm: TDataTypesForm);
    sbxElements.Parent := Self;
    sbxElements.Ctl3D := false;
    sbxElements.BorderStyle := bsNone;
+   sbxElements.SetBounds(0, 149, TInfra.Scaled(302), 0);
    sbxElements.Constraints.MaxHeight := AParentForm.Height - 233;
-   sbxElements.Constraints.MinWidth := 302;
-   sbxElements.SetBounds(0, 149, TInfra.Scaled(308), 0);
+   sbxElements.Constraints.MinWidth := sbxElements.Width;
    sbxElements.VertScrollBar.Tracking := true;
    sbxElements.DoubleBuffered := true;
    sbxElements.Anchors := [akTop, akBottom, akLeft, akRight];