LoadFont

Синтаксис

Function LoadFont(ByRef sFileName As String , ByVal Size As Long, ByVal Corner As Long=0, ByVal Bold As Long=0, ByVal Italic As Long=0, ByVal Underline As Long=0, ByVal StrikeOut As long=0) As integer

Описание

Загружает шрифт, установленный в системе.

Параметры

sFileName - Имя шрифта

Size - Размер шрифта

Corner - (только для windows) Угол наклона в градусах (любой от 0 до 360)

Bold - Жирный шрифт (установится, если в параметре будет 1)

Italic - Курсивный шрифт (установится, если в параметре будет 1)

Underline - (только для windows) Подчеркнутый (установится, если в параметре будет 1)

StrikeOut - (только для windows) Зачеркнутый (установится, если в параметре будет 1)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,200,150)
StringGadget(1,10,10,150,40,"String")
Var font=LoadFont("Courier New",30)
SetGadgetFont(1,CINT(font))
Do
  Var event=WaitEvent
  Select Case event
     Case EventClose
        End
  End Select
Loop

Результат

Created with the Personal Edition of HelpNDoc: Full featured EBook editor