Saisir un texte avec des couleurs

Version imprimable

21/05/2007, 16h13
l_seringa

Saisir un texte avec des couleurs

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.
21/05/2007, 17h17
FredericB

Salut,

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

TRichEdit permet de le faire.

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:

void __fastcall ColorerTexte(TRichEdit *leRichEdit);

Dans le .cpp :
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 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

22/05/2007, 15h40
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

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

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
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();
}

Salut,

Crayon y était presque ... ;)

C'est ceci :

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
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+

22/05/2007, 20h21
Crayon

Citation:

Envoyé par ero-sennin

Crayon y était presque ... ;)

Merci pour la correction :P 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é.