Page 1 sur 1

Appeler caractere d'une police

Publié : mer. 27/févr./2008 18:31
par Kwai chang caine
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 :

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")))
Mais ça ne marche pas peut etre à cause de CHR().
J'ai pourtant bien activé l'unicode

Merci de votre aide

Publié : mer. 27/févr./2008 19:43
par Anonyme2
Salut,

tu ne confondrais pas la position 591 avec la valeur se trouvant à la position 591 ?
Chr attend une valeur ASCII qui est codé sur 8 bit, les caractères unicodes sont codés sur 16 bits ...

Peut-être que PeekS(*ZoneMemoire [, Longueur [, Options]]) avec Options à #PB_Unicode serait la solution si ton truc est en unicode.

Il y a aussi PeekC()


A+
Denis

Publié : jeu. 28/févr./2008 17:19
par Kwai chang caine
Merci pour l'aide, je vais regarder ça :wink: