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


_GUICtrlRichEdit_GetFont

Возвращает атрибуты шрифта выделенного или, если нет выделенного, то в позиции курсора

#include <GuiRichEdit.au3>
_GUICtrlRichEdit_GetFont($hWnd)

Параметры

$hWnd Дескриптор элемента

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

Успех:Возвращает массив, содержащий значения:
[0] - размер шрифта
Если смешано несколько размеров в выделенном, то возвращается 0
[1] - Имя шрифта
Если смешано несколько шрифтов, то возвращается "" (пустая строка)
[2] - кодировка
$ANSI_CHARSET - 0
$BALTIC_CHARSET - 186
$CHINESEBIG5_CHARSET - 136
$EASTEUROPE_CHARSET - 238
$GB2312_CHARSET - 134
$GREEK_CHARSET - 161
$HANGEUL_CHARSET - 129
$MAC_CHARSET - 77
$OEM_CHARSET - 255
$RUSSIAN_CHARSET - 204
$SHIFTJIS_CHARSET - 128
$SYMBOL_CHARSET - 2
$TURKISH_CHARSET - 162
$VIETNAMESE_CHARSET - 163
Ошибка:устанавливает @error
@error:101 - $HWnd не является дескриптором

См. также

_GUICtrlRichEdit_SetFont

См. также

Искать EM_GETCHARFORMAT в библиотеке MSDN, Искать LOGFONT в библиотеке MSDN,

Пример

#include <GuiRichEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $lblMsg, $hRichEdit

Main()

Func Main()
    Local $hGui, $btnNext, $iStep = 0
    $hGui = GUICreate(StringTrimRight(@ScriptName, 4), 420, 350, -1, -1)
    $hRichEdit = _GUICtrlRichEdit_Create($hGui, 'Это тест.', 10, 10, 400, 220, _
            BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    $lblMsg = GUICtrlCreateLabel("", 10, 235, 300, 80)
    $btnNext = GUICtrlCreateButton("Далее", 270, 310, 60, 30)
    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                _GUICtrlRichEdit_Destroy($hRichEdit)
                GUIDelete()
                Exit
            Case $btnNext
                $iStep += 1
                Switch $iStep
                    Case 1
                        Report("1. Текущий")
                    Case 2
                        _GUICtrlRichEdit_SetSel($hRichEdit, 0, -1)
                        _GUICtrlRichEdit_SetFont($hRichEdit, 18, "Times New Roman")
                        Report("2. Установка шрифта")
                        GUICtrlSetState($btnNext, $GUI_DISABLE)
                EndSwitch
        EndSwitch
    WEnd
EndFunc   ;==>Main

Func Report($sMsg)
    Local $aRet  = _GUICtrlRichEdit_GetFont($hRichEdit)
    $sMsg &=  @CR & @CR & 'Шрифт: "' & $aRet[1] & '"' & @CR & 'Размер: '  & $aRet[0] & ' пунктов'
    GUICtrlSetData($lblMsg, $sMsg)
    ControlFocus($hRichEdit, "", "")
EndFunc   ;==>Report