Какой шрифт установлен (крупный или мелкий)?

function SmallFonts: Boolean;
{Значение функции TRUE если мелкий шрифт}
var
 DC: HDC;
begin
 DC := GetDC(0);
 Result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);
 { В случае крупного шрифта будет 120}
 ReleaseDC(0, DC);
end;


Взято с http://delphiworld.narod.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...