SetGadgetFont

Синтаксис

Function SetGadgetFont(ByVal gadget As Long = -1 ,ByVal Font As integer=-1) As Integer

Описание

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

Поддерживаемые гаджеты:
Buttongadget
Editorgadget
TextGadget
StringGadget
SpinGadget
CalendarGadget
CheckBoxGadget
OptionGadget
HyperLinkGadget
ListBoxGadget
GroupGadget
ListViewGadget (в Linux c GTK2 шрифт ставится только для строк , изменение шрифта колонок не поддерживается)
TreeViewGadget
PanelGadget
ComboBoxGadget (в Linux изменение шрифта для этого гаджета не поддерживается)
ComboBoxImageGadget (в Linux изменение шрифта для этого гаджета не поддерживается)
ExplorerListGadget (в Linux не поддерживается)
GadgetToolTip (в Linux изменение шрифта для этого гаджета не поддерживается)
StatusBarGadget

Параметры

gadget - номер гаджета

Font - хендл шрифта

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,200,600)
StringGadget(1,10,10,100,20,"button")
SetGadgetFont(,CINT(LoadFont("arial",36))) 'шрифт по умолчанию
OptionGadget(2,10,70,200,40,"option 1")
CheckBoxGadget(3,10,140,170,40,"BlaBla")
TextGadget(4,10,200,100,30,"button")
SetGadgetFont(4,CINT(LoadFont("arial",22))) 'Шрифт для гаджета
#Ifdef __FB_WIN32__
ButtonGadget(5,10,250,200,200,"Button",BS_LEFT Or BS_BOTTOM)
SetGadgetFont(5,CINT(LoadFont("Courier New",30,45,,,1)))
#EndIf
SetGadgetFont()'Системный шрифт по умолчанию
EditorGadget(6,10,460,100,100,"Системный шрифт")
Do
  Var event=WaitEvent
  Select Case event
     Case EventClose
        End
  End Select
Loop

Результат

Created with the Personal Edition of HelpNDoc: Full featured Help generator