Discussion :

[Grosbenji]

Bonjour,

J'ai un petit problème avec un TRichEdit. J'utilise BCB 6.

Voici comment reproduire le problème:

* Créez un nouveau projet "Application"
* Dans la form, placez un TRichEdit
* Ajoutez les lignes suivantes dans le constructeur de la form proncipale:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  RichEdit1->SelAttributes->Style =
    RichEdit1->SelAttributes->Style << fsBold; //set bold style
  RichEdit1->Lines->Add("Test 1");
  RichEdit1->SelAttributes->Style =
    RichEdit1->SelAttributes->Style >> fsBold; //reset bold style
  RichEdit1->Lines->Add("Test 2");
}

* Executez l'application: => "Test 1" n'apparait pas en gras!
* Maintenant, créez un évenement OnShow pour la form principale.
* Déplacez dans cet évenement le code précedemment écrit dans le constructeur.
* Executez l'application: => "Test 1" apparait bel et bien en gras

Ma question:
Pourquoi ce code ne fonctionne pas comme souhaité dans le constructeur?
Et surtout, est-il possible de le faire fonctionner dans le constructeur?

D'avance merci pour vos idées

Benjamin

[Grosbenji]

Re, c'est encore moi,

Je viens de résoudre mon problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  RichEdit1->SelText = "";
  RichEdit1->SelAttributes->Style =
    RichEdit1->SelAttributes->Style << fsBold; //set bold style
  RichEdit1->Lines->Add("Test 1");
  RichEdit1->SelAttributes->Style =
    RichEdit1->SelAttributes->Style >> fsBold; //reset bold style
  RichEdit1->Lines->Add("Test 2");
}

Bizarre, bizarre, mais ça marche, c'est le principal

Benjamin