Own font ?

[paja]

Hi,

How can I use in my program my own font - it means non system font ?

[sapero]

Hello paja, call AddFontResourceEx api (LoadFont like function) to attach your font file to current process:

Code Select Expand

$include "windowssdk.inc"
int fontscount = AddFontResourceEx("c:\\download\\my font.fon", FR_PRIVATE, 0)
...SetFont()...
If the function succeeds, the return value specifies the number of fonts added, or zero if failed.
FR_PRIVATE - Specifies that only the process that called the AddFontResourceEx function can use this font. When you are finished with this font, call RemoveFontResourceEx with the same parameters.

[paja]

I wrote

const FR_PRIVATE = 0x10
def fontscount:int
declare "gdi32.dll", AddFontResourceEx(LPCSTR:string, fl:Double, PVOID:int),int
fontscount = AddFontResourceEx("D:\E_basic\EBDev\lcddot.ttf", FR_PRIVATE, 0)

but I get this error from linker: "Unresolved_external: ___inp_AddFontResourceEx"

[ZeroDog]

Are you running win2k pro or higher? 

[paja]

I have WIN XP PRO

[sapero]

AddFontResourceEx is an alias for AddFontResourceExA or AddFontResourceExW (unicode version).

[paja]

OK - but how can I uset it ? Please can you write complete code.

[LarryMc]

Code Select Expand

$include "windowssdk.inc"

Larry

[ZeroDog]

What you originally posted should work if you change  AddFontResourceEx  to  AddFontResourceExA (for ANSI)  or  AddFontResourceExW (for UNICODE).