Discussion :

[Ardely]

Bonjour,

je cherche comment faire, d'ajouter le caractère 26 (flèche) du code ascii dans un Richedit
je le fais de cette façon.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 form1.richedit1.Lines.Add(chr(26));

dans l'éditeur il ne m'affiche pas la flèche, mais un petit carré, je voudrais bien savoir comment faire afficher cette petite flèche dans l'éditeur RichEdit.

Merci beaucoup de me guider.

[Clorish]

est tu sur du code de caractere ?!?
Car si mes souvenirs sont bon ... 26 est la code ascii de escape

[ShaiLeTroll]

A l'époque, les caractères 0 à 31 étaient appelé les caractères non imprimables (exception de la Tabulation 9)... ainsi nombre de ces caractères apparaissent sous la forme de carré, sauf le BackSpace 8 qui efface le précédent ...

[Clorish]

a mon avis il a du se baser sur le code ascii de la table de caractere windows lié a une font et non sur le code ascii de base

[ShaiLeTroll]

Comme les Webdings et autre, ... qui effectivement n'a aucun rapport avec la table standard ...

[Hauwke]

Bonjour,
Celà se serait pas plutôt le caractère "62"?
Pour fixer les esprits, en attachement, l'originale de 1967. on y retrouvera le caractère "26" : subsitute; le "27" : escape...
Cordialement,
Hauwke

[Ardely]

Dans le temps sous DOS on pouvait faire afficher different caractères...
Ce que je cherche c'est de faire afficher un genre de flèche dans un richedit, sa peu aussi être un triangle inverser qui symbolise une fleche!
Merci pour l'aide.

[DragonHeart]

Bonjour,

Est avec le caractére 175 qui correspond à ">>" Cela ne ferai pas l'affaire?
Puis avec "table ascii" comme mot clef ca passe bien

[Ardely]

Merci pour ta proposition mais le code 62 je ne peux pas l'utiliser, car ce code peut être utilisé dans un calcul ou pour d'autre example dans le text,
donc pour limiter les confusions je cherche un code ou l'utilisateur n'utilise presque jamais.

[Ardely]

A vrais dire l'idée est d'inserer ce genre de flèche pour un bouton!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   form1.richedit1.Lines.Insert(chr(??));
end;

[DragonHeart]

Et ce que je t'ai prosposer ne te convient pas?

[SergioMaster]

et changer la fonte ? comme d'autres la couleur voir posts

http://www.developpez.net/forums/sho...d.php?t=359431

[Clorish]

Bonjour,
Pour fixer les esprits, en attachement, l'originale de 1967. on y retrouvera le caractère "26" : subsitute; le "27" : escape...

Effectivement
J'etais pas tombe loin quand meme .. mais depuis que j'utilise le code VK_ESCAPE ca m'est sorti de la memoire ....

Haaaa qu'i lest loin le temps ou on dessinait des interfaces graphiques a l'aide de codes ascii sous TP3 (n'est ce pas P. T. )

[Clorish]

Merci pour ta proposition mais le code 62 je ne peux pas l'utiliser, car ce code peut être utilisé dans un calcul ou pour d'autre example dans le text,
donc pour limiter les confusions je cherche un code ou l'utilisateur n'utilise presque jamais.

C'est a dire ?!?
Comment tu peux utiliser ce code ?!?
Si tu as un evenement "keydonw" qui catch ce caractere il est possible de disocier la saisie du code du raccourci clavier ...

[Ardely]

L'utilisateur inserer ce genre de flèche.. par un bouton1!

[Hauwke]

Haaaa qu'i lest loin le temps ou on dessinait des interfaces graphiques a l'aide de codes ascii sous TP3 (n'est ce pas P. T. )

TP3, arf, c'était déjà le top! Je faisais référence à l'époque où les disquettes faisaient 11 pouces 3/4...

[Gilbert Geyer]

Afficher caractères "Flèches" proprement dans un RichEdit
On peut récupérer n'importe quelle flèche de la fonte 'Wingdings' :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 testé : marche.
procedure Form1.Button1Click(Sender: TObject);
var       ancienneFonte : tFontName;
begin     with richEdit1 do
          begin Lines.add(chr(223)); //[223..248]< toute la série de flèches de Wingdings
                SelStart:=richEdit1.SelStart-3; //< dont 2 pour CRLF final
                SelLength:=1;
                ancienneFonte:=SelAttributes.Name;
                SelAttributes.Name:='Wingdings';
                update;
                SelLength:=0;
                SelAttributes.Name:=ancienneFonte;
          end;
end;

[Ardely]

SUPER Gilbert Geyer, Super, je pense que c'est exactement ça ce qu'il faut faire, merci pour l'idée géniale, mon horizon s'élargit encore...
Est-ce que je peux distribuer librement la Font 'Wingdings' avec mon programme au cas si l'autre PC n'aurait pas cette Font.
Je viens d'avoir peut-être l'idée de faire moi-même la Font… exist-il des programmes libres (Freeware) où quel soft pourrez-vous me
proposer…, en espérant pas trop de me lancer dans des chemins trop compliqués.
Une très bonne journée a tous.

[Gilbert Geyer]

Est-ce que je peux distribuer librement la Font 'Wingdings' ...

... pourquoi "distribuer" puisqu'elle est distribuée traditionnellement avec Windows depuis des années. ???
... et si jamais un utilisateur de Windows n'en disposait plus il serait inutile de la lui "distribuer", puisqu'il lui suffirait de la récupérer sur le Windows d'un pote qui ne l'a pas supprimée.

...Je viens d'avoir peut-être l'idée de faire moi-même la Font

... ma foi si tu veux te compliquer la vie!!! Mais pourquoi pas, cela peut être un exercice instructif.

… exist-il des programmes libres (Freeware) où quel soft pourrez-vous me proposer…, en espérant pas trop de me lancer dans des chemins trop compliqués.

... essayes sous Google font maker builder t'y trouveras peut-être ton bonheur.