fix(settings): prevent duplicate DPI scaling

This commit is contained in:
2026-08-05 12:42:56 +03:00
parent 9047dc586d
commit bd057a7849
+7
View File
@@ -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