function Scale96ToScreen(ASize: Integer): Integer
Масштабирует значение размера от 96 PPI до значения PPI экрана. Используйте эту функцию, если хотите, чтобы элементы интерфейса выглядели одинаково хорошо на мониторах с разной плотностью пикселей (2К, 4К).
Например, вы создаете расширение, в котором пользователь задает ширину окна. Тогда при создании окна, передайте функции значение ширины.
{@ . . . @} function OpenListWindow(const AFormName: String; AWidth: Integer): Boolean; begin Result := True; with TListWindow.Create(AFormName, vtGridOnly) do begin Width := Scale96ToScreen(AWidth); . . . end; end;
Например, пользователь задал ширину 1000 пикселей. На простом мониторе с PPI = 96, ширина так и будет - 1000. На мониторе с PPI = 144, ширина будет - 1500.