А я не знаю, у всех ли он есть, может, в XP нету.
Я даже у себя в папке Fonts его не нашёл.
используется дефолтный
Да и у меня совпало, но как узнать что это за дефолтный шрифт, чтобы его прописать жёстко?
]]>Gui, Font, s12, белиберда
Gui, Add, Text, hwndhText, test
Gui, Show, w300
MsgBox, % Control_GetFont(hText)
ExitApp
Control_GetFont( hwnd ) { ; www.autohotkey.com/forum/viewtopic.php?p=465438#465438 By SKAN
SendMessage 0x31, 0, 0, , ahk_id %hwnd% ; WM_GETFONT Created: 27-Apr-2011
IfEqual,ErrorLevel,FAIL, Return
hFont := Errorlevel, VarSetCapacity( LF, szLF := 60*( A_IsUnicode ? 2:1 ) )
DllCall("GetObject", UInt,hFont, Int,szLF, UInt,&LF )
hDC := DllCall( "GetDC", UInt,hwnd ), DPI := DllCall( "GetDeviceCaps", UInt,hDC, Int,90 )
DllCall( "ReleaseDC", Int,0, UInt,hDC ), S := Round( ( -NumGet( LF,0,"Int" )*72 ) / DPI )
Return DllCall( "MulDiv",Int,&LF+28, Int,1,Int,1, Str ), DllCall( "SetLastError", UInt,S )
}GuiDefaultFont() { ; By SKAN www.autohotkey.com/forum/viewtopic.php?p=465438#465438
hFont := DllCall( "GetStockObject", UInt,17 ) ; DEFAULT_GUI_FONT
VarSetCapacity( LF, szLF := 60*( A_IsUnicode ? 2:1 ) )
DllCall("GetObject", UInt,hFont, Int,szLF, UInt,&LF )
hDC := DllCall( "GetDC", UInt,hwnd ), DPI := DllCall( "GetDeviceCaps", UInt,hDC, Int,90 )
DllCall( "ReleaseDC", Int,0, UInt,hDC ), S := Round( ( -NumGet( LF,0,"Int" )*72 ) / DPI )
Return DllCall( "MulDiv",Int,&LF+28, Int,1,Int,1, Str ), DllCall( "SetLastError", UInt,S )
}
A_GuiFont := GuiDefaultFont()
A_GuiFontSize := A_LastError
MsgBox, %A_GuiFont%`t%A_GuiFontSize%Или ещё так (нужно передать hwnd контрола):
Gui, Add, Text, hwndhText, test
MsgBox, % Control_GetFont(hText)
ExitApp
Control_GetFont( hwnd ) { ; www.autohotkey.com/forum/viewtopic.php?p=465438#465438 By SKAN
SendMessage 0x31, 0, 0, , ahk_id %hwnd% ; WM_GETFONT Created: 27-Apr-2011
IfEqual,ErrorLevel,FAIL, Return
hFont := Errorlevel, VarSetCapacity( LF, szLF := 60*( A_IsUnicode ? 2:1 ) )
DllCall("GetObject", UInt,hFont, Int,szLF, UInt,&LF )
hDC := DllCall( "GetDC", UInt,hwnd ), DPI := DllCall( "GetDeviceCaps", UInt,hDC, Int,90 )
DllCall( "ReleaseDC", Int,0, UInt,hDC ), S := Round( ( -NumGet( LF,0,"Int" )*72 ) / DPI )
Return DllCall( "MulDiv",Int,&LF+28, Int,1,Int,1, Str ), DllCall( "SetLastError", UInt,S )
}