FontRequester

Синтаксис

function FontRequester(byval hwnd As HWND = 0, byval nColor As Integer = 0) As Integer

Описание

Позволяет получать хендл шрифта из диалогового окна. Кроме того, после использования этой функции, можно получить дополнительными функциями:

SelectedFontName - имя шрифта
SelectedFontColor - только для Windows, цвет шрифта
SelectedFontSize размер шрифта
SelectedFontStyle стиль шрифта

Параметры

hwnd - окно, за которым будет закреплен диалог

nColor - только для Windows, цвет шрифта при инициализации

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,200,200)
Var font = FontRequester()
SetGadgetFont(,font)
ButtonGadget(1,10,10,100,20,"button")
Do
Var event=WaitEvent
Select Case event
 Case EventClose
  End
End Select
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create EBooks