changer style font RichEdit

Version imprimable

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:

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 ?

essaie ça

Code:

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";

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:

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:

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.");
}

30/10/2006, 16h54
chamamo

tout a fait raison je n'ai pas fait attention
30/10/2006, 17h03
ac/dc

ah c'est super, merci !
30/10/2006, 18h24
ac/dc
j'ai encore une ptite question: a chaque
Code:

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 ?

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:

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

30/10/2006, 19h00
ac/dc
En fait je dois avoir ceci dans mon RichEdit1:
Code:

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

Dans ce cas, je te propose 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
__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();
}

30/10/2006, 19h35
ac/dc

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

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

1 2 RichEdit1->SelStart = 0;
sinon
Code:

1 2 RichEdit1->SelStart = RichEdit1->Text.Length() - (Edit1->Text.Length() + strlen(": ") + Edit2->Text.Length() + 2);
merci tout de meme !