FreeFont

Синтаксис

sub FreeFont(iFont as integer)

Описание

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

Параметры

iFont - хендл шрифта

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,200,500)
StringGadget(1,10,10,150,50,"String")
Var font=LoadFont("Courier New",30)
SetGadgetFont(1,CINT(font))
Do
  Var event=WaitEvent
  Select Case event
     Case EventClose
        FreeFont(CINT(font))
        End
  End Select
Loop

Created with the Personal Edition of HelpNDoc: Easily create EBooks