FontPrinter

FontPrinter

window9.FontPrinter([@ FontPrint=0] )

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

@FontPrint - адрес структуры 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

Пример:

#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()

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Free EBook and documentation generator