Flèche dans memo [Résolu]

YB28 39 Messages postés lundi 23 avril 2012Date d'inscription 29 juillet 2012 Dernière intervention - 16 mai 2012 à 09:27 - Dernière réponse : YB28 39 Messages postés lundi 23 avril 2012Date d'inscription 29 juillet 2012 Dernière intervention
- 23 mai 2012 à 16:26
Bonjour,
Je cherche à mettre une flèche dans un mémo parmis du text.
J'utilise l'écriture 'Lucida Console' mais dans cette écriture il n'y a pas de flèche (vers la droite). Mais quand j'utilise l'écriture 'Terminal' il y a bien une flèche dont le code est #$1A . Cependant lorsque dans mon texte il y a 'é' il me le remplace par un 'U' avec un accent.

Comment faire pour mettre deux types de texte dans le même memo ou juste ajouter une flèche dans le type 'Lucida Console'?

Merci, n'hésitez pas pour plus de renseignements. ;)
Merci
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
YB28 39 Messages postés lundi 23 avril 2012Date d'inscription 29 juillet 2012 Dernière intervention - 23 mai 2012 à 16:26
3
Merci
Résolu. Ce référer ici : [URL]http://www.delphifr.com/forum/sujet-SUPERPOSER-DEUX-CARACTERES_1592736.aspx/URL

Merci YB28 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de YB28
cs_MAURICIO 2233 Messages postés mardi 10 décembre 2002Date d'inscription 15 décembre 2014 Dernière intervention - 16 mai 2012 à 12:49
Commenter la réponse de cs_MAURICIO
YB28 39 Messages postés lundi 23 avril 2012Date d'inscription 29 juillet 2012 Dernière intervention - 16 mai 2012 à 15:03
0
Merci
ok merci,
Du coup j'ai fait ceci:

        begin
          {place le curseur d'insertion}
          richedit1.SelStart := SendMessage(richedit1.Handle, EM_LINEINDEX, ligne, 0)+colonne;
          {insert le caractère de CaractereRecu[i] dans L à partir de l'emplacement du curseur}
          case ligne of
            0:begin

                if CaractereRecu[i]=#1 then
                begin
                  CaractereRecu[i]:=#$1A;
                  richedit1.SelAttributes.Name:='Terminal'
                end;

                delete(L0,richedit1.SelStart+1,1);
                insert(CaractereRecu[i],L0,richedit1.SelStart+1);
                richedit1.Lines[0]:=L0; //Affiche la ligne 0 du memo
              end;
            1:begin

                if CaractereRecu[i]=#1 then
                begin
                  CaractereRecu[i]:=#$1A;
                  richedit1.SelAttributes.Name:='Terminal'
                end;

                delete(L1,richedit1.SelStart-21,1);
                insert(CaractereRecu[i],L1,richedit1.SelStart-21);
                richedit1.Lines[1]:=L1; //Affiche la ligne 1 du memo
              end;
            2:begin

                if CaractereRecu[i]=#1 then
                begin
                  CaractereRecu[i]:=#$1A;
                  richedit1.SelAttributes.Name:='Terminal'
                end;

                delete(L2,richedit1.SelStart-43,1);
                insert(CaractereRecu[i],L2,richedit1.SelStart-43);
                richedit1.Lines[2]:=L2; //Affiche la ligne 2 du memo
              end;
            3:begin

                if CaractereRecu[i]=#1 then
                begin
                  CaractereRecu[i]:=#$1A;
                  richedit1.SelAttributes.Name:='Terminal'
                end;

                delete(L3,richedit1.SelStart-65,1);
                insert(CaractereRecu[i],L3,richedit1.SelStart-65);
                richedit1.Lines[3]:=L3; //Affiche la ligne 3 du memo
              end;
          end;
           inc(colonne);
          L0 := richedit1.Lines[0];
          L1 := richedit1.Lines[1];
          L2 := richedit1.Lines[2];
          L3 := richedit1.Lines[3];

        //  if CaractereRecu[i]=#$1A then
        //  begin
        //    richedit1.SelAttributes.Name:='Lucida Console';
        //  end;
        end;        


mais lorsque je fait " richedit1.SelAttributes.Name:='Terminal' "
tout les caractères ce mettent en Terminal et je voudrais qu'ils soient tous en Lucida console sauf le caractère #$1A en terminal.
Commenter la réponse de YB28

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.