passez à la loupe ses polices de caratères

Rem Liste des polices système
Dim i%, j%, k%, a$, Police$, np, we, he, xh, yh, eh, xv, yv, ev, tx$, x%, y%, xlp, ylp
Dim rf%, gf%, bf%, rc%, gc%, bc%, enr$, c$
Label Debut, Afpol, Cfond, Ccar, Clicar, Reaff
tx$ = "Voyez Le Brick Géant Que J'Examine Près Du Wharf 0123456789"
we = 800: he = 760: width 0, we: height 0, he
Font_Name 0, "Courier New": Font_Size 0,14
Color 0,255,255,190: ON_CLICK 0, Clicar

Rem affichage de la liste des polices
List 1: Left 1,5 : Top 1, 4 : Width 1, 220 : Height 1, he - 195: ' liste des polices dispo
Font_Name 1, "Arial": Font_Size 1,10: Color 1,196,255,196
On_click 1, Debut

xh = 260 : yh = 38 : eh = 24
xv = 240 : yv = 60 : ev = 32
Rem affichage des échelles horizontale et verticale
List 2: Top 2, yh: Left 2, xh: Width 2, we-xv-60: Height 2, 20
Font_Name 2, "Courier New": Font_Size 2, 10: Font_Color 2, 0, 0, 255 : Font_Bold 2
List 3: Top 3, yv: Left 3, xv: Width 3, 20: Height 3, he - 250
Font_Name 3, "Courier New": Font_Size 3, 10: Font_Color 3, 0, 0, 255 : Font_Bold 3
Print_Target_Is 2: Print " 0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F"
For i% = 0 To 15: Item_Add 3, Hex$(i%): Item_Add 3, "": Next i%
xlp = xh+13: ylp = yv
Rem exemple de texte
List 4: Top 4, he - 170 : Left 4, 5: Width 4, we-30: Height 4,35: ' Texte exemple
List 5: Top 5, 5: Left 5, xh: Height 5, 28: Width 5, 300: ' Nom de police
Font_Name 5, "Arial Black": Font_Size 5, 10: Font_Color 5, 0, 0, 255
Dlist 6: FONT_NAMES_LOAD 6
np = COUNT(6): CAPTION 0, " " + STR$(np) + " polices de caractères"
Picture 9: Top 9,-800
For i% = 1 To np
    Police$ = ITEM_READ$(6, i%): FONT_NAME 9,Police$
    j% = TEXT_WIDTH("iiiiiiiiii",9): k% = TEXT_WIDTH("mmmmmmmmmm",9)
    IF j% = k%
        a$ = "F " + Police$: ' police à pas fixe
    ELSE
        a$ = "  " + Police$: ' police proportionnelle
    END_IF
    ITEM_ADD 1, a$
NEXT i%
DELETE 9
ALPHA 10: TOP 10,TOP(4)+HEIGHT(4)+10: LEFT 10,10: CAPTION 10, "Fond:"
SCROLL_BAR 11:TOP 11,TOP(10)+3:LEFT 11,70: WIDTH 11,190
MIN 11,0: MAX 11,255: POSITION 11,255: ON_CHANGE 11,Cfond
ALPHA 12:TOP 12,TOP(10):LEFT 12,LEFT(11)+WIDTH(11):CAPTION 12,POSITION(11)
FONT_COLOR 12,192,0,0: FONT_BOLD 12
SCROLL_BAR 13:TOP 13,TOP(11):LEFT 13,300: WIDTH 13,190
MIN 13,0: MAX 13,255: POSITION 13,255: ON_CHANGE 13,Cfond
ALPHA 14:TOP 14,TOP(10):LEFT 14,LEFT(13)+WIDTH(13):CAPTION 14,POSITION(13)
FONT_COLOR 14,0,192,0: FONT_BOLD 14
SCROLL_BAR 15:TOP 15,TOP(11):LEFT 15,530: WIDTH 15,190
MIN 15,0: MAX 15,255: POSITION 15,255: ON_CHANGE 15,Cfond
ALPHA 16:TOP 16,TOP(10):LEFT 16,LEFT(15)+WIDTH(15):CAPTION 16,POSITION(15)
FONT_COLOR 16,0,0,255: FONT_BOLD 16
ALPHA 20: TOP 20,TOP(10)+30: LEFT 20,5: CAPTION 20, "Carac:"
SCROLL_BAR 21:TOP 21,TOP(20)+3: LEFT 21,70: WIDTH 21,190
MIN 21,0: MAX 21,255: POSITION 21,0: ON_CHANGE 21, Ccar
ALPHA 22:TOP 22,TOP(20):LEFT 22,LEFT(21)+WIDTH(21):CAPTION 22,POSITION(21)
FONT_COLOR 22,192,0,0: FONT_BOLD 22
SCROLL_BAR 23:TOP 23,TOP(21):LEFT 23,300: WIDTH 23,190
MIN 23,0: MAX 23,255: POSITION 23,0: ON_CHANGE 23, Ccar
ALPHA 24:TOP 24,TOP(20):LEFT 24,LEFT(23)+WIDTH(23):CAPTION 24,POSITION(23)
FONT_COLOR 24,0,192,0: FONT_BOLD 24
SCROLL_BAR 25:TOP 25,TOP(21):LEFT 25,530: WIDTH 25,190
MIN 25,0: MAX 25,255: POSITION 25,0: ON_CHANGE 25, Ccar
ALPHA 26:TOP 26,TOP(20):LEFT 26,LEFT(25)+WIDTH(25):CAPTION 26,POSITION(25)
FONT_COLOR 26,0,0,255: FONT_BOLD 26

