Discussion :

[l_seringa]

Salut tout le monde .je voudrais savoir si on pouvais avoir un composant ou on peut saisir des lignes mais avec des couleurs.
plus précisémment je voudrais affiché un texte normal mais avec quelques ligne qui n'ont pas la méme couleur que les autres.
j'ai utilisé un TMEMO mais c'est impossilble de faire chaque lignes avec une couleur.
et MERCI.

[FredericB]

Salut,

Regarde ici (http://www.tmssoftware.com/), il y a surement ce que tu cherches.

[Altau]

TRichEdit permet de le faire.

[ero-sennin]

Salut,

Tu peux aussi utiliser un RichEdit pour mettre des lignes en couleur ...

Pour ce faire, j'ai fait une procédure ColorerTexte qui met d'une couleur différente chaque ligne de ton RichEdit ...

Dans le .h :

Code :

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

void __fastcall ColorerTexte(TRichEdit *leRichEdit);

Dans le .cpp :

Code :

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

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
 
void __fastcall ColorerTexte(TRichEdit *leRichEdit)
{
int maCouleur,DebutSelection;
 
// On définit un tableau de couleur
int Coloration[3];
Coloration[0]=clBlue;
Coloration[1]=clRed;
Coloration[2]=clFuchsia;
 
// Initialisation des variables
DebutSelection=0;
maCouleur=0;
  // On va boucler pour i de 0 à nombre de ligne -1
  for (int i=0;i<=leRichEdit->Lines->Count-1;i++)
  {
    // On positionne le curseur
    leRichEdit->SelStart=DebutSelection;
    // On sélectionne la ligne
    leRichEdit->SelLength=leRichEdit->Lines->Strings[i].Length();
    // On définit la couleur du texte
    leRichEdit->SelAttributes->Color=Coloration[maCouleur];
    // On positionne le curseur à la ligne suivante
    DebutSelection=DebutSelection+leRichEdit->Lines->Strings[i].Length()+2;
    // Si on a fait toutes les couleurs alors on reprend la première couleur
    // sinon on prend la couleur suivante
    if (maCouleur>=2)
    {
      maCouleur=0;
    }
    else
    {
      maCouleur++;
    }
  }
  leRichEdit->SelStart=leRichEdit->Text.Length();
}

Exemple d'utilisation :

Tu crées un RichEdit, tu renseignes les champs, et ensuite, tu utilises ma procédure.

Petite info, mais la procédure ColorerTexte dans le OnExit de ton RichEdit, ça aura pour but de colorer tout d'un coup ...

Tu peux le faire dans le OnChange, mais ça scintille un peu et ça fonctionne pas très bien lors d'un retour chariot non souhaité ( retour chariot automatique lorsque la longueur de la ligne est supérieure à la longueur du composant ...)

A améliorer sans doute, mais c'est une piste

J'espère que ça te conviendras

[l_seringa]

Merci ero-sennin.votre programme marche tres bien.juste une autre petite question.
est-ce possible avec RichEdit de rendre une ligne en "GRAS" si c'est possible alors s'il vous plait quoi utilisé comme fonction.
merci

[Crayon]

Je n'ai pas essayer, mais d'après moi ce serais comme ceci:

Code :

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

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
void __fastcall ColorerTexte(TRichEdit *leRichEdit)
{
int maCouleur,DebutSelection;
 
// On définit un tableau de couleur
int Coloration[3];
Coloration[0]=clBlue;
Coloration[1]=clRed;
Coloration[2]=clFuchsia;
 
// Initialisation des variables
DebutSelection=0;
maCouleur=0;
  // On va boucler pour i de 0 à nombre de ligne -1
  for (int i=0;i<=leRichEdit->Lines->Count-1;i++)
  {
    // On positionne le curseur
    leRichEdit->SelStart=DebutSelection;
    // On sélectionne la ligne
    leRichEdit->SelLength=leRichEdit->Lines->Strings[i].Length();
    // On définit la couleur du texte
    leRichEdit->SelAttributes->Color=Coloration[maCouleur];
    leRichEdit->SelAttributes->Font->Style << fsBold;
    // On positionne le curseur à la ligne suivante
    DebutSelection=DebutSelection+leRichEdit->Lines->Strings[i].Length()+2;
    // Si on a fait toutes les couleurs alors on reprend la première couleur
    // sinon on prend la couleur suivante
    if (maCouleur>=2)
    {
      maCouleur=0;
    }
    else
    {
      maCouleur++;
    }
  }
  leRichEdit->SelStart=leRichEdit->Text.Length();
}

[ero-sennin]

Salut,

Crayon y était presque ...

C'est ceci :

Code :

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

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
void __fastcall ColorerTexte(TRichEdit *leRichEdit)
{
int maCouleur,DebutSelection;
 
// On définit un tableau de couleur
int Coloration[3];
Coloration[0]=clBlue;
Coloration[1]=clRed;
Coloration[2]=clFuchsia;
 
// Initialisation des variables
DebutSelection=0;
maCouleur=0;
  // On va boucler pour i de 0 à nombre de ligne -1
  for (int i=0;i<=leRichEdit->Lines->Count-1;i++)
  {
    // On positionne le curseur
    leRichEdit->SelStart=DebutSelection;
    // On sélectionne la ligne
    leRichEdit->SelLength=leRichEdit->Lines->Strings[i].Length();
    // On définit la couleur du texte
    leRichEdit->SelAttributes->Color=Coloration[maCouleur];
    // On met en gras la sélection
    leRichEdit->SelAttributes->Style= TFontStyles()<< fsBold;
    // On positionne le curseur à la ligne suivante
    DebutSelection=DebutSelection+leRichEdit->Lines->Strings[i].Length()+2;
    // Si on a fait toutes les couleurs alors on reprend la première couleur
    // sinon on prend la couleur suivante
    if (maCouleur>=2)
    {
      maCouleur=0;
    }
    else
    {
      maCouleur++;
    }
  }
  leRichEdit->SelStart=leRichEdit->Text.Length();
}

Voilà

A+

[Crayon]

Crayon y était presque ...

Merci pour la correction Je suis au travail et ici je n'ai pas l'aide de BCB, j'ai donc pris un bout de code sur le forum que je pensais approprié.