From 437d7741cf1419a9a13ef18e6b8926ef91be3dcd Mon Sep 17 00:00:00 2001
From: albireo77 <albireo77@users.noreply.github.com>
Date: Sun, 15 Aug 2021 10:30:44 +0200
Subject: [PATCH] Updates

---
 ChangeLog               | 6 ++++++
 Common/UserDataType.pas | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e778f077..a3370399 100644
--- 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
index a1d04348..96e4f5e9 100644
--- 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];