CHECK 30: TOP 30,TOP(20)+30: LEFT 30,150: CAPTION 30, "Gras"
CHECK 31: TOP 31,TOP(30): LEFT 31,280: CAPTION 31, "Italique"
CHECK 32: TOP 32,TOP(30): LEFT 32,410: CAPTION 32, "Souligné"
CHECK 33: TOP 33,TOP(30): LEFT 33,540: CAPTION 33, "Barré"
FOR i% = 30 TO 33: ON_CLICK i%, Reaff: NEXT i%
enr$ = "0000"
for i% = 10 to 16 step 2: font_name i%, "Verdana": font_size i%,12: next i%
for i% = 20 to 26 step 2: font_name i%, "Verdana": font_size i%,12: next i%
for i% = 30 to 33: font_name i%, "Verdana": font_size i%,12: next i%

ALPHA 40: TOP 40,-2: LEFT 40,xh+405: FONT_SIZE 40,8:CAPTION 40,"Hex    Dec"
LIST 41: TOP 41,2: LEFT 41,xh+350: WIDTH 41,45: HEIGHT 41,30
FONT_COLOR 41,192,0,0: FONT_SIZE 41,18
LIST 42: TOP 42,10: LEFT 42,LEFT(41)+45: WIDTH 42,45: HEIGHT 42,23
LIST 43: TOP 43,10: LEFT 43,LEFT(42)+50: WIDTH 43,45: HEIGHT 43,23
FONT_NAME 42,"Lucida Console": FONT_NAME 43,"Lucida Console"

Police$ = "Arial": Gosub Afpol
End

Debut:
Police$= LTRIM$(MID$(Item_Index$(1),2,100)): ' choix d'une police dans la liste
Afpol:
Font_Name 0, Police$
Font_Size 0, 14
Print_Target_is 0
Display
Rem affichage des 256 caractères de la police
For j% = 0 To 255 Step 16
    y% = ylp + ev*j%/16
    For i% = j% to j% + 15
        x% = xlp + eh * (i%-j%)
        Print_Locate x%, y%: Print Chr$(i%)
    Next i%
Next j%
Font_Name 4, Police$: Font_Size 4, 18: Print_Target_Is 4
Clear 4: Print_Locate 5, 5: Print tx$
Clear 5: Print_Target_Is 5: Print " " + Police$
Return

Cfond:
rf% = POSITION(11): gf% = POSITION(13): bf% = POSITION(15)
CAPTION 12, STR$(rf%): CAPTION 14, STR$(gf%): CAPTION 16, STR$(bf%)
COLOR 4, rf%, gf%, bf%
RETURN

Ccar:
rc% = POSITION(21): gc% = POSITION(23): bc% = POSITION(25)
CAPTION 22, STR$(rc%): CAPTION 24, STR$(gc%): CAPTION 26, STR$(bc%)
FONT_COLOR 4, rc%, gc%, bc%
RETURN

