Крупный шрифт в Windows - как подстроить программу?

[Dux]

Есть ли какой-нибудь способ автоматически пропорционально изменять размеры форм при переключении на крупный шрифт Windows? Или все размеры надо прописывать вручную для каждой формы (у меня их больше 50-ти...)

[Stilet]

var i:integer;
begin
 for i:=0 to Screen.FormCount-1 do
  Screen.Forms[i]....
end;

И пусть их хоть мульен будет.

[Аватар]

Еще вариант - AutoScroll:=False на каждой форме

[Dux]

Сообщение от Аватар

Еще вариант - AutoScroll:=False на каждой форме

а он и так везде false стоит..

[Аватар]

Вот форма спроектирована в мелком шрифте, запущена в нем же, а потом в среднем и без всякой программной подгонки, используя только AutoScroll:=False. Проект приложен

[Dux]

Дело в том, что таблицы в DBGrid остаются прежнего размера, а форма увеличивается.

[Аватар]

Если речь о ширине колонок в гридах, то винда никак не изменяет её. Тут только программно.

[chertovich]

немножко дополню код Stilet-а:

var
  I: Integer;
begin
  for I := 0 to Screen.FormCount - 1 do
  begin
    Screen.Forms[I].ScaleBy(M, D)
  end;
end;

Теперь осталось узнать переключение на крупный шрифт и увеличить значения форм на оприделенный коэффициент