CreateFontDrawA

Синтаксис

Function CreateFontDrawA(ByVal name As String="Arial",ByVal size As Integer=10,ByVal style As Integer=0,ByVal unit As Integer=6) As Any Ptr

Описание

Используется для создания шрифта. В последствии шрифт можно использовать вместе с функцией TextDrawA

Параметры

name - имя шрифта

size - размер шрифта

style - стиль шрифта, может быть:
FontStyleRegular = 0
FontStyleBold = 1
FontStyleItalic = 2
FontStyleBoldItalic = 3
FontStyleUnderline = 4 (только для Windows)
FontStyleStrikeout = 8 (только для Windows)

unit - единицы измерения в которых создается размер шрифта.Может быть:
UnitWorld = 0 (только для Windows)
UnitDisplay = 1 (нежелательный параметр для рисования)
UnitPixel = 2
UnitPoint = 3
UnitInch = 4
UnitDocument = 5
UnitMillimeter = 6

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Any Ptr Gpbitmap=Create_ImageA(300,270)
Dim As Hbitmap bmp
Dim As HWND hw
Dim As Any ptr font=CreateFontDrawA("Courier",36,3)
ImageStartDrawA(Gpbitmap)
  TextDrawA("ABC",0,10,font,&h80FF0000,,ANTIALIAS_GOOD)
StopDrawA
hw=OpenWindow("GDI+",100,100,320,270)
CenterWindow(hw)
bmp=CreateHBitmapFromGpBitmap(GpBitmap,&hf0f0F0)
ImageGadget(1, 0,0,300,300, bmp)
Do:Loop Until WaitEvent()= eventclose
FreeGpBitmap(Gpbitmap):Free_Image(bmp)
FreeFontDrawA(font)

Результат

Created with the Personal Edition of HelpNDoc: Free PDF documentation generator