Какой шрифт установлен (крупный или мелкий)?
Falk0ner, вс, 06/07/2008 - 15:34.
function SmallFonts: Boolean;
{Значение функции TRUE если мелкий шрифт}
var
DC: HDC;
begin
DC := GetDC(0);
Result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);
{ В случае крупного шрифта будет 120}
ReleaseDC(0, DC);
end;
{Значение функции TRUE если мелкий шрифт}
var
DC: HDC;
begin
DC := GetDC(0);
Result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);
{ В случае крупного шрифта будет 120}
ReleaseDC(0, DC);
end;
Взято с http://delphiworld.narod.ru
Отправить комментарий