Изменение размера шрифта всей формы

[lordgray]

Здравствуйте! Решил сделать, как в браузерах, Ctrl+"+" - увеличивает шрифт, Ctrl+"-" - уменьшает. При переходе на Lazarus 3.0, перестало работать. На 2.6 работало. И так, подробности:
Windows 7x64, Lazarus 3.0, компиляция под x64.
Что и как делал.
Поскольку форм много, объявил:

Код: Выделить всё

  TMyForm = class(TForm)
  protected
    ZoomActionList: TActionList;
    fZoomIn: TAction;
    fZoomOut: TAction;
    fZoomDef: TAction;
    procedure OnZoomDef(Sender: TObject);
    procedure OnZoomIn(Sender: TObject);
    procedure OnZoomOut(Sender: TObject);
  public
    constructor Create(TheOwner: TComponent); override;
  end;

constructor TMyForm.Create(TheOwner: TComponent);
begin
  inherited;
  ZoomActionList := TActionList.Create(Self);
  fZoomIn := TAction.Create(Self);
  fZoomIn.OnExecute := @OnZoomIn;
  fZoomIn.ShortCut := KeyToShortCut(vk_Add, [ssCtrl]);//'Ctrl+NumPlus';
  fZoomIn.ActionList := ZoomActionList;

  fZoomOut := TAction.Create(Self);
  fZoomOut.OnExecute := @OnZoomOut;
  fZoomOut.ShortCut := KeyToShortCut(VK_SUBTRACT, [ssCtrl]);//'Ctrl+NumMinus';
  fZoomOut.ActionList := ZoomActionList;

  fZoomDef := TAction.Create(Self);
  fZoomDef.OnExecute := @OnZoomDef;
  fZoomDef.ShortCut := KeyToShortCut(VK_MULTIPLY, [ssCtrl]);//'Ctrl+Num*';
  fZoomDef.ActionList := ZoomActionList;
end;   

procedure TMyForm.OnZoomIn(Sender: TObject);
begin
  if Font.Size < 24 then
  begin
    if Font.Size < 8 then Font.Size := 8 else Font.Size := Font.Size + 1;
    Caption := Format('%s: %d', [Font.Name, font.Size]);//для отладки
    if Assigned(OnResize) then OnResize(Sender);
  end;
end;
...


Ну и дальше все формы породил от TMyForm.
ParentFont := True - у всех компонентов формы. За счет этого, меняя шрифт формы, он менялся у всех компонентов. Сейчас не меняется.

Как исправить положение?

[sts]

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

[lordgray]

подозреваю у всех форм надо проставить какое нибудь свойство типа zoom

Увы, все сложнее. В системе стоит размер шрифта по умолчанию - 9. У объекта Font.Size = 0, то есть надо использовать системные настройки. Так вот, при первом нажатии Ctrl+"+", обработчик экшина 0 меняет на 8, т.е. шрифт уменьшается, и это отображается на экране. А вот все последующие изменения, не отображаются. Не знаю, может в обработчик надо воткнуть какой нибудь Self.Update или еще что? Именно Update пробовал, не помогло. Более того скажу, иногда работает, но настолько редко, что не могу вычислить зависимость.

[xchgeaxeax]

А Invalidate тоже не помогает?

[Vlad04]

ДВС. Я попадал на такой баг: писал проект и у всех компонентов на форме в среде устанавливал ParentFont = TRUE. При этом правил проект на двух компах с WinXP и Win 8 32bit. Так вот при переносе исходников с одного компа на другой значения ParentFont сбрасывалось. Была версия, что это связано с изменением размера текста в свойствах экрана на Win 8/10.
Навсегда избавился от этой проблемы написав процедуру, которая перебирает все контролы и устанавливает значение ParentFont.

[lordgray]

А Invalidate тоже не помогает?

Не, не помогло. Даже вставил:

Код: Выделить всё

SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

Непомогло. Видно по морганию, что все перерисовывается, а размеры шрифтов и компонентов не меняются