Discussion :

[ac/dc]

Bonjour, je voudrais dans une RichEdit mettre le premier mot ("salut") de ma ligne en gras noir et le reste de ma ligne en couleur et pas en gras.

Code :

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

1
2
3
4
5
6
 
RichEdit1->DefAttributes->Style = RichEdit1->DefAttributes->Style << fsBold;
RichEdit1->Text = RichEdit1->Lines->Text + "salut";
 
RichEdit1->DefAttributes->Color = clRed;
RichEdit1->Text = RichEdit1->Lines->Text + "reste de ma ligne";

Le probleme est que tout est en rouge et en gras ?

[chamamo]

essaie ça

Code :

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

1
2
3
4
5
6
RichEdit1->DefAttributes->Color = clBlack;
RichEdit1->DefAttributes->Style = RichEdit1->DefAttributes->Style << fsBold;
RichEdit1->Text = RichEdit1->Lines->Text + "salut";
RichEdit1->DefAttributes->Style = RichEdit1->DefAttributes->Style >> fsBold;
RichEdit1->DefAttributes->Color = clRed;
RichEdit1->Text = RichEdit1->Lines->Text + "reste de ma ligne";

[ero-sennin]

Salut,

Je viens d'essayer ton code chamamo mais tout reste rouge chez moi ...

Il faut faire comme ceci (tiré de l'aide de C++ Builder) :

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
Cet exemple utilise un TRichEdit et un TButton. Laissez le texte par défaut, normalement "RichEdit1", dans la propriété Lines.  Les DefAttributes s'appliqueront à ce texte.

void __fastcall TForm1::FormCreate(TObject *Sender)

{
  RichEdit1->DefAttributes->Color = clBlue;
  RichEdit1->DefAttributes->Style =
  RichEdit1->DefAttributes->Style << fsBold << fsItalic;

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{
  RichEdit1->SelAttributes->Color = clRed;
  RichEdit1->SelAttributes->Height += 5;
  RichEdit1->Lines->Add("Cette ligne de texte sera en rouge. ");
}

Appliquer à ton code ca donne :

Code :

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

1
2
3
4
5
6
7
8
9
void __fastcall TForm1::FormCreate(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clBlack;
RichEdit1->SelAttributes->Style = RichEdit1->DefAttributes->Style << fsBold;
RichEdit1->Lines->Add("Salut");
 
RichEdit1->SelAttributes->Color = clRed;
RichEdit1->Lines->Add("reste de ma ligne.");
}

[chamamo]

tout a fait raison je n'ai pas fait attention

[ac/dc]

ah c'est super, merci !

[ac/dc]

j'ai encore une ptite question: a chaque

Code :

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

1
2
 
RichEdit1->Lines->Add(" ... ");

il fait un retour chariot, alors comment faire 2 fois ce bout de code sans qu'il passe à la ligne ?

[ero-sennin]

Re,

Avant toute chose, j'aimerai avoir quelques infos supplémentaires :
- Est ce que la première ligne de ton RichEdit sera toujours Bonjour?
- Quelle est la couleur par défaut que ton RichEdit doit prendre (je vois que le reste de ta ligne doit être en rouge ... )
- Que contiendra par la suite ton richEdit?

Merci

EDIT :

Je te post un code en espérant que cela t'aide

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
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    //Par defaut, ecrit en rouge
    RichEdit1->Font->Color = clRed;
    //Ecrit la phrase
    RichEdit1->Lines->Add("Salut la fin de la phrase");
    //Sélectionne la 1ère lettre (index 0)
    RichEdit1->SelStart=0;
    //Sélectionne 5 lettres de long
    RichEdit1->SelLength=5;
    //Met en noir et en gras la sélection
    RichEdit1->SelAttributes->Color=clBlack;
    RichEdit1->SelAttributes->Style =
    RichEdit1->SelAttributes->Style << fsBold;
    //Met le curseur à la fin du RichEdit
    RichEdit1->SelStart=RichEdit1->Text.Length();
}

[ac/dc]

En fait je dois avoir ceci dans mon RichEdit1:

Code :

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

1
2
3
4
Edit1->Text :  Edit2->Text  retour chariot
Edit1->Text :  Edit2->Text  retour chariot
...

et ainsi de suite car Edit1->Text et Edit2->Text change

[ero-sennin]

Dans ce cas, je te propose 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
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    //Par defaut, ecrit en rouge
    RichEdit1->Font->Color = clRed;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BtnAjouterClick(TObject *Sender)
{
  //Ecrit la phrase
  RichEdit1->Lines->Add(Edit1->Text+ ": " + Edit2->Text);
  //Sélectionne la 1ère lettre (index 0)
  RichEdit1->SelStart=0;
  //Sélectionne la longeur de texte correspondant au Edit1
  RichEdit1->SelLength=Edit1->Text.Length();
  //Met en noir et en gras la sélection
  RichEdit1->SelAttributes->Color=clBlack;
  RichEdit1->SelAttributes->Style =
  RichEdit1->SelAttributes->Style << fsBold;
  //Met le curseur à la fin du RichEdit
  RichEdit1->SelStart=RichEdit1->Text.Length();
}

[ac/dc]

le code fonctionne suelement pour la premiere ligne, pour la 2eme et les suivantes tout le texte est en rouge

[ac/dc]

ah non c'est bon si c'est la premiere fois que l'on affiche dans le RichEdit, alors:

Code :

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

1
2
 
RichEdit1->SelStart = 0;

sinon

Code :

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

1
2
 
RichEdit1->SelStart = RichEdit1->Text.Length() - (Edit1->Text.Length() + strlen(": ") + Edit2->Text.Length() + 2);

merci tout de meme !