PureBasic

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

bonsoir
chr(128) affiche un €

cordialement

kernadec a écrit :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

@++

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

oh le boulaie que je fait là

...

@++

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

PureBasic

DrawText et € [résolu]

DrawText et € [résolu]

Re: DrawText et €

Re: DrawText et €

Re: DrawText et €

Re: DrawText et €

Re: DrawText et € [résolu]