Clicar:
x% = MOUSE_X_POSITION(0): y% = MOUSE_Y_POSITION(0)
IF x%<xlp OR x%>(xlp+eh*16) OR y%<ylp OR y%>(ylp+ev*16) THEN RETURN
CLEAR 41: CLEAR 42: CLEAR 43
x% = x%-6: y% = y%-10
x% = x%-xlp: x% = x%/eh: IF x% > 15 THEN x% = 15: ' colonne
y% = y%-ylp: y% = y%/ev: IF y% > 15 THEN y% = 15: ' rangée
i% = x% + 16*y%: ITEM_ADD 42," "+RIGHT$("0"+HEX$(i%),2): ' caractère, hexa
ITEM_ADD 43, STR$(i%): ' décimal
FONT_NAME 41,Police$: ITEM_ADD 41," "+CHR$(i%)
RETURN

Reaff:
a$ = "0": IF CHECKED(30) = 1 THEN a$ = "1"
c$ = "0": IF CHECKED(31) = 1 THEN c$ = "1"
a$ = a$ + c$
c$ = "0": IF CHECKED(32) = 1 THEN c$ = "1"
a$ = a$ + c$
c$ = "0": IF CHECKED(33) = 1 THEN c$ = "1"
a$ = a$ + c$
IF a$ <> enr$
    FONT_BOLD_OFF 4: FONT_ITALIC_OFF 4: FONT_UNDERLINE_OFF 4: FONT_STRIKE_OFF 4
    IF CHECKED(30) = 1 THEN FONT_BOLD 4
    IF CHECKED(31) = 1 THEN FONT_ITALIC 4
    IF CHECKED(32) = 1 THEN FONT_UNDERLINE 4
    IF CHECKED(33) = 1 THEN FONT_STRIKE 4
    enr$ = a$
END_IF
RETURN

Rem Liste des polices système
Dim i%, j%, k%, a$, Police$, np, we, he, xh, yh, eh, xv, yv, ev, tx$, x%, y%, xlp, ylp
Dim rf%, gf%, bf%, rc%, gc%, bc%, enr$, c$
Label Debut, Afpol, Cfond, Ccar, Clicar, Reaff,saute
tx$ = "Voyez Le Brick Géant Que J'Examine Près Du Wharf 0123456789"
we = 800: he = 760: width 0, we: height 0, he
Font_Name 0, "Courier New": Font_Size 0,14
Color 0,255,255,190: ON_CLICK 0, Clicar

Rem affichage de la liste des polices
List 1: Left 1,5 : Top 1, 4 : Width 1, 220 : Height 1, he - 195: ' liste des polices dispo
Font_Name 1, "Arial": Font_Size 1,10: Color 1,196,255,196
On_click 1, Debut

xh = 260 : yh = 38 : eh = 24
xv = 240 : yv = 60 : ev = 32
Rem affichage des échelles horizontale et verticale
List 2: Top 2, yh: Left 2, xh: Width 2, we-xv-60: Height 2, 20
Font_Name 2, "Courier New": Font_Size 2, 10: Font_Color 2, 0, 0, 255 : Font_Bold 2
List 3: Top 3, yv: Left 3, xv: Width 3, 20: Height 3, he - 250
Font_Name 3, "Courier New": Font_Size 3, 10: Font_Color 3, 0, 0, 255 : Font_Bold 3
Print_Target_Is 2: Print " 0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F"
For i% = 0 To 15: Item_Add 3, Hex$(i%): Item_Add 3, "": Next i%
xlp = xh+13: ylp = yv
Rem exemple de texte
List 4: Top 4, he - 170 : Left 4, 5: Width 4, we-30: Height 4,35: ' Texte exemple
List 5: Top 5, 5: Left 5, xh: Height 5, 28: Width 5, 300: ' Nom de police
Font_Name 5, "Arial Black": Font_Size 5, 10: Font_Color 5, 0, 0, 255
Dlist 6: FONT_NAMES_LOAD 6
np = COUNT(6): CAPTION 0, " " + STR$(np) + " polices de caractères"
Picture 9: Top 9,-800
For i% = 1 To np
    Police$ = ITEM_READ$(6, i%): FONT_NAME 9,Police$
    j% = TEXT_WIDTH("iiiiiiiiii",9): k% = TEXT_WIDTH("mmmmmmmmmm",9)
    if left$(police$,1)="@" then goto saute
    IF j% = k%
        a$ = "F " + Police$: ' police à pas fixe
    ELSE
        a$ = "  " + Police$: ' police proportionnelle
    END_IF
    ITEM_ADD 1, a$
