↑  ←  Описание функции


_ChooseFont

Создает стандартный диалог выбора шрифта и его атрибутов.

#include <Misc.au3>
_ChooseFont([$sFontName = "Courier New" [, $iPointSize = 10 [, $iColorRef = 0 [, $iFontWeight = 0 [, $iItalic = False [, $iUnderline = False [, $iStrikethru = False [, $hWndOwner = 0]]]]]]]])

Параметры

$sFontName [необязательный] Имя шрифта по умолчанию
$iPointSize [необязательный] Размер шрифта
$iColorRef [необязательный] Цвет в формате COLORREF rgbColors
$iFontWeight [необязательный] Толщина
$iItalic [необязательный] Курсив
$iUnderline [необязательный] Подчеркнутый
$iStrikethru [необязательный] Зачёркнутый
$hWndOwner [необязательный] Дескриптор родительского окна, которому принадлежит это окно.

Возвращаемое значение

Успех:Возвращает массив следующего формата:
[0] - содержит количество элементов
[1] - атрибуты = BitOr из суммы Курсив:2, Подчеркнутый:4, Зачёркнутый:8
[2] - имя шрифта
[3] - размер шрифта
[4] - толщина = = 0-1000 (400 норм., 700 жирный)
[5] - цвет в формате COLORREF rgbColors
[6] - цвет в формате BGR
[7] - цвет в формате RGB
Ошибка:Возвращает -1

Пример

#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