_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