Releases a GDI font.
FreeFont hFont
hFont:Handle
Releases a font from memory. However, you MUST make sure that the font is not selected in a DC (Device Context) so be sure to perform a SetFont SYSTEM_FONT beforehand.
OpenW 1
Global fnt1%, fnt2%, fnt3%, fnt4%, fnt5%, x%
fonts
Text 10, 10, "GFA Software Technologies 0"
SetFont fnt1%
Text 10, 30, "GFA Software Technologies 1"
SetFont fnt2%
Text 10, 80, "GFA Software Technologies 2"
SetFont fnt3%
Text 10, 120, "GFA Software Technologies 3"
SetFont fnt4%
Text 10, 160, "GFA Software Technologies 4"
SetFont fnt5%
Text 10, 200, "GFA Software Technologies 5"
SetFont SYSTEM_FONT
Text 10, 240, "GFA Software Technologies 6"
FreeFont fnt1%
FreeFont fnt2%
FreeFont fnt3%
FreeFont fnt4%
FreeFont fnt5%
Do : Sleep : Until Me Is Nothing
Procedure fonts
Font Family 0, Quality 0
Font "roman", Height 40, Width 0
Font Weight FW_BOLD, Orientation 0
Font Escapement 0, Italic 0, Underline 0
Font StrikeOut 0, CharSet OEM_CHARSET
Font To fnt1%
Font Quality PROOF_QUALITY, Height 25
Font CharSet ANSI_CHARSET, "Helv"
Font To fnt2%
Font CharSet OEM_CHARSET, "Script", Height 30
Font To fnt3%
Font "Morn", Height 50
Font To fnt4%
Font "symbol", Italic 0, Weight 1000, Width 25
Font Height 40, Orientation 0
Font StrikeOut 0, Underline 0, Escapement -150
Font Family FF_ROMAN, CharSet OEM_CHARSET
Font To fnt5%
EndProc
DelFont is synonym to FreeFont.
Font, Font To, SetFont, GetFont, RFont, Dlg Font, _hFont, _font$, _font$=, FreeFont, DelFont
{Created by Sjouke Hamstra; Last updated: 07/10/2014 by James Gaite}