#include <Misc.au3>

Local $a_font

; Пример 1
$a_font = _ChooseFont("Arial", 8)
If (@error) Then
	MsgBox(4096, "", "Ошибка _ChooseFont: " & @error)
Else
	MsgBox(4096, "", "Имя шрифта: " & $a_font[2] & @LF & "Размер: " & $a_font[3] & @LF & "Жирность: " & $a_font[4] & @LF & "Цвет в COLORREF: " & $a_font[5] & @LF & "Цвет в Hex BGR: " & $a_font[6] & @LF & "Цвет в Hex RGB: " & $a_font[7])
EndIf

; Пример 2
$a_font = _ChooseFont()
If (@error) Then
	MsgBox(4096, "", "Ошибка _ChooseFont: " & @error)
	Exit
Else
	MsgBox(4096, "", "Имя шрифт: " & $a_font[2] & @LF & "Размер: " & $a_font[3] & @LF & "Жирность: " & $a_font[4] & @LF & "Цвет в COLORREF: " & $a_font[5] & @LF & "Цвет в Hex BGR: " & $a_font[6] & @LF & "Цвет в Hex RGB: " & $a_font[7])
EndIf

; Пример 3
Local $FontName = $a_font[2]
Local $FontSize = $a_font[3]
Local $ColorRef = $a_font[5]
Local $FontWeight = $a_font[4]
Local $Italic = BitAND($a_font[1], 2)
Local $Underline = BitAND($a_font[1], 4)
Local $Strikethru = BitAND($a_font[1], 8)
$a_font = _ChooseFont($FontName, $FontSize, $ColorRef, $FontWeight, $Italic, $Underline, $Strikethru)
If (@error) Then
	MsgBox(4096, "", "Ошибка _ChooseFont: " & @error)
Else
	MsgBox(4096, "", "Имя шрифт: " & $a_font[2] & @LF & "Размер: " & $a_font[3] & @LF & "Жирность: " & $a_font[4] & @LF & "Цвет в COLORREF: " & $a_font[5] & @LF & "Цвет в Hex BGR: " & $a_font[6] & @LF & "Цвет в Hex RGB: " & $a_font[7])
EndIf