FontDraw

Синтаксис

Sub FontDraw(ByVal FontID As HFONT)

Описание

Используется для установки шрифта рисуемого текста

Параметры

FontID - хендл шрифта; может быть получен с помощью LoadFont,FontRequester и др.

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
UpdateInfoXserver()
WindowStartDraw(hwnd,100,100,100,30)
  #Ifdef __FB_WIN32__
  BoxDraw(0,0,100,30,&hf0f0f0,&hf0f0f0) ' В Windows , ставим цвет фона холста такой же, как у окна. В linux это делать не нужно
  #EndIf  
  FontDraw(LoadFont("arial",22))
  TextDraw(0,0,"Hello",-1,255)
StopDraw
Do : Loop until  WaitEvent= EventClose

Результат

Created with the Personal Edition of HelpNDoc: Free Kindle producer