saute:
NEXT i%
DELETE 9
ALPHA 10: TOP 10,TOP(4)+HEIGHT(4)+10: LEFT 10,10: CAPTION 10, "Fond:"
SCROLL_BAR 11:TOP 11,TOP(10)+3:LEFT 11,70: WIDTH 11,190
MIN 11,0: MAX 11,255: POSITION 11,255: ON_CHANGE 11,Cfond
ALPHA 12:TOP 12,TOP(10):LEFT 12,LEFT(11)+WIDTH(11):CAPTION 12,POSITION(11)
FONT_COLOR 12,192,0,0: FONT_BOLD 12
SCROLL_BAR 13:TOP 13,TOP(11):LEFT 13,300: WIDTH 13,190
MIN 13,0: MAX 13,255: POSITION 13,255: ON_CHANGE 13,Cfond
ALPHA 14:TOP 14,TOP(10):LEFT 14,LEFT(13)+WIDTH(13):CAPTION 14,POSITION(13)
FONT_COLOR 14,0,192,0: FONT_BOLD 14
SCROLL_BAR 15:TOP 15,TOP(11):LEFT 15,530: WIDTH 15,190
MIN 15,0: MAX 15,255: POSITION 15,255: ON_CHANGE 15,Cfond
ALPHA 16:TOP 16,TOP(10):LEFT 16,LEFT(15)+WIDTH(15):CAPTION 16,POSITION(15)
FONT_COLOR 16,0,0,255: FONT_BOLD 16
ALPHA 20: TOP 20,TOP(10)+30: LEFT 20,5: CAPTION 20, "Carac:"
SCROLL_BAR 21:TOP 21,TOP(20)+3: LEFT 21,70: WIDTH 21,190
MIN 21,0: MAX 21,255: POSITION 21,0: ON_CHANGE 21, Ccar
ALPHA 22:TOP 22,TOP(20):LEFT 22,LEFT(21)+WIDTH(21):CAPTION 22,POSITION(21)
FONT_COLOR 22,192,0,0: FONT_BOLD 22
SCROLL_BAR 23:TOP 23,TOP(21):LEFT 23,300: WIDTH 23,190
MIN 23,0: MAX 23,255: POSITION 23,0: ON_CHANGE 23, Ccar
ALPHA 24:TOP 24,TOP(20):LEFT 24,LEFT(23)+WIDTH(23):CAPTION 24,POSITION(23)
FONT_COLOR 24,0,192,0: FONT_BOLD 24
SCROLL_BAR 25:TOP 25,TOP(21):LEFT 25,530: WIDTH 25,190
MIN 25,0: MAX 25,255: POSITION 25,0: ON_CHANGE 25, Ccar
ALPHA 26:TOP 26,TOP(20):LEFT 26,LEFT(25)+WIDTH(25):CAPTION 26,POSITION(25)
FONT_COLOR 26,0,0,255: FONT_BOLD 26

CHECK 30: TOP 30,TOP(20)+30: LEFT 30,150: CAPTION 30, "Gras"
CHECK 31: TOP 31,TOP(30): LEFT 31,280: CAPTION 31, "Italique"
CHECK 32: TOP 32,TOP(30): LEFT 32,410: CAPTION 32, "Souligné"
CHECK 33: TOP 33,TOP(30): LEFT 33,540: CAPTION 33, "Barré"
FOR i% = 30 TO 33: ON_CLICK i%, Reaff: NEXT i%
enr$ = "0000"
for i% = 10 to 16 step 2: font_name i%, "Verdana": font_size i%,12: next i%
for i% = 20 to 26 step 2: font_name i%, "Verdana": font_size i%,12: next i%
for i% = 30 to 33: font_name i%, "Verdana": font_size i%,12: next i%

ALPHA 40: TOP 40,-2: LEFT 40,xh+405: FONT_SIZE 40,8:CAPTION 40,"Hex    Dec"
LIST 41: TOP 41,2: LEFT 41,xh+350: WIDTH 41,45: HEIGHT 41,30
FONT_COLOR 41,192,0,0: FONT_SIZE 41,18
LIST 42: TOP 42,10: LEFT 42,LEFT(41)+45: WIDTH 42,45: HEIGHT 42,23
LIST 43: TOP 43,10: LEFT 43,LEFT(42)+50: WIDTH 43,45: HEIGHT 43,23
FONT_NAME 42,"Lucida Console": FONT_NAME 43,"Lucida Console"

