From bd057a7849b34c12a9333ed51536f2840ab28cfb Mon Sep 17 00:00:00 2001
From: Vladimir <i@vladimir.cc>
Date: Wed, 5 Aug 2026 12:42:56 +0300
Subject: [PATCH] fix(settings): prevent duplicate DPI scaling

---
 SettingsForm.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/SettingsForm.pas b/SettingsForm.pas
index ba1370c..44860e1 100644
--- a/SettingsForm.pas
+++ b/SettingsForm.pas
@@ -767,6 +767,13 @@ var
   MaxW, MaxH: Integer;
 begin
   inherited CreateNew(AOwner);
+  // Вся геометрия этой формы строится кодом и уже переводится из 96-DPI
+  // координат через DpiScale. Если оставить TCustomForm.Scaled=True, LCL
+  // после конструктора повторно применит monitor DPI ко всей форме:
+  // при Windows 125% получится 1.25 * 1.25 = 1.5625. Кроме общего раздувания,
+  // это смешивает два масштаба с RelayoutCalTab, который вызывается позднее,
+  // и строки Calibration начинают наезжать на поясняющий текст.
+  Scaled       := False;
   Caption      := 'Settings';
   if AOwner is TCustomForm then
   begin