Что нового

Шрифты, стили текста элементов управления

musicstashall

Знающий
Сообщения
322
Репутация
7
Столкнулся с задачей, когда потребовалось устанавливать шрифт текста в элементах управления такой, чтобы соответствовал дефолтному шрифту системы в данный момент. Дело в том, что если я применяю стиль к шрифту, в данном случае это подчеркнутый текст, то непосредственно сам шрифт становится отличным от дефолтного. Вот пример:

Код:
#include <GUICtrlOnHover.au3>

$Back = GUICtrlCreateLabel('<< Назад', $x + 30, $y + 352, 50)
	GUICtrlSetColor(-1, 0x696969)
	GUICtrlSetFont(-1, -1, -1, -1)
	$Complete = GUICtrlCreateLabel('Завершить', $x + 90, $y + 352, 60)
	GUICtrlSetColor(-1, 0x696969)
	GUICtrlSetFont(-1, -1, -1, -1)
	$forward = GUICtrlCreateLabel('Далее >>', $x + 160, $y + 352, 50)
	GUICtrlSetColor(-1, 0x696969)
	GUICtrlSetFont(-1, -1, -1, -1)

Func _Hover($CtrlID, $iParam)
	Switch $iParam
		Case 1 ;Hover
		Switch $CtrlID
			Case $Back
				GUICtrlSetFont($Back, -1, -1, 4)
			Case $Complete
				GUICtrlSetFont($Complete, -1, -1, 4)
			Case $forward Then	
				GUICtrlSetFont($forward, -1, -1, 4)		
			
		EndSwitch
		Case 2 ;Leave Hover
		Switch $CtrlID
			Case $Back
				GUICtrlSetFont($Back, -1, -1, -1)
			Case $Complete
				GUICtrlSetFont($Complete, -1, -1, -1)
			Case $forward
				GUICtrlSetFont($forward, -1, -1, -1)				
			
		EndSwitch
	EndSwitch
EndFunc


Вопрос: есть ли возможность получить системный шрифт и его применять к элементам? Либо что-то может иное посоветуете.
 
Автор
M

musicstashall

Знающий
Сообщения
322
Репутация
7
Ну так ведь это же я и делаю, в моем примере именно эта функция и используется. Если я делаю текст подчеркнутым, то шрифт меняется не понятно на какой. Поэтому я и думаю, надо бы как-то получить текущий дефолтный системный шрифт и принудительно его устанавливать.
 
Верх