Appeler caractere d'une police
Publié : mer. 27/févr./2008 18:31
Bonjour à tous
Voila, j'ai créé une police avec un caractere qui est à la position $24F ce qui fait 591 en decimal.
Dans un EditorGadget, j'ai ecris ça pour faire apparaitre on charactere :
Mais ça ne marche pas peut etre à cause de CHR().
J'ai pourtant bien activé l'unicode
Merci de votre aide
Voila, j'ai créé une police avec un caractere qui est à la position $24F ce qui fait 591 en decimal.
Dans un EditorGadget, j'ai ecris ça pour faire apparaitre on charactere :
Code : Tout sélectionner
Procedure.l Hex2Dec(h$)
Protected a$, d.l
h$=UCase(h$)
For r=1 To Len(h$)
d<<4 : a$=Mid(h$,r,1)
If Asc(a$)>60
d+Asc(a$)-55
Else
d+Asc(a$)-48
EndIf
Next
ProcedureReturn d
EndProcedure
AddGadgetItem(#Editor, 0, Chr(Hex2Dec("24F")))
J'ai pourtant bien activé l'unicode
Merci de votre aide