[BCB6]RichEdit et quelques couleurs

Version imprimable

12/06/2008, 17h01
Draner

[BCB6]RichEdit et quelques couleurs

Bonjour tout le monde.
J'ai fais un petit test, suite aux posts que j'ai pu lire au sujet des RichEdit, et je me suis rendu compte que j'avais du mal avec ce composant...

J'aimerais faire quelque chose qui ressemble à ceci au niveau des couleurs et du style:

Citation:

Dès sélectionné 4 pour l'action: Ouvrir une porte - Résultat du jet: 1

4 se trouve dans la variable "ComboBoxDes->Text".
Ouvrir une porte dans la variable "EditAction->Text".
1 qui est le résultat aléatoire se trouve dans la variable "IntToStr(ValAlea))".

Comment puis je réaliser ceci s'il vous plait ?
Je vous remercie pour vos indications.
Cordialement.
12/06/2008, 17h15
pottiez

Salut,
regarde dans cette section de la FAQ, tu y trouvera tout ce que tu cherche sur les TRichEdit
12/06/2008, 17h24
Draner

J'y suis allé mais hélas j'ai beaucoup de mal a trouver ce qu'il me faut exactement extraire comme code pour effectuer ce que j'ai expliqué plus haut...

Je sait que ma réponse va relevé du bon vieux noob... Mais quand je comprend pas c'est qu'un mystère s'installe et qu'il est temps de combler celui ci par des explications.
Cordialement.
12/06/2008, 17h37
pottiez

Il faut que tu adapte le code de cette Q/R pour que ça ne fasse pas ligne par ligne mais par groupe de caractère
12/06/2008, 18h05
Draner

Mais justement je ne comprend pas comment ça fonctionne!

Code:

1 2 3 4 5 6 for (int i = 0 ; i < RichEdit1->Lines->Count ; i++) { RichEdit1->SelStart = RichEdit1->Perform(EM_LINEINDEX, i, 0); RichEdit1->SelLength = RichEdit1->Lines->Strings[i].Length(); RichEdit1->SelAttributes->Color = 0x00F56B00 + 10 * i; }
Dans le code ci-dessus le SelStart est mis en début de ligne et le SelLength au nombre de caractère contenu dans la ligne (deux première ligne de code dans la boucle for), il faut que tu change cela, pour avoir le SelStart à la position du caractère ou débute ta couleur, et le SelLength au nombre de caractère à mettre en couleur, et cela pour chaque couleur, en modifiant le code couleur à la troisième ligne

Effectivement expliqué ainsi je comprend beaucoup mieux :king:
En m'appuyant su l'exemple, je suis arrivé à un bout de code comme celui-ci.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 //Affiche dans RichEditLog le résultat du jet de dès obtenu. RichEditLog->Lines->Add("Dès sélectionné " + ComboBoxDes->Text + " pour action: " + EditAction->Text + " - Résultat: " + IntToStr(ValAlea)); //Sélectionne la première lettre. RichEditLog->SelStart = 16; //Sélectionne la longueur de texte du ComboBoxDes. RichEditLog->SelLength = ComboBoxDes->Text.Length(); //Attribue la couleur au contenu du ComboBoxDes. RichEditLog->SelAttributes->Color = clRed; //Met le curseur à la fin de la ligne. RichEditLog->SelStart = RichEditLog->Text.Length();
Seulement un coup sur deux ça fonctionne et si la sélection change, par exemple pour 1 ça marchera et pour 100 non!
Donc pas de stabilité au final... Çà je m'interpelle un peu!
Comment diable cela ce peux il que d'une ligne sur l'autre le résultat ne pas être identique ?

Existe t il une solution qui fonctionne ligne après ligne ?
Sinon tes explications vont m' être sacrément utile pour la suite en effet!
Cordialement.

Salut,
se code devrait fonctionner, en fait, a partir du moment ou tu calcule bien ou doivent se trouver les caractères à mettre en couleur, après tout est bon.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
        //Affiche dans RichEditLog le résultat du jet de dès obtenu.
        RichEditLog->Lines->Add("Dès sélectionné " + ComboBoxDes->Text + " pour action: " + EditAction->Text + " - Résultat: " + IntToStr(ValAlea));
 
        //Récupère la position du début du texte à colorer pour la ligne qui vient d'être ajouté
        int posStartSelct = RichEditLog->Perform(EM_LINEINDEX, (RichEditLog->Lines->Count - 1), 16);
 
        //Sélectionne la première lettre.
        RichEditLog->SelStart = posStartSelct;
 
        //Sélectionne la longueur de texte du ComboBoxDes.
        RichEditLog->SelLength = ComboBoxDes->Text.Length();
 
        //Attribue la couleur au contenu du ComboBoxDes.
        RichEditLog->SelAttributes->Color = clRed;
 
        //Récupère la position du début du deuxième texte à colorer pour la ligne qui vient d'être ajouté
         posStartSelct = posStartSelct + ComboBoxDes->Text.Length() + 14;
 
        //Sélectionne la première lettre.
         RichEditLog->SelStart = posStartSelct;
 
         //Sélectionne la longueur de texte du ComboBoxDes.
         RichEditLog->SelLength = EditAction->Text.Length();
 
         //Attribue la couleur au contenu du ComboBoxDes.
         RichEditLog->SelAttributes->Color = clGreen;
 
         //Récupère la position du début du troisième texte à colorer pour la ligne qui vient d'être ajouté
         posStartSelct = posStartSelct + EditAction->Text.Length() + 13;
 
        //Sélectionne la première lettre.
         RichEditLog->SelStart = posStartSelct;
 
         //Sélectionne la longueur de texte du ComboBoxDes.
         RichEditLog->SelLength = IntToStr(ValAlea).Length();
 
         //Attribue la couleur au contenu du ComboBoxDes.
         RichEditLog->SelAttributes->Color = clBlue;
 
         //Met le curseur à la fin de la ligne.
        RichEditLog->SelStart = RichEditLog->Text.Length();

12/06/2008, 23h49
Draner

Je verrais ça demain soir si j'en ai l'occasion sinon la semaine prochaine. Je laisse le tread ouvert au cas ou d'autre possibilités sont à explorer.
Cordialement.

J'ai regardé et en fait ca alourdit le code pour pas grand chose!
Juste une présentation qui au final n'apporte rien de plus à mon programme.
Donc requête abandonné mais je garde sous le coude le bout de code pour une autre utilisation. :king:

Merci beaucoup pour ces indications.
Cordialement.