Ptit caprice à propos des symboles non latin de base

Bonjour les amis !
J'aimerais bien si un jour Panoramic acceptera les symboles non "latin de base" comme par exemple "≤, ɣ, θ, Ϭ" dans une variable string, car dans une programmation plus technique, on en aura tellement besoins.
Ne vous énervez pas pour cette demande, car ce n'est qu'un petit caprice utile. Razz

A+

Pour le moment, Panoramic limite le jeu de caractères aux caractères ASCII sur 8 bits, de 0 à 255 en valeur décimale. Les caractères Unicode ne sont pas gérés.

En Unicode, on peut gérer des caractères sur deux ou plusieurs octets, prenant ainsi en charge des symboles techniques, les caractères de langues non-latines comme l'alphabet cyrillique, chinois etc. En Delphi, c'est une palette différente de routines de service qui gère ces chaînes de caractères qui posent à l'évidence des problèmes particuliers, du fait qu'un caractère est représenté par un nombre variable d'octets.

As-tu essayé de trouver une police qui puisse contenir les symboles qui t'intéressent ? Il y a Webdings, Wingdings, Wingdings2, Wingdings3, Tunga, Shruti, Rose, Raavi, MV Boli, MS Reference Specialty, MS Outlook, Marlett, Mangal, Latha, Gautami, FFF Extras, FFF Extras 2, Estrangelo Edessa, Bookshelf Symbol 7, Bookdings, ...

Ceci sont les polices que je trouve sur ma machine. Tu peux essayer d'utiliser un code comme ceci pour visualiser le jeu de caractères des polices:

Code:: dim police$, i%, j%, ligne$, c$
police$ = "Wingdings"
memo 10 : top 10,10 : left 10,10
height 10,300 : width 10,300
font_name 10,police$
for i%=0 to 15
ligne$ = ""
for j%=0 to 15
if (i%=0) and (j%=0)
c$ = "."
else
c$ = chr$(i%*16+j%)
end_if
ligne$ = ligne$ + c$
next j%
item_add 10,str$(i%)+" - "+ligne$
next i%
end

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Ou ça, pour faire toutes les polices:

Code:: Rem Liste des polices système
dim i%, j%, k%, a$, Police$, np, we, he, xh, yh, eh, xv, yv, ev, tx$, x%, y%, xlp, ylp
label Debut, Afpol
tx$ = "Voyez Le Brick Géant Que J'Examine Près Du Wharf 0123456789"
we = 780: he = 760: width 0, we: height 0, he
Font_Name 0, "Courier New": Font_Size 0,14

Rem affichage de la liste des polices
list 1: left 1,5 : top 1, 4 : width 1, 220 : height 1, 630
Font_Name 1, "Arial": Font_Size 1,10
on_click 1, Debut

xh = 260 : yh = 38: eh = 30
xv = 240: yv = 60: ev = 36
Rem affichage des échelles horizontale et verticale
List 2: top 2, yh: left 2, xh: width 2, 490: height 2, 20
Font_Name 2, "Courier New": Font_Size 2, 12: Font_Color 2, 0, 0, 255
Font_Bold 2
List 3: top 3, yv: left 3, xv: width 3, 20: height 3, 570
Font_Name 3, "Courier New": Font_Size 3, 12: Font_Color 3, 0, 0, 255
Font_Bold 3
Print_Target_Is 2: Print " 0 1 2 3 4 5 6 7 8 9 A B C D E F"
For i% = 0 To 15: Item_Add 3, Hex$(i%): Item_Add 3, "": Next i%
xlp = xh+13: ylp = yv
Rem exemple de texte
List 4: Top 4, 640: Left 4, 5: Width 4, we-30: Height 4,40
List 5: Top 5, 5: Left 5, xh: Height 5, 28: Width 5, 300
Font_Name 5, "Arial Black": Font_Size 5, 12: Font_Color 5, 0, 0, 255
DLIST 6: FONT_NAMES_LOAD 6
np = COUNT(6): CAPTION 0, " " + STR$(np) + " polices de caractères"
Picture 9: top 9,-800
FOR i% = 1 TO np
Police$ = ITEM_READ$(6, i%): FONT_NAME 9,Police$
j% = TEXT_WIDTH("iiiiiiiiii",9): k% = TEXT_WIDTH("mmmmmmmmmm",9)
IF j% = k%
a$ = "F " + Police$
ELSE
a$ = " " + Police$
END_IF
ITEM_ADD 1, a$
NEXT i%
DELETE 9
Police$ = "Arial": Gosub Afpol
End

Debut:
Police$= LTRIM$(MID$(Item_Index$(1),2,100))
Afpol:
Font_Name 0, Police$
Font_Size 0, 14
Print_Target_is 0
Display
Rem affichage des 256 caractères de la police
For j% = 0 To 255 Step 16
y% = ylp + ev*j%/16
For i% = j% to j% + 15
x% = xlp + eh * (i%-j%)
Print_Locate x%, y%: Print Chr$(i%)
Next i%
Next j%
Font_Name 4, Police$: Font_Size 4, 18: Print_Target_Is 4
Clear 4: Print_Locate 5, 5: Print tx$
Clear 5: Print_Target_Is 5: Print " " + Police$
Return

ce serait bien étonnant de ne pas y trouver ce qu'on cherche.

@ Klaus @ JL35

Ok les amis. Je vais essayer vos astuces ce soir et je vous en verrais la réponse. C'est un grand aide pour un petit amateur débutant comme moi. Rolling Eyes

A+

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

J'ai un peu modifié mon petit programme: dans la liste, les polices à pas fixe sont maintenant précédées de la lettre 'F', ça peut toujours servir.
Pour ce que tu cherches, tu trouveras sûrement ton bonheur dans la police Symbol.

@JL35
Bien sûr, les caractères on les trouve dans la police "Symbol ou UniversalMath1 BT" par exemple, mais seulement PANORAMIC EDITOR ne les accepte pas et les remplace par un " ? " dans l’éditeur lui même.
Bon comme je vous l'avais dit, c'est un petit caprice qu'on peut pour le moment se passer.
Merci tout de même
A+

Je m'explique : quand on fait copier - coller le symbol dans l’éditeur, il ne l'accepte pas, mais avec vos code je crois que je vais me débrouiller.
Merci
A+

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Ah oui, c'est bête.
Si tu fabriques de strings dans l'éditeur, tu n'as plus qu'à remplacer ces caractères par leur valeur ascii (sous la forme chr$(xxx) ), mais bon, ce n'est pas très parlant, et ça ne résout peut-être pas ton problème, ça dépend de ce que tu veux en faire.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

On s'est croisés, en tout cas bonne chance topmozika !

Oui, c'est la bonne solution: utilise chr$(n) avec n étant la valeur ASCII du caractère, et choisis ta police? 9a marchera comme ça.

Pour faciliter la relecture, le top, je trouve est de définir une variable en début de programme et de l'utiliser dans la fonction chr$(nom)
Exemple bidon:

dim phi: phi=33
print chr$(phi)

On voit en relisant que tu as voulu imprimer le caractère phi, je trouve ça plus simple a relire, surtout sur les programmes des autres, comme beaucoup, je ne le fais pas souvent ...

Salut JL35

Un petit programme bien utile.
Merci

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

merci papydall, j'ai un peu squatté topmozika, mais enfin c'était en rapport avec le sujet Very Happy

@JL35
Merci tu m'as bcp aidé. Avec ce petit code de débutant, en changeant Police$ et i%, j'obtiendrais tous ce que je veux.

Code:: dim i%,Police$
i%=99 : Police$="Symbol"
container 1 : width 1,100 : height 1,100
alpha 2 : width 2,60 : height 2,30 : parent 2,1 : top 2,20 : left 2, 40
Font_Name 2, Police$ : font_Size 2, 14

Rem affichage du caractère de la police

caption 2,Chr$(i%)

A+

Moi je ne joue pas avec la police.

» Symboles avec le clavier
» a propos des combo
» Insertion d'icônes rudimentaires (symboles) dans un objet
» Jeu des ptit chvaux
» ptit bug dans panoramic