FreeFontDrawA

Синтаксис

Sub FreeFontDrawA(ByVal GpFont As Any Ptr)

Описание

Используется для удаления шрифта и освобождения занимаемых им ресурсов

Параметры

GpFont - хендл шрифта, мог быть создан функцией CreateFontDraw

Платформы

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)
  ModeDrawA(ANTIALIAS_GOOD)
  TextDrawA("ABC",0,10,font,&h80FF0000,,4)
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
FreeFontDrawA(font):FreeGpBitmap(Gpbitmap):Free_Image(bmp)

Результат

Created with the Personal Edition of HelpNDoc: Generate EPub eBooks with ease