Delphi: обработка предпочтений шрифта пользователя

Во-первых, чтобы нам было ясно, Borland больше не владеет Delphi. Embarcadero теперь владеет Delphi, и теперь мы в надежных и надежных руках.

Хорошо, к твоему вопросу.

Хитрость заключается в том, чтобы установить для TForm.AutoScroll значение False И убедиться, что на вашей машине разработки установлены мелкие шрифты. Оставив TForm.Scaled в покое (значение по умолчанию - True).

Вот как мы делаем это внутри, и IDE справляется со всем отлично.

Я чувствую себя с тобой. Но честно говоря: правильный макет GUI просто не может быть создан с помощью механизма макета на основе пикселей, который используется VCL. Что необходимо, так это механизм динамической компоновки, который размещает элементы управления только после того, как

1. для каждого элемента управления установлен правильный шрифт (это зависит от версии Windows, пользовательских настроек и, наконец, что не менее важно, от типа элемента управления); а также

2. текст в элементе управления был переведен в текущую локаль, так как это может уменьшить или увеличить пространство, необходимое для элемента управления.

Поскольку все это зависит от свойств времени выполнения, создание диалоговых окон путем размещения элементов управления не может работать. Механизмы компоновки, такие как GTK и QT или сайзеры в wxWidgets, подходят лучше.

Я ничего не знаю о программах на Delphi. Что я делаю в некоторых программах, так это ручное изменение размера и положения элементов управления после установки шрифта и перевода текста. Много работы, но, в зависимости от вашей аудитории, она того стоит.

Вы также можете изучить код, написанный Джорданом Расселом для Inno Setup. Он не использует свойство Scaled форм, но написал код для настраиваемого масштабирования элементов управления. Возможно, это также будет работать для очень больших шрифтов на экранах с высоким разрешением; Я заметил, что, по крайней мере, на моем экране ноутбука с разрешением 124 точек на дюйм диалоговые окна настройки выглядят неплохо.

Чтобы сделать это правильно, я думаю, вам придется:

1 - Загрузить настройки шрифта пользователя

2 - Примените его, как вы описали

3 - Определите ширину и высоту всех заголовков (в пикселях) и сравните их с шириной и высотой элемента управления и отрегулируйте соответствующим образом.

К сожалению, «отрегулировать соответственно» сложно. Вы можете расширить кнопку, но тогда вам нужно будет проверить, не перекрывается ли она с другим элементом управления.

Лучше всего создать элементы управления немного завышенного размера и надеяться, что пользователь не выберет размер шрифта в 32 пункта.

У Когуса была правильная идея, но он не упомянул функцию, которую вам нужно использовать. Это будет процедура Windows GetTextExtentPoint32. Вы передаете ему строку, и он вычисляет ширину и высоту строки, используя текущий выбранный шрифт. Вы найдете его в Windows.pas.

Возможно, вы захотите заранее рассчитать, какое максимальное пространство вам понадобится для разрешенных шрифтов.

Или вы можете использовать эту функцию для динамической регулировки размера области, отображающей текст, по размеру.

Это было бы хорошо для одного или двух элементов управления, но любой метод потребует много работы, если вы попытаетесь сделать это для всего пользовательского интерфейса.

Я бы сказал, это было похоже на перевод. В нашем приложении мы сделали кнопки, метки, правки, все немного больше, чтобы можно было легко разместить более длинные слова, необходимые для некоторых языков. Это нисколько не повредит дизайну.

Мне нравится использовать эту функцию. Он основан на Graphics.GetFontData

procedure SystemFont(Font: TFont);
var
  LogFont: TLogFont;
begin
  if SystemParametersInfo(SPI_GETICONTITLELOGFONT, SizeOf(TLogFont), @LogFont, 0) then
    begin
      Font.Height := LogFont.lfHeight;
      Font.Orientation := LogFont.lfOrientation;
      Font.Charset := TFontCharset(LogFont.lfCharSet);
      Font.Name := PChar(@LogFont.lfFaceName);

      Font.Style := [];

      if LogFont.lfWeight >= FW_BOLD then
        Font.Style := Font.Style + [fsBold];

      if LogFont.lfItalic = 1 then
        Font.Style := Font.Style + [fsItalic];

      if LogFont.lfUnderline = 1 then
        Font.Style := Font.Style + [fsUnderline];

      if LogFont.lfStrikeOut = 1 then
        Font.Style := Font.Style + [fsStrikeOut];

      case LogFont.lfPitchAndFamily and $F of
        VARIABLE_PITCH: Font.Pitch := fpVariable;
        FIXED_PITCH: Font.Pitch := fpFixed;
        else Font.Pitch := fpDefault;
      end;
    end;
end;

Вы просто используете его для всех событий TForm.OnCreate. Альтернативой может быть создание нового класса, который будет делать это при создании или зацикливании Screen.Forms.

Если вы измените некоторые свойства шрифта по умолчанию для любого из элементов управления в форме, они все равно будут использовать старый шрифт. Если вам нужны настраиваемые свойства для некоторых элементов управления, вам придется настроить их после вызова SystemFont.

Изменение Graphics.DefFontData во время выполнения могло бы помочь, если бы разработчик форм только записывал измененные свойства в файлы .dfm.