Problème de FONT_COLOR sur BUTTON

button 1 : caption 1,"test"
font_color 1,255,0,0

BUTTON_PICTURE 1: TOP 1,10: LEFT 1,20: WIDTH 1,100: HEIGHT 1,40
BUTTON_PICTURE_TARGET_IS_PICTURE: HEIGHT 1,0: WIDTH 1,0: ' pas d'image
FONT_COLOR 1,128,0,0: FONT_BOLD 1
CAPTION 1,"Texte"+CHR$(10)+"pour voir"

button_picture 1: top 1,10: left 1,10: width 1,100: height 1,40
button_picture_target_is_picture: width 1,96: height 1,36
color 1,0,255,0: button_picture_target_is_object

button_picture 2: top 2,60: left 2,10: width 2,100: height 2,40
button_picture_target_is_picture: width 2,96: height 2,36
color 2,255,0,0: button_picture_target_is_object

button_picture 3: top 3,110: left 3,10: width 3,100: height 3,40
button_picture_target_is_picture: width 3,96: height 3,36
color 3,0,0,255: button_picture_target_is_object

LABEL Butclic
DIM nbt,x,y,w,h,ct,cf,txt$,fnt$,sz,enr,rc$
rc$ = CHR$(13)+CHR$(10)
nbt = 50: ' n° objet bouton                                           
w = 200: h = 120: x = 200: y = 100
txt$ = "Clic ici"+rc$+"pour voir"+rc$+"si ça marche !"
ct = 0: ' couleur texte, noir
cf = 65536*180+256*255+180: ' fond vert clair
fnt$ = "Monotype Corsiva": sz = 16
enr = 2: ' italiques
ct = 255: ' texte bleu
Buticol(nbt,x,y,w,h,ct,cf,txt$,fnt$,sz,enr)
ON_CLICK nbt,Butclic
END

Butclic:
  Message "Cliqué !"
RETURN

SUB Buticol(nbt,x,y,w,h,ct,cf,txt$,fnt$,sz,enr)
  ' Création du bouton nbt en x,y, dimensions w,h (largement inspiré de Marc)
  ' couleur fond cf, couleur texte ct, police fnt$, taille sz
  ' (nb: couleurs au format rgb: 65536*R + 256*G + B)
  ' enrichissements enr =1 gras, =2 italique, =4 souligné, cumulables
  ' Texte eventuellement multilignes (séparées par CHR$(13)+CHR$(10) )
  ' ON_CLICK sur nbut à définir dans le programme appelant.
  DIM_LOCAL dt,pt,p,rt,gt,bt,rf,gf,bf
  DIM_LOCAL rc$,tx$(10),nl,i,j,k
  rc$ = CHR$(13)+CHR$(10)
  dt = NUMBER_2D_TARGET: pt = NUMBER_PRINT_TARGET
  BUTTON_PICTURE nbt: WIDTH nbt,w: HEIGHT nbt,h: TOP nbt,y: LEFT nbt,x
  BUTTON_PICTURE_TARGET_IS_PICTURE: WIDTH nbt,w-4: HEIGHT nbt,h-4
  CREATE_HIDE
  rf = INT(cf/65536): gf = BIN_AND(cf,65280)/256: bf = BIN_AND(cf,255)
  p = 900
  PICTURE p: WIDTH p,w-4: HEIGHT p,h-4: COLOR p,rf,gf,bf
  2D_TARGET_IS p: PRINT_TARGET_IS p
  rt = INT(ct/65536): gt = BIN_AND(ct,65280)/256: bt = BIN_AND(ct,255) 
  FONT_NAME p,fnt$: FONT_SIZE p,sz: FONT_COLOR p,rt,gt,bt
  IF BIN_AND(enr,1) > 0 THEN FONT_BOLD p
  IF BIN_AND(enr,2) > 0 THEN FONT_ITALIC p
  IF BIN_AND(enr,4) > 0 THEN FONT_UNDERLINE p
  2D_FILL_COLOR rf,gf,bf: ' fond vert
  nl = 1
  i = INSTR(txt$,rc$)
  WHILE i > 0
      tx$(nl) = LEFT$(txt$,i-1): nl = nl+1
      txt$ = RIGHT_POS$(txt$,i+2): i = INSTR(txt$,rc$)     
  END_WHILE
  tx$(nl) = txt$
  k = TEXT_HEIGHT(tx$(1),p): j = k*nl: ' hauteur totale texte
  k = TEXT_HEIGHT(tx$(1),p): j = k*nl: ' hauteur totale texte
  WHILE j>h: k = k-1: j = k*nl: END_WHILE: ' Tassement (réduction interligne) 
  y = (h-j)/2
  FOR i = 1 TO nl
      x = (w-TEXT_WIDTH(tx$(i),p))/2: PRINT_LOCATE x,y: PRINT tx$(i)
      y = y+k
  NEXT i 
  IMAGE p+1
  2D_IMAGE_COPY p+1,0,0,w-5,h-5: 2D_TARGET_IS nbt: 2D_IMAGE_PASTE p+1,0,0
  2D_TARGET_IS dt: PRINT_TARGET_IS pt
  DELETE p: DELETE p+1
END_SUB