Popupmenu и системный шрифт Windows

[ichi]

Здравствуйте. Столкнулся с такой проблемой, при смене системного шрифта Windows XP (Пуск > Настройка > Панель управления > Экран > Вкладка "Оформление" > Размер шрифта), меняю его с обычного на крупный, то все пункты всплывающего меню (Popupmenu) моей программы меняют размер шрифта с обычного на крупный. Прошу вас подсказать каким образом в моей программе можно настроить шрифт всплывающего меню, который бы не реагировал на изменение шрифта системы в целом?
Рисую всплывающее меню при помощи Canvas.

{ Отрисовка вертикальной полосы с надписью }

procedure TMainForm.DrawBar(ACanvas: TCanvas);
var
  lf : TLogFont;
  tf : TFont;
begin
  with ACanvas do begin
    Brush.Color := clGray;
    FillRect(Rect(0,0,20,92));
    Font.Name := 'Tahoma';
    Font.Size := 7;
    Font.Style := Font.Style - [fsBold];
    Font.Color := clWhite;
    tf := TFont.Create;
    try
      tf.Assign(Font);
      GetObject(tf.Handle, sizeof(lf), @lf);
      lf.lfEscapement := 900;
      lf.lfHeight := Font.Height - 2;
      tf.Handle := CreateFontIndirect(lf);
      Font.Assign(tf);
    finally
      tf.Free;
    end;
    TextOut(2, 85, 'delphi.about.com');
  end;
end;

{ Отрисовка пункта всплывающего меню Exit }

procedure TMainForm.Exit1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
 if Selected then
   ACanvas.Brush.Color := clHighlight
 else
   ACanvas.Brush.Color := clMenu;

 ARect.Left := 25;
 ACanvas.FillRect(ARect);

 DrawText(ACanvas.Handle, PChar('Exit'), -1, ARect, DT_LEFT or DT_VCENTER or DT_SINGLELINE or DT_NOCLIP);

 DrawBar(ACanvas);
end;

[robt]

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

но! если у тебя свои представления о красоте и эргономичности
и тебе пофиг на пользователя,то логично что нужно просто уменьшать размер шрифта если включено увеличение

[ichi]

Сообщение от robt

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

но! если у тебя свои представления о красоте и эргономичности
и тебе пофиг на пользователя,то логично что нужно просто уменьшать размер шрифта если включено увеличение

Спасибо за ответ. А как в Delphi можно отследить факт того, что пользователь изменил сам шрифт или размер шрифта? Укажите направление куда копать.

[robt]

для дпи в реестре
в семерке
HKEY_CURRENT_USER\Control Panel\Desktop
в хпшке
HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion\FontDPI
параметр
LogPixels
5 стандартных варианта
72,96,120,144,192
соответсна
75%,100%,120%,150%,200%

про настройки оформления ловиш месагу
wm_settingchange
и куриш SystemParametersInfo