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