Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

Как получить системный шрифт Windows?   Найти похожие ветки 

← →
Tack   (2005-01-21 16:20) [0]

Почему-то установленное в True свойство TForm.ParentFont для моего диалогового окна работает не на всех компьютерах.
Т.е. иногда шрифт в диалоге соответствует системному, а иногда нет.
Хочу вручную устанавливать свойство TForm.Font при каждом запуске приложения.

Как получить системный шрифт Windows, который по умолчанию используется во всех системных диалоговых окнах и надписях?

---

← →
Tack   (2005-01-23 00:54) [1]

Помогите!!!!!

---

← →
GrayFace ©   (2005-01-23 01:32) [2]

Может быть так:
Font.Handle := GetStockObject(SYSTEM_FONT);

или так:

var
 NonClientMetrics: TNonClientMetrics;

begin
 NonClientMetrics.cbSize := SizeOf(NonClientMetrics);
 if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then
 begin
   Font:=TFont.Create;
   Font.Handle :=   CreateFontIndirect(NonClientMetrics.lfMessageFont);
 end;
end;

Вообще, это взято из procedure TScreen.GetMetricSettings.

---

← →
Tack83 ©   (2005-01-23 12:41) [3]

GrayFace, спасибо!!!!!

---

Страницы: 1 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.043 c