DrawText et € [résolu]

[MLD]

Bonjour a tous
Je voudrai mettre le sigle € sur une image avec DrawText.

DrawText(146, 145,tvt$ + "€",$6C2893)

DrawText se comporte comme si le compil était configuré en unicode
J'ai essayé comme ceci : DrawText(146, 145,tvt$ + chr(128),$6C2893) Résultat idem
Je n'ai pas trouvé la solution sur le forum
Peut-être je mi suis pris comme un manche
Quelqu'un aurait la solution

[kernadec]

bonsoir
chr(128) affiche un €

cordialement

[venom]

bonsoir
chr(128) affiche un €

cordialement

et non kernadec compile ce code :

Code : Tout sélectionner

If OpenWindow(0, 100, 200, 300, 200, "2D Drawing Test")
  If CreateImage(0, 300, 200)
    If StartDrawing(ImageOutput(0))
      DrawText(10,50,"voici un chr(128) = "+ Chr(128))
      StopDrawing()
    EndIf
  EndIf
  ImageGadget(0, 0, 0, 0, 0, ImageID(0))

  Repeat
    EventID = WaitWindowEvent() 
  Until EventID = #PB_Event_CloseWindow
EndIf

@++

[case]

encore faut il une font possedant le fameux sigle € !

Code : Tout sélectionner

fnt=LoadFont(#PB_Any,"lucida console",12)
If  OpenWindow(0, 100, 200, 300, 200, "2D Drawing Test")
  If CreateImage(0, 300, 200)
    If StartDrawing(ImageOutput(0))
      DrawingFont(FontID(fnt))
      DrawText(10,50,"voici un chr(128) = "+ Chr(128))   
      StopDrawing()
    EndIf
  EndIf
  ImageGadget(0, 0, 0, 0, 0, ImageID(0))

  Repeat
    EventID = WaitWindowEvent()
  Until EventID = #PB_Event_CloseWindow
EndIf

[venom]

oh le boulaie que je fait là
...





@++

[MLD]

Bonjours a tous et merci.
Ok même erreur que venon et kernadec
Comme dab, c'est de la faute a la police
case merci de corriger nos étourderies.
Bonne journée.
Michel