Наконец-то добрался до проблемы.
И написал простейший вариант.
Вот такой вариант ничего не дал для сложных случаев, когда на форме много разных элементов, зато хорошо работает с простыми формами.
Проблемы 2 - во-первых большие формы - они вылезают за размер экрана. Во-вторых не на все элементы почему-то срабатывает данный подход опять-таки когда на форме много элементов, некоторые остаются прежних размеров (причем сами компоненты стандартные - кнопки и др.).
У формы Scaled стоит false
procedure ResizeForm(Form:TForm);
const
dpi_base=96;
var
c:integer;
dpi_new:integer;
k:extended;
k1:extended;
ks:extended;
kp:extended;
begin
exit;
k1:=1.1;
dpi_new :=Screen.PixelsPerInch;
k:=dpi_new/dpi_base;
ks:=k1*k;
kp:=k1*k;
Form.Width :=Round(Form.Width *kp);
Form.Height:=Round(Form.Height*kp);
for c:=0 to Form.ControlCount-1 do
begin
Form.Controls[c].Top :=Round(Form.Controls[c].Top *kp);
Form.Controls[c].Left :=Round(Form.Controls[c].Left *kp);
Form.Controls[c].Height:=Round(Form.Controls[c].Height*ks);
Form.Controls[c].Width :=Round(Form.Controls[c].Width *ks);
end;
end;
Заметил - когда работает стандартная функция при Scaled=True обработка форм при их размере больше размера экрана идет очень точно. Delphi определяет max допустимый размер, после чего масштабирует до него (а не более) и после этого все шрифты также не лезут за допустимые пределы. Если же это почему-то не происходит, то тогда все немного ползет и шрифты слегка не влезают.