Police$ = "Arial": Gosub Afpol
End

Debut:
Police$= LTRIM$(MID$(Item_Index$(1),2,100)): ' choix d'une police dans la liste
Afpol:
Font_Name 0, Police$
Font_Size 0, 14
Print_Target_is 0
Display
Rem affichage des 256 caractères de la police
For j% = 0 To 255 Step 16
    y% = ylp + ev*j%/16
    For i% = j% to j% + 15
        x% = xlp + eh * (i%-j%)
        Print_Locate x%, y%: Print Chr$(i%)
    Next i%
Next j%
Font_Name 4, Police$: Font_Size 4, 18: Print_Target_Is 4
Clear 4: Print_Locate 5, 5: Print tx$
Clear 5: Print_Target_Is 5: Print " " + Police$
Return

Cfond:
rf% = POSITION(11): gf% = POSITION(13): bf% = POSITION(15)
CAPTION 12, STR$(rf%): CAPTION 14, STR$(gf%): CAPTION 16, STR$(bf%)
COLOR 4, rf%, gf%, bf%
RETURN

Ccar:
rc% = POSITION(21): gc% = POSITION(23): bc% = POSITION(25)
CAPTION 22, STR$(rc%): CAPTION 24, STR$(gc%): CAPTION 26, STR$(bc%)
FONT_COLOR 4, rc%, gc%, bc%
RETURN

Clicar:
x% = MOUSE_X_POSITION(0): y% = MOUSE_Y_POSITION(0)
IF x%<xlp OR x%>(xlp+eh*16) OR y%<ylp OR y%>(ylp+ev*16) THEN RETURN
CLEAR 41: CLEAR 42: CLEAR 43
x% = x%-6: y% = y%-10
x% = x%-xlp: x% = x%/eh: IF x% > 15 THEN x% = 15: ' colonne
y% = y%-ylp: y% = y%/ev: IF y% > 15 THEN y% = 15: ' rangée
i% = x% + 16*y%: ITEM_ADD 42," "+RIGHT$("0"+HEX$(i%),2): ' caractère, hexa
ITEM_ADD 43, STR$(i%): ' décimal
FONT_NAME 41,Police$: ITEM_ADD 41," "+CHR$(i%)
RETURN

Reaff:
a$ = "0": IF CHECKED(30) = 1 THEN a$ = "1"
c$ = "0": IF CHECKED(31) = 1 THEN c$ = "1"
a$ = a$ + c$
c$ = "0": IF CHECKED(32) = 1 THEN c$ = "1"
a$ = a$ + c$
c$ = "0": IF CHECKED(33) = 1 THEN c$ = "1"
a$ = a$ + c$
IF a$ <> enr$
    FONT_BOLD_OFF 4: FONT_ITALIC_OFF 4: FONT_UNDERLINE_OFF 4: FONT_STRIKE_OFF 4
    IF CHECKED(30) = 1 THEN FONT_BOLD 4
    IF CHECKED(31) = 1 THEN FONT_ITALIC 4
    IF CHECKED(32) = 1 THEN FONT_UNDERLINE 4
    IF CHECKED(33) = 1 THEN FONT_STRIKE 4
    enr$ = a$
END_IF
RETURN

Effectivement, j'avais également constaté ça, mais bon, je pense que ça vient de l'installation d'origine de Windows (peut-être des fichiers provisoires, ou d'essai, qui traînent), elles semblent identiques, ça alourdit la liste, et, sauf avis contraire, toutes celles précédées du @ se retrouvent plus loin sans lui, identiques comme tu dis, donc inutiles.
Mais de là à prendre le risque de les supprimer...

LABEL Vf
DIM i%
HEIGHT 0, SCREEN_Y-40: WIDTH 0,260
LIST 10: HEIGHT 10, HEIGHT(0)-40: WIDTH 10,240: COLOR 10,255,255,192
FONT_SIZE 10,10: ON_CLICK 10, Vf
EXECUTE_WAIT "CMD.exe /c DIR C:\windows\Fonts\*.ttf /B >C:\TEMP\Dir"
FILE_LOAD 10, "C:\TEMP\Dir": FILE_DELETE "C:\TEMP\Dir"
END
Vf:
EXECUTE_WAIT "C:\windows\Fonts\" + ITEM_INDEX$(10)
RETURN

