_WinAPI_SetFont
Устанавливает шрифт окна
#include <WinAPI.au3>
_WinAPI_SetFont($hWnd, $hFont [, $fRedraw = True])
Параметры
$hWnd | Дескриптор окна |
$hFont |
Дескриптор шрифта |
$fRedraw |
[необязательный] True для перерисовки элемента |
См. также
_WinAPI_CreateFont, _WinAPI_CreateFontIndirectПример
#include <GuiListBox.au3>
#include <GuiButton.au3>
#include <FontConstants.au3>
Example()
Func Example()
Local $hGUI, $hFont, $hFontList, $iBtn, $hBtn, $hListBox
$hGUI = GUICreate(StringTrimRight(@ScriptName, 4), 350, 200)
; $iBtn = GUICtrlCreateButton("Кнопка со шрифтом", 10, 10, 270, 34)
; $hBtn = GUICtrlGetHandle(-1) ; Получает дескриптор элемента
$hBtn = _GUICtrlButton_Create($hGUI, "Кнопка со шрифтом", 10, 10, 270, 34)
$hListBox = _GUICtrlListBox_Create($hGUI, "Жирный шрифт", 10, 50, 270, 150)
; Заполняет ListBox пунктами
_GUICtrlListBox_BeginUpdate($hListBox)
_GUICtrlListBox_Dir($hListBox, "", $DDL_DRIVES, False)
_GUICtrlListBox_EndUpdate($hListBox)
; Создаёт объект с характеристиками шрифта
$hFont = _WinAPI_CreateFont(30, 0, 0, 0, 400, False, False, False, $DEFAULT_CHARSET, _
$OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, 'Comic Sans MS')
$hFontList = _WinAPI_CreateFont(20, 0, 0, 0, 700) ; Шрифт для ListBox
; Назначает шрифт элементам управления
_WinAPI_SetFont($hBtn, $hFont)
_WinAPI_SetFont($hListBox, $hFontList)
GUISetState()
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
_WinAPI_DeleteObject($hFont)
_WinAPI_DeleteObject($hFontList)
EndFunc ;==>Example