БОЛЬШОЙ FAQ ПО DELPHI



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



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




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