XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fonts: Eigenen Font nur zur Laufzeit des Programms installieren und nutzen
PRFellow-Vorlage
Autor: Thomas Hölzer
Eigenen Font nur zur Laufzeit des Programms installieren und nutzen
Der Font kann in einem beliebigen Verzeichnis sein.
RemoveFontResource MUSS am Ende aufgerufen werden.
Zum Testen einen nicht im System angemeldeten TT-Font verwenden!
Def AddFontResource(1) !GDI32,AddFontResourceA
Def RemoveFontResource(1) !GDI32,RemoveFontResourceA
Declare font#

Proc AddFont

    Parameters font$
    Dim font#,Add(Len(font$),1)
    String font#,0=font$
    AddFontResource(font#)
    SendMessage($0FFFF,29,0,0)
    Dispose font#

EndProc

Proc RemoveFont

    Parameters font$
    Dim font#,Add(Len(font$),1)
    String font#,0=font$
    RemoveFontResource(font#)
    SendMessage($0FFFF,29,0,0)
    Dispose font#

ENDPROC