wingding

Using Symbol Fonts on Controls and Graphics

Liberty BASIC won't access symbol fonts like Wingdings with a FONT command. Instead, create the font by API. It is very easy.

Button Demo

Graphicbox Demo

BUTTON

'Use a symbol font on a button.
nomainwin
    fontname$ = "Wingdings" + chr$(0)
    height = 48
    Calldll #gdi32, "CreateFontA", height as long,_
        0 as long,  0 as long, 0 as long,_
        0 as long, 0 as long, 0 as long, _
        0 as long,  _SYMBOL_CHARSET as long,_
        0 as long,0 as long, 0 as long, 0 as long, _
        fontname$ as PTR, hFont as ulong

button #1.b, "C",[quit],UL,10,10,80,80
open "test" for window as #1
    print #1, "trapclose [quit]"
    hButton=hwnd(#1.b)

    calldll #user32,  "SendMessageA", _
        hButton as ulong, _
        _WM_SETFONT as long,_
        hFont as ulong, _
        1 as long,_
        result as long

wait
[quit]
    calldll #gdi32, "DeleteObject", hFont as ulong, r as long
    close #1:END

Graphics

'wingding font in graphicbox
nomainwin

    fontname$ = "Wingdings" + chr$(0)
    height = 48
    Calldll #gdi32, "CreateFontA", height as long,_
        0 as long,  0 as long, 0 as long,_
        0 as long, 0 as long, 0 as long, _
        0 as long,  _SYMBOL_CHARSET as long,_
        0 as long,0 as long, 0 as long, 0 as long, _
        fontname$ as PTR, hFont as ulong

graphicbox #1.g, 10,10,80,80
open "test" for window as #1
    print #1, "trapclose [quit]"

    hBox=hwnd(#1.g)

calldll #user32, "GetDC",_
    hBox as ulong, hDC as ulong

calldll #gdi32,  "SelectObject", _
    hDC as ulong, _
    hFont as ulong,_
    oldFont as long

#1.g "down;place 20 60"
#1.g "\C"

wait

[quit]
    calldll #user32, "ReleaseDC",hBox as ulong,hDC as ulong, r as long
    calldll #gdi32, "DeleteObject", hFont as ulong, r as long
close #1:END