dim i,j,k,r,v,b,n,p,x,y,police$
label couleur_fond,couleur_police,gras,raye,ital,soul,taille,font,texte
hide 0:width 0,991:height 0,600::left 0,(screen_x-width(0))/2:top 0,(screen_y-height(0))/2
p=1
for i=0 to 4
  for j=0 to 4
      for k=0 to 4
        r=i*64:if r>255 then r=255
        v=j*64:if v>255 then v=255
        b=k*64:if b>255 then b=255
        picture p:width p,32:height p,32:left p,x:top p,y:on_click p,couleur_fond
        color p,r,v,b:hint p,"r="+str$(r)+" v="+str$(v)+" b="+str$(b):cursor_point p
        picture p+126:width p+126,32:height p+126,32:left p+126,x+500:top p+126,y:on_click p+126,couleur_police
        color p+126,r,v,b:hint p+126,"r="+str$(r)+" v="+str$(v)+" b="+str$(b):cursor_point p+126
        y=y+34:if y>288 then y=0:x=x+34
        p=p+1
      next k
  next j
next i
picture p:width p,32:height p,32:left p,x:top p,y
color p,240,240,240:hint p,"r=240 v=240 b=240":on_click p,couleur_fond:cursor_point p
picture p+126:width p+126,32:height p+126,32:left p+126,x+500:top p+126,y
color p+126,240,240,240:hint p+126,"r=240 v=240 b=240":on_click p+126,couleur_police:cursor_point p+126
alpha 253:left 253,100:top 253,310:color 253,255,255,0:font_bold 253:caption 253,"Couleur fond: 240, 240, 240"
alpha 254:left 254,600:top 254,310:font_color 254,255,0,0:font_bold 254:caption 254,"Couleur police: 255, 0, 0"
alpha 255:left 255,5:top 255,380:font_color 255,255,0,0
dlist 256:font_names_load 256:n=count(256)
combo 257:left 257,505:top 257,330:width 257,165
for i=1 to n
    police$=item_read$(256,i):if left$(police$,1)<>"@" then item_add 257,police$
next i:n=count(257):CAPTION 0," "+STR$(n)+" polices de caractères":police$="Arial":text 257,police$:on_change 257,font
check 258:left 258,675:top 258,330:font_size 258,9:font_bold 258:caption 258,"GRAS":on_click 258,gras
check 259:left 259,735:top 259,330:font_size 259,9:font_bold 259:caption 259,"RAYÉ":on_click 259,raye
check 260:left 260,795:top 260,330:font_size 260,9:font_bold 260:caption 260,"ITALIQUE":on_click 260,ital
check 261:left 261,875:top 261,330:font_size 261,9:font_bold 261:caption 261,"SOULIGNÉ":on_click 261,soul
combo 262:left 262,445:top 262,330:width 262,40:font_size 262,10:for j=6 to 50:item_add 262,str$(j):next j:text 262,"10":on_change 262,taille
edit 263:left 263,5:top 263,330:width 263,425:font_name 263,"Consolas":font_bold 263:font_size 263,12
text 263,"Portez ce vieux whisky au juge blond qui fume":on_change 263,texte
show 0:2d_pen_width 2:2d_line 487,0,487,325:2d_line 0,307,991,307:2d_line 0,325,991,325:display:gosub font:gosub texte
end

couleur_fond:
p=number_click:r=color_pixel_red(p,10,10):v=color_pixel_green(p,10,10):b=color_pixel_blue(p,10,10)
color 255,r,v,b:caption 253,"Couleur fond: "+str$(r)+", "+str$(v)+", "+str$(b):return
couleur_police:
p=number_click:r=color_pixel_red(p,10,10):v=color_pixel_green(p,10,10):b=color_pixel_blue(p,10,10)
font_color 255,r,v,b:caption 254,"Couleur police: "+str$(r)+", "+str$(v)+", "+str$(b):return
font:
police$=text$(257):font_name 255,police$:return
gras:
font_bold_off 255:if checked(258)=1 then font_bold 255
return
raye:
font_strike_off 255:if checked(259)=1 then font_strike 255
return
ital:
font_italic_off 255:if checked(260)=1 then font_italic 255
return
soul:
font_underline_off 255:if checked(261)=1 then font_underline 255
return
taille:
if item_index(262)=0 then return
j=val(item_read$(262,item_index(262))):font_size 255,j:return
texte:
caption 255,text$(263):return