Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
WinAPI функция для определения размера шрифта (%), DPI setting in Windows 7
 
#1
08.11.2013 22:39:33
Всем привет!
Помогите, пожалуйста, написать WinAPI функцию для определения размера шрифта (%) в Windows 7
Источник - http://msdn.microsoft.com/en-us/library/windows/desktop/dd464660%28v=vs.85%29.aspx
Возможно кто-то уже делал и поделится  :)  
Заранее благодарен.
Изменено: LightZ - 08.11.2013 22:40:21
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#2
09.11.2013 05:32:56
Для 32битной версии
Код
Private Declare Function GetDC Lib "user32" (ByVal Hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal Hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

Public Function GetDpiX() As Long
    Dim hdc As Long, xdpi As Long
    hdc = GetDC(0) ' 0 hwnd для desktop
    GetDpiX = GetDeviceCaps(hdc, 88)
    ReleaseDC 0, hdc 
End Function

для Dpi по Y nIndex = 90, хотя, думаю, что это не повлияет.
Для получения процентов GetDpiX * 1.04166666666667
 
 
 
#3
09.11.2013 13:18:54
anvg, спасибо, супер!
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
Страницы: 1
Наверх