Серый форум — AHK: Дефолтный шрифт в Gui?

Re: AHK: Дефолтный шрифт в Gui?

null@example.com (Pokerist) — Mon, 12 Aug 2013 18:03:15 +0000

Попробовал всё из этой компании :
http://sawarogu.3neko.ru/articles/spisok-bezorasnykh-shriftov-web-safe-fonts/
И ни один не оказался тем дефолтным, под который я всё настроил. Мистика какая-то. Ладно буду ставить везде Arial.

Re: AHK: Дефолтный шрифт в Gui?

null@example.com (Pokerist) — Mon, 12 Aug 2013 17:53:15 +0000

А нет такой сравнительной таблички, которая сравниваются системы от XP и выше?

Re: AHK: Дефолтный шрифт в Gui?

null@example.com (teadrinker) — Mon, 12 Aug 2013 14:01:13 +0000

Дефолтный в системе и дефолтный в GUI — одно и то же. Почему не может быть? Среди этих жёлтых только те, которые есть во всех перечисленных системах, поэтому и использовать их безопасно. MS Shell Dlg к их числу не относится.

Re: AHK: Дефолтный шрифт в Gui?

null@example.com (Pokerist) — Mon, 12 Aug 2013 13:54:47 +0000

Странно как-то. Дефолтный шрифт в системе, который подставляется в Gui, если нет дефолтного для самого Gui, не имеется в этих "жёлтых". Разве может такое быть?

Re: AHK: Дефолтный шрифт в Gui?

null@example.com (teadrinker) — Mon, 12 Aug 2013 13:17:34 +0000

Лучше использовать какой-то из шрифтов, которые здесь помечены жёлтым.

Re: AHK: Дефолтный шрифт в Gui?

null@example.com (Pokerist) — Mon, 12 Aug 2013 12:53:50 +0000

teadrinker пишет:

А я не знаю, у всех ли он есть, может, в XP нету.

Я даже у себя в папке Fonts его не нашёл.

используется дефолтный

Да и у меня совпало, но как узнать что это за дефолтный шрифт, чтобы его прописать жёстко?

Re: AHK: Дефолтный шрифт в Gui?

null@example.com (teadrinker) — Mon, 12 Aug 2013 12:42:09 +0000

А я не знаю, у всех ли он есть, может, в XP нету. В случае, если шрифт не найден, используется дефолтный, во всяком случае, у меня так получается:

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 )
}

Re: AHK: Дефолтный шрифт в Gui?

null@example.com (Pokerist) — Mon, 12 Aug 2013 12:35:55 +0000

Получил "MS Shell Dlg 8". По идее это системный шрифт и если его прописать в начале Gui, то у всех окна должны отображаться одинаково?

Re: AHK: Дефолтный шрифт в Gui?

null@example.com (teadrinker) — Mon, 12 Aug 2013 12:13:47 +0000

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 )
}

Re: AHK: Дефолтный шрифт в Gui?

null@example.com (Pokerist) — Mon, 12 Aug 2013 12:03:32 +0000

Я тупанул и забыл прописать сразу, а теперь когда штук 80 элементов подстроено под дефолтный шрифт, хочется как-то спасти работу. Как узнать что за шрифт сейчас используется в GUI, чтобы прописать именно его?

Re: AHK: Дефолтный шрифт в Gui?

null@example.com (teadrinker) — Mon, 12 Aug 2013 12:00:40 +0000

Если шрифт указан явно, будет тот же, если он имеется в системе пользователя. Если не указан — зависит от настроек системы.

AHK: Дефолтный шрифт в Gui?

null@example.com (Pokerist) — Mon, 12 Aug 2013 10:15:40 +0000

Хочу узнать будет ли использован тот же шрифт у пользователя, если он менял настройки в системе.