Советы по Delphi

       

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


Попробуй это:

FUNCTION SmallFonts : BOOLEAN;
{возвращает TRUE если установлены маленькие шрифты и FALSE если большие }
VAR
DC : HDC; { используется для проверки количества доступных цветов }BEGIN
DC := GetDC(0);Result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);{ Если используются большие шрифты, LOGPIXELSX будет равен 120 }ReleaseDC(0, DC);END;

[000281]



Содержание раздела