Как запретить/использовать изменение масштаба шрифтов и компонентов в Win 7, 10 (RAD 10.4.1)

[hexor_boo]

Доброго времени суток!

В инете ничего путного по этой теме не нашлось (по крайней мере пока). Я делаю аккуратное расположение элементов, а при увеличении масштаба до 200% в Windows 10 все перекашивает (в частности TLabel-ы съезжают и в них текст налезает во много строчек сам на себя). Как получить значение масштаба, выбранного в системе? И как корректно оперировать с этим параметром? В инете накопал - люди экспериментируют с DPI/PPI... И каким-то волшебным параметром ScaleBy. Help!

[hexor_boo]

Узнать текущий PPI:

Screen.PixelsPerInch

причем так, что:
100% масштаба = 96 PPI
125% масштаба = 120 PPI
150% масштаба = 144 PPI
200% масштаба = 192 PPI

Небольшое затруднение создает тот факт, что пользователь может выбрать и другие значения с точностью до 1% масштаба - тогда PPI будет какой-то другой, а с этими 4-мя стандартными значениями вполне можно сделать так:

currentPPI:=Screen.PixelsPerInch;
 Case currentPPI Of
  96 : CallProc1;
  120 : CallProc2;
  144 : CallProc3;
  192 : CallProc4;
 End;

где CallProc1, CallProc2, CallProc3, CallProc4 - процедуры, в которых жестко перезадается размер элементов управления под каждый конкретный масштаб

[macomics]

Ну а дальше посчитайте 96PPI * 1.25 = 120PPI; 96PPI * 1.5 = 144PPI; 96PPI * 2 = 192 PPI тогда 175% -> 96PPI * 1.75 = 168PPI и 1% -> 96PPI * 0.01 = 1PPI (округление 0.96PPI)
Но вести вычисления придется в этих нерусских дюймах. Лучше перейти к миллиметрам или сантиметрам.

[hexor_boo]

2 macomics, так это сразу понятно, что 1% = 0,96 PPI. Пока не вижу огромного смысла просчитывать варианты кроме 100%, 125%, 150% и 200%, потому что за счет этого округления до 1PPI будут сильно искажаться размеры и координаты элементов управления для которых расчет этих параметров будет сделан через формулу с PPI

[macomics]

Не более +/-1 пикселя.
Вы же не складываете 96 из 1 PPI, а выполняете 96 * 1 / 100 = 0, 96 в остатке. Если в остатке больше 47, тогда прибавляете 1 к делимому. В результате получаете погрешность в 1 пиксель на дюйм. Учитывая то, что вывод производится в пикселях, тогда ваша погрешность не будет иметь большого значения.

Дальше ваши вычисления в пикселях надо перевести в дюймы (но мне предпочтительнее миллиметры: умножаете на 127 и делите на 5). И все получится.

[northener]

Оставь надежду всяк, кто этого захотел.
Общего решения для формирования окна программы при всех возможных разрешениях и размерах не существует и не может существовать!
А запрещать пользователю что-либо делать это ну очень не кошерно.

[hexor_boo]

Сообщение от macomics

Не более +/-1 пикселя.
Вы же не складываете 96 из 1 PPI, а выполняете 96 * 1 / 100 = 0, 96 в остатке. Если в остатке больше 47, тогда прибавляете 1 к делимому. В результате получаете погрешность в 1 пиксель на дюйм. Учитывая то, что вывод производится в пикселях, тогда ваша погрешность не будет иметь большого значения.

Дальше ваши вычисления в пикселях надо перевести в дюймы (но мне предпочтительнее миллиметры: умножаете на 127 и делите на 5). И все получится.

Это какой-то суровый мозговой трэш) Я придумал! Если пользователь выбрал масштаб >100% и <125%, то выводить элементы с расположением и размерами как при 125%, если выбран масшьаб >125% и <150%, то выводить элементы как при 150% и т.д. Появится лишнее пространство - это да, а в целом можно посмотреть, что получится. В любом случае текст в TLabel-ах перестанет выводиться с наложением. Благодарю за формулу перевода дюймов в миллиметры!