Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];
Вниз
Как получить системный шрифт 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.033 c