Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.024 c
1-1106489931
saNat
2005-01-23 17:18
2005.02.06
Пишу свой класс. Прошу рекомендации, замечания


1-1106472512
FFFFFFQE
2005-01-23 12:28
2005.02.06
Как через Form1.Components[i] получить размеры компонента


1-1106293340
Pashkerton
2005-01-21 10:42
2005.02.06
Свойства компонента


3-1104478418
Леван
2004-12-31 10:33
2005.02.06
Откуда взять список доступных БД


14-1106200539
syte_ser78
2005-01-20 08:55
2005.02.06
Что за файл DSM?