FontPrinter

Printer ››
Parent Previous Next

FontPrinter

Синтаксис

Sub FontPrinter(byval Font As FontPrint Ptr=0)

Описание

Устанавливает шрифт для текста. Если вызвать функцию без параметра, то устанавливается шрифт (Arial 10). Функция находится в пространстве имен window9.

Параметры

Font - адрес структуры FontPrint:

Type FontPrint
  Name_ As String 'имя шрифта
  size As Integer 'размер шрифта
  BOLD As integer 'флаг включения полужирного шрифта (вкл 1 ; выкл 0)
  Italic As Integer 'флаг включения наклонного шрифта (вкл 1 ; выкл 0)
  Underline As Integer 'флаг включения подчеркнутого шрифта (вкл 1 ; выкл 0)
  StrikeOut As Integer 'флаг включения зачеркнутого шрифта (вкл 1 ; выкл 0)
End Type

Платформы

Windows

Пример

#Include "window9.bi"
Using window9
Dim Po As SinglePoint
Dim font As FontPrint
font.Name_="Arial"
font.size=22
font.Italic=1
Dim As Integer X=30,X1=15,Y=30,Y1=10
StartPrinter(@po)
PageStart()
FramePage(X,X1,Y,Y1)
FontPrinter(@font)
PrintText("FreeBasic very good programming language")
PageEnd()
StopPrinter()

Created with the Personal Edition of HelpNDoc: Free Web Help generator