FontRequester()

Синтаксис

Result = FontRequester(FontName$ , FontSize , Flags [, Color [, Style]])

Описание

Открывает стандартный запрос для выбора шрифта. После успешного вызова этой функции, можно получить необходимую информацию о выбранном шрифте, для этого используйте функции SelectedFontColor(), SelectedFontName(), SelectedFontSize() и SelectedFontStyle().

Параметры

FontName$	Имя шрифта, используемого по умолчанию, при открытии запроса.
FontSize	Размер шрифта, используемого по умолчанию, при открытии запроса.
Flags	Этот параметр может быть 0, либо одним из следующих значений: #PB_FontRequester_Effects : Активирует запрос эффектов (в том числе цвета). (Только для Windows).
Color (дополн.)	Цвет (в формате RGB()) шрифта, используемого по умолчанию, при открытии запроса.
Style (дополн.)	Стиль шрифта, используемого по умолчанию, при открытии запроса. Доступные стили описаны в SelectedFontStyle().

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

Возвращает не нулевое значение, если шрифт был выбран успешно, или 0, если пользователь отменил запрос, нажав соответствующую кнопку.

Пример

FontName$ = "Arial"  ; установить начальный шрифт (также может быть пустым)
FontSize  = 14          ; установить начальный размер (также может быть 0)
Result = FontRequester(FontName$, FontSize, #PB_FontRequester_Effects)
If Result
    Message$ = "Вы выбрали следующий шрифт:"  + #LF$
    Message$ + "Имя:  " + SelectedFontName()      + #LF$
    Message$ + "Размер:  " + Str(SelectedFontSize())  + #LF$
    Message$ + "Цвет: " + Str(SelectedFontColor()) + #LF$
    If SelectedFontStyle() & #PB_Font_Bold
        Message$ + "Полужирный" + #LF$
    EndIf
    If SelectedFontStyle() & #PB_Font_StrikeOut
        Message$ + "Перечёркнутый" + #LF$
    EndIf
    If SelectedFontStyle() & #PB_Font_Underline
        Message$ + "Подчеркнутый" + #LF$
    EndIf
Else
    Message$ = "Запрос был отменён."
EndIf

MessageRequester("Инфо", Message$, #PB_MessageRequester_Ok)

См. также

SelectedFontColor(), SelectedFontName(), SelectedFontSize(), SelectedFontStyle()

Поддерживаемые OS

Все