mirror of
https://git.vladimir.cc/vladimir/ewsdr.git
synced 2026-08-26 04:47:35 +00:00
fix(settings): prevent duplicate DPI scaling
This commit is contained in:
@@ -767,6 +767,13 @@ var
|
|||||||
MaxW, MaxH: Integer;
|
MaxW, MaxH: Integer;
|
||||||
begin
|
begin
|
||||||
inherited CreateNew(AOwner);
|
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';
|
Caption := 'Settings';
|
||||||
if AOwner is TCustomForm then
|
if AOwner is TCustomForm then
|
||||||
begin
|
begin
|
||||||
|
|||||||
Reference in New Issue
Block a user