Des petits boutons pas chers

LABEL Trait
DIM x%,y%,nb%,pol$,typ%
WIDTH 0,300: HEIGHT 0,140: COLOR 0,0,255,255
x% = 15: y% = 20
nb% = 100
pol$ = "Wingdings 3"
FOR typ% = 225 tO 232
    nb% =nb%+1
    Butico32x32(nb%,x%,y%,pol$,typ%): ON_CLICK nb%,Trait
    x% = x%+32
NEXT typ%
x% = 15: y% = 60: pol$ = "Wingdings"
FOR typ% = 35 TO 42
    nb% =nb%+1
    Butico32x32(nb%,x%,y%,pol$,typ%): ON_CLICK nb%,Trait
    x% = x%+32
NEXT typ%
END

Trait:
nb% = NUMBER_CLICK: MESSAGE STR$(nb%)
' ...
RETURN

SUB Butico32x32(nb%,x%,y%,pol$,typ%)
' Bouton 32x32 en x%,y%, police pol%, avec icône typ% (= n° du caractère à afficher)
' Voir les polices Webdings, Wingdings, Wingdings 2, Wingdings 3
BUTTON nb%: TOP nb%,y%: LEFT nb%,x%: WIDTH nb%,32: HEIGHT nb%,32
FONT_NAME nb%,pol$: FONT_SIZE nb%,16: CAPTION nb%,CHR$(typ%)
END_SUB

SUB Butico(nb%,w%,x%,y%,pol$,typ%)
' Bouton w% x w% en x%,y%, police pol$, avec icône typ% (= n° du caractère à afficher)
' Pour le caractère typ%, voir les polices Webdings, Wingdings, Wingdings 2, Wingdings 3
BUTTON nb%: TOP nb%,y%: LEFT nb%,x%: WIDTH nb%,w%: HEIGHT nb%,w%
FONT_NAME nb%,pol$: FONT_SIZE nb%,w%/2: CAPTION nb%,CHR$(typ%)
END_SUB

LABEL Clicbut, Afpol, Kelcar
DIM i%, j%, r%, c%, x%, y%, p$, lc%

lc% = 38

WIDTH 0,640: HEIGHT 0,620: FONT_BOLD 0: BORDER_SMALL 0
CAPTION 0,"  -  POLICES  GRAPHIQUES  -"
BUTTON 1: CAPTION 1,"Webdings"
BUTTON 2: LEFT 2,80: CAPTION 2,"Wingdings"
BUTTON 3: LEFT 3,160: CAPTION 3,"Wingdings 2"
BUTTON 4: LEFT 4,240: CAPTION 4,"Wingdings 3"
BUTTON 5: LEFT 5,540: CAPTION 5,"Quitter"
FOR i% = 1 TO 5: ON_CLICK i%,Clicbut: NEXT i%
ALPHA 6: TOP 6,10: LEFT 6,350: CAPTION 6,"Caractère cliqué:": FONT_COLOR 6,180,0,0
EDIT 7: LEFT 7,LEFT(6)+100: WIDTH 7,60: FONT_SIZE 7,18: FONT_BOLD 7: COLOR 7,255,255,80
PICTURE 10: TOP 10,40: LEFT 10,10: WIDTH 10,WIDTH(0)-26: HEIGHT 10,HEIGHT(0)-80
FONT_NAME 10,"Webdings": FONT_SIZE 10,20: ON_CLICK 10,Kelcar
2D_TARGET_IS 10: PRINT_TARGET_IS 10
GOSUB Afpol
END
' ==============================================================================
Clicbut:
i% = NUMBER_CLICK
SELECT i%
    CASE 1: p$ = "Webdings"
    CASE 2: p$ = "Wingdings"
    CASE 3: p$ = "Wingdings 2"
    CASE 4: p$ = "Wingdings 3"
    CASE 5: TERMINATE
END_SELECT
FONT_NAME 10,p$
GOSUB Afpol
RETURN

Afpol:
CLS
y% = 10
FOR j% = 32 TO 255 STEP 16
    x% = 0
    FOR i% = j% TO j%+15
        IF i%>255 THEN EXIT_FOR
        PRINT_LOCATE x%,y%: PRINT CHR$(i%)
        x%=x%+lc%
    NEXT i%
    y% = y%+lc%
NEXT j%
RETURN

Kelcar:
x% = MOUSE_X_LEFT_DOWN(10): y% = MOUSE_Y_LEFT_DOWN(10)
c% = INT(x%/lc%): r% = INT(y%/lc%)
i% = c%+r%*16
i%=i%+32
TEXT 7," "+STR$(i%)
RETURN