font_color sur button

#include "color.bas"
' Adaptation du programme de JL35
' http://panoramic.1fr1.net/t1017-dessine-moi-un-bouton
DIM n%, x%, y%, l%, h%, k%, ba%, r, g, b, t$, a$, xt%, yt%
DIM i%
LABEL Pseudobout, rr, rs, Traitement

ba% = 0: ' numéro du dernier bouton actif
BUTTON 1: TOP 1, 10: LEFT 1, 150: WIDTH 1, 200: CAPTION 1, "Bouton classique Panoramic"
ON_CLICK 1, Traitement

l% = 150: h% = 32
n% = 2: PICTURE n%
x% = 20: y% = 50: r = 220: g=255: b=255: t$ = "Symétrie<#horizontale"
GOSUB Pseudobout: ON_CLICK n%, Traitement
l% = 150: h% = 32
n% = n%+1: PICTURE n%
x% = 200: y% = 50: r = 255: g=220: b=220: t$ = "Symétrie<#verticale"
GOSUB Pseudobout: ON_CLICK n%, Traitement
n% = n%+1: PICTURE n%
l% = 100: x% = 130: y% = 100: r = 192: g = 255: b = 192: t$ = "Exécuter"
GOSUB Pseudobout: ON_CLICK n%, Traitement
n% = n%+1: PICTURE n%
l% = 30: h% = 120: x% = 50: y% = 100: r=255: g=192: b=255: t$ = "OUTILS"
GOSUB Pseudobout: ON_CLICK n%, Traitement
n% = n%+1: PICTURE n%
l% = 150: h% = 80: x% = 200: y% = 150: r = 255: g = 255: b = 180
t$ = "Cliquez ici<#et vous verrez<#la mer"
GOSUB PseudoBout: ON_CLICK n%, Traitement

BUTTON 800: TOP 800,-50

END

Pseudobout:
' Création en x% et y% d'un pseudo-bouton de numéro n%, de couleur rgb donnée,
' de dimensions l% et h%, de 1 ou plusieurs lignes de titre (si plusieurs lignes:
' séparées par '<#')
' Police Lucida Console, taille 10, caractères 8x12
TOP n%, y%: LEFT n%, x%: WIDTH n%, l%: HEIGHT n%, h%
2D_TARGET_IS n%
2D_PEN_COLOR 0,0,0: ' 2D_FILL_COLOR r,g,b
' 2D_RECTANGLE 0, 0, l%-1, h%-1
 2D_PEN_COLOR 255,255,255: 2D_LINE 0,0,l%-1,0: 2D_LINE 0,0,0,h%-1
PRINT_TARGET_IS n%: FONT_NAME n%, "Lucida Console": FONT_SIZE n%, 10
IF l% < h%
    ' bouton vertical
    xt% = (l%-8)/2: yt% = (h%-12*LEN(t$))/2
    FOR k% = 1 TO LEN(t$)
        PRINT_LOCATE xt%, yt%: PRINT MID$(t$, k%, 1): yt% = yt% + 12
    NEXT k%
ELSE
    a$ = t$: yt% = (h%-12)/2
rr:
    k% = INSTR(a$, "<#")
    IF k% > 0
        yt% = yt%-6: a$ = MID$(a$, k%+2, LEN(a$)-k%-1): GOTO rr
    END_IF
    a$ = t$
rs:
    k% = INSTR(a$, "<#")
    IF k% > 0
        PRINT_LOCATE (l%-8*LEN(LEFT$(a$,k%-1)))/2, yt%: PRINT LEFT$(a$, k%-1)
        a$ = MID$(a$, k%+2, LEN(a$)-k%-1): yt% = yt% + 12: GOTO rs
    END_IF
    PRINT_LOCATE (l%-8*LEN(a$))/2, yt%: PRINT a$
END_IF
dll_on "color.dll"
color_Red% = int(r): color_Green% = int(g):color_Blue% = int(b)
k% = dll_call4("ContractRGB",color_Red%,color_Green%,color_Blue%,color_pRGB)
k% = dll_call4("RGBtoHSV",color_pT,color_pS,color_pV,color_pRGB)
for k%=0 to height(n%)
  i% = dll_call4("HSVtoRGB",color_pT,color_pS,color_pV,color_pRGB)
  i% = dll_call4("ExpandRGB",color_pRed,color_pGreen,color_pBlue,color_pRGB)
  2d_pen_color color_Red%,color_Green%,color_Blue%
  for i%=0 to l%-1
    if COLOR_PIXEL_RED(n%,i%,k%)=255 then 2d_point i%,k%
  next i%
  color_S% = int(1+(100*k%/height(n%)))
next k%
dll_off

RETURN

Traitement:
' bouton actif: rectangle de pointillés
FOR k% = 1 TO 5
    IF CLICKED(k%) = 1 THEN EXIT_FOR
NEXT k%
' IF k% = 1 THEN ba% = k%: RETURN: ' Bouton classique
IF ba% <> 0
    IF ba% = 1
        SET_FOCUS 800
    ELSE
        r=COLOR_PIXEL_RED(ba%,2,2):g=COLOR_PIXEL_GREEN(ba%,2,2):b=COLOR_PIXEL_GREEN(ba%,2,2)
        2D_TARGET_IS ba%: 2D_PEN_COLOR r,g,b
        2D_LINE 4,4,l%-5,4: 2D_POLY_TO l%-5,h%-5:2D_POLY_TO 4,h%-5:2D_POLY_TO 4,4
    END_IF
END_IF
IF k% = 1 THEN ba% = k%: RETURN
TOP k%,TOP(k%)+2:LEFT k%,LEFT(k%)+2:WAIT 200:TOP k%,TOP(k%)-2:LEFT k%,LEFT(k%)-2
ba% = k%
2D_TARGET_IS k%: l% = WIDTH(k%): h% = HEIGHT(k%)
2D_PEN_COLOR 0,0,0
FOR k% = 4 TO l%-5 STEP 3: 2D_POINT k%, 4: 2D_POINT k%, h%-5: NEXT k%
FOR k% = 4 TO h%-5 STEP 3: 2D_POINT 4, k%: 2D_POINT l%-5, k%: NEXT k%
RETURN