Что нового

[Окна, Диалоги] InputBox размер шрифта

Dimmak

Знающий
Сообщения
185
Репутация
9
Подскажите, пожалуйста, возможно ли изменить размер шрифта в стандартной inputbox,
и если нет, то как это осуществить в custom inputbox? :smile:
 

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Наверное ни как, попробуйте сделать свой InputBox, в своём и возможностей будет побольше..
 

nu3dell

Осваивающий
Сообщения
139
Репутация
24
Dimmak
Код:
GUICtrlSetFont()



Пример:
Код:
#include <GUIConstantsEx.au3>
    GUICreate("",380,50)
	GUICtrlCreateInput('Размер "11", шрифт "Comic Sans MS", жирный',10,10,350,30)
	GUICtrlSetFont(-1, 11, 700, 0, "Comic Sans MS")
    GUISetState(@SW_SHOW)

    While 1
        $msg = GUIGetMsg()

        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
 
Автор
Dimmak

Dimmak

Знающий
Сообщения
185
Репутация
9
nu3dell
Спасибо!
То, что нужно!
:IL_AutoIt_1:
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Можно как то так:

Код:
$sSrc = _
	"#include <WinAPI.au3>" & @CRLF & _
	"#include <FontConstants.au3>" & @CRLF & _
	"While Not WinExists('Input Title')" & @CRLF & _
	"	Sleep(10)" & @CRLF & _
	"WEnd" & @CRLF & _
	"$hInput = ControlGetHandle('Input Title', '', 'Static1')" & @CRLF & _
	"$hFont = _WinAPI_CreateFont(12, 12, 0, 0, $FW_NORMAL, False, False, False, $DEFAULT_CHARSET, $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, 'Georgia')" & @CRLF & _
	"_WinAPI_SetFont($hInput, $hFont)"

$hFile = FileOpen(@TempDir & "\SetFont.au3", 2)
FileWrite($hFile, $sSrc)
FileClose($hFile)

Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @TempDir & '\SetFont.au3"')

InputBox("Input Title", "This is a Prompt")
 
Автор
Dimmak

Dimmak

Знающий
Сообщения
185
Репутация
9
CreatoR
А возможно ли изменить размер шрифта только с помощью
InputBox 'и' GUISetFont ( или GUICtrlSetFont )??
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Dimmak [?]
возможно ли изменить размер шрифта только с помощью
InputBox 'и' GUISetFont ( или GUICtrlSetFont )?
Нет, у InputBox нет такой функциональности.
 
Автор
Dimmak

Dimmak

Знающий
Сообщения
185
Репутация
9
Спасибо CreatoR, буду в курсе. :smile:
 
Верх