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