Function Reference

_GUICtrlRichEdit_ChangeFontSize

選択されたテキストのフォントサイズを拡大・縮小します。

#Include <GuiRichEdit.au3>
_GUICtrlRichEdit_ChangeFontSize($hWnd, $iIncrement)

 

パラメータ

$hWnd コントロールのハンドル
$iIncrement 正の数の場合は拡大し、負の数の場合は縮小します。

 

返し値

成功: True - フォントサイズが変更されました。
失敗: Falseを返し、@errorを設定します。
@error: 101 - $hWndがハンドルではありません。
102 - $iIncrementが数字ではありません。
-1 - テキストが選択されていません。

 

注意

選択されたテキストに複数のフォントサイズが含まれる場合、全てが拡大/縮小されます。

$iIncrementが正の場合はフォントサイズが切り上げられ、$iIncrementが負の場合は切り下げられます。

Rich Editはまず既存のフォントサイズに$iIncrementを加えた後、次のように数値を丸めます:
<= 12ポイント: 1 例: 7 + 1 => 8ポイント, 14 - 3 => 10ポイント
12.05 から 28ポイント: 20 + 2.25 => 24ポイント
28.05 から 80ポイント: 28, 36, 48, 72, 80のいずれかに丸められます, 例: 28 + 1 => 36ポイント, 80 - 1 => 72ポイント
> 80ポイント: 10, 例: 80 + 1 => 90

 

関連

_GUICtrlRichEdit_SetFont

 

こちらも参照

MSDNライブラリでEM_SETFONTSIZEを検索して下さい。

 


#AutoIt3Wrapper_Au3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiRichEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

Global $lblMsg, $hRichEdit

Main()

Func Main()
    Local $hGui, $iMsg, $btnDoIt
    $hGui = GUICreate("Example (" & StringTrimRight(@ScriptName,4) &")", 320, 350, -1, -1)
    $hRichEdit = _GUICtrlRichEdit_Create($hGui, "This is a test.", 10, 10, 300, 220, _
            BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    $lblMsg = GUICtrlCreateLabel("", 10, 235, 300, 60)
    $btnDoIt = GUICtrlCreateButton("Do it", 270, 310, 40, 30)
    GUISetState()

    _GUICtrlRichEdit_SetSel($hRichEdit, 0, -1)      ; select all

    While True
        $iMsg = GUIGetMsg()
        Select
            Case $iMsg = $GUI_EVENT_CLOSE
                GUIDelete()
                Exit
            Case $iMsg = $btnDoIt
                ChangeFontSize()
        EndSelect
    WEnd
EndFunc   ;==>Main

Func ChangeFontSize()
    Local $av, $iOld, $iNew
    $av = _GuiCtrlRichEdit_GetFont($hRichEdit)
    $iOld = $av[0]
    _GuiCtrlRichEdit_ChangeFontSize($hRichEdit, 2)
    $av = _GuiCtrlRichEdit_GetFont($hRichEdit)
    $iNew = $av[0]
    Report("Was " & $iOld & " points; is now " & $iNew & " points")
EndFunc   ;==>ChangeFontSize

Func Report($sMsg)
    GUICtrlSetData($lblMsg, $sMsg)
EndFunc   ;==>Report