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

Материал из DRKB

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

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


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