Function Reference

_GUICtrlButton_SetTextMargin

ボタンコントロール内のテキスト描画の余白設定します。

#Include <GuiButton.au3>
_GUICtrlButton_SetTextMargin($hWnd[, $iLeft = 1[, $iTop = 1[, $iRight = 1[, $iBottom = 1]]]])

 

パラメータ

$hWnd コントロールのハンドル
$iLeft [オプション]テキスト描画で使用される左余白
$iTop [オプション]テキスト描画で使用される上余白
$iRight [オプション]テキスト描画で使用される右余白
$iBottom [オプション]テキスト描画で使用される下余白

 

返し値

成功: True
失敗: False

 

注意

必須OS: Windows XP以降

 

関連

_GUICtrlButton_GetTextMargin

 

こちらも参照

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

 


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

Opt("MustDeclareVars", 1)

Global $iMemo

_Main()

Func _Main()
    Local $y = 70, $btn[6], $aMargins

    GUICreate("Buttons", 510, 400)
    $iMemo = GUICtrlCreateEdit("", 119, 10, 276, 374, $WS_VSCROLL)
    GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
    GUISetState()

    $btn[0] = GUICtrlCreateButton("Button1", 10, 10, 90, 50)
    _GUICtrlButton_SetTextMargin($btn[0], 10, 5, 10, 5)

    For $x = 1 To 5
        $btn[$x] = GUICtrlCreateButton("Button" & $x + 1, 10, $y, 90, 50)
        $y += 60
    Next
   
    For $x = 0 To 5
        $aMargins = _GUICtrlButton_GetTextMargin($btn[$x])
        MemoWrite("Button" & $x + 1 & " Margins:" & @CRLF & @TAB & _
                "Left.: " & $aMargins[0] & @TAB & "Top...: " & $aMargins[1] & @CRLF & @TAB & _
                "Right: " & $aMargins[2] & @TAB & "Bottom: " & $aMargins[3] & @CRLF)
    Next
   
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd

    Exit
EndFunc   ;==>_Main

; メモコントロールに1行書き込み
Func MemoWrite($sMessage)
    GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite