Exemple d'utilisation d'un TRichEdit : (Micro traitement de textes)

Sur une Form (Form1) poser :

• Un Panel (Panel1) avec les propriétés :

  Align à alTop
  Caption à (vide)

• Un TRichEdit (RichEdit1) avec la propriété : Align à alClient
• Une TFontDialog (FontDialog1).

• Un bouton (Button1) avec la propriété : Caption => "Police"
• Deux CheckBox :

  CheckBox1 avec la propriété : Caption à "Gras"
  CheckBox2 avec la propriété : Caption à "Italique"

• Une ComboBox (ComboBox1) avec sa propriété Items remplie avec une série de valeurs de tailles de Fontes (valeurs numériques entières).

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    FontDialog1->Font->Assign(RichEdit1->SelAttributes);

     if (FontDialog1->Execute())
       {
         RichEdit1->SelAttributes->Assign(FontDialog1->Font);
       }
     RichEdit1SelectionChange(NULL); //voir plus loin dans ce document.
     RichEdit1->SetFocus();
}

Sur l'événement OnClick de CheckBox1 : Mise de la fonte en Gras ou non selon que la case est cochée ou pas. Puis redonner le focus au RichEdit.

void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
     if(CheckBox1->Checked)
          RichEdit1->SelAttributes->Style =
                       RichEdit1->SelAttributes->Style << fsBold;
     else
          RichEdit1->SelAttributes->Style =
                       RichEdit1->SelAttributes->Style >> fsBold;
     RichEdit1->SetFocus();
}

Sur l'événement OnClick de CheckBox2 : Mise de la fonte en Italique ou non selon que la case est cochée ou pas. Puis redonner le focus au RichEdit.

void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
     if(CheckBox2->Checked)
          RichEdit1->SelAttributes->Style =
                       RichEdit1->SelAttributes->Style << fsItalic;
     else
          RichEdit1->SelAttributes->Style =
                       RichEdit1->SelAttributes->Style >> fsItalic;
     RichEdit1->SetFocus();
}

Sur l'événement OnChange de ComboBox1 : Attribution de la nouvelle taille de fonte.
Sur l'événement OnClick de ComboBox1 : Redonner le focus au RichEdit.
Et sur l'événement OnKeyPress de ComboBox1 : Redonner le focus au RichEdit si touche "Entrée" enfoncée et interdire les caractères non numériques.

void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
    RichEdit1->SelAttributes->Size = StrToInt(ComboBox1->Text);
}

void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
    RichEdit1->SetFocus();
}

void __fastcall TForm1::ComboBox1KeyPress(TObject *Sender, char &Key)
{
     if (Key == 13) RichEdit1->SetFocus();
     if ((Key < '0' || Key >'9') && Key != 8) Key = NULL;
}

Et sur l'événement OnSelectionChange de RichEdit1 donner aux contrôles permettant de modifier les propriétés du texte la valeur correspondant à la propriété du texte de la position en cours du curseur (caret).

void __fastcall TForm1::RichEdit1SelectionChange(TObject *Sender)
{
     if(RichEdit1->SelAttributes->Style.Contains(fsBold))
                CheckBox1->Checked = true;
     else
                CheckBox1->Checked = false;

     if(RichEdit1->SelAttributes->Style.Contains(fsItalic))
                CheckBox2->Checked = true;
     else
                CheckBox2->Checked = false;

     ComboBox1->Text = RichEdit1->SelAttributes->Size;

}

Voir aide C++ Builder sur les formats de texte rubrique TTextAttributes.
Pour utiliser la touche de tabulation sur le RichEdit il faut mettre sa propriété WantTabs à true.

J'ai volontairement utilisé des contrôles simples pour ne pas surcharger l'exemple et ce concentrer sur le composant TRichEdit.

Sauvegarde et Impression avec un RichEdit

Pour imprimer le contenu d'un RichEdit il faut utiliser la méthode Print avec en paramètre une AnsiString contenant le titre de l'impression.

   RichEdit1->Print("Titre du document");

La sauvegarde et le chargement de fichiers sont tout aussi simple.
Laisser la Propriété PlainText du RichEdit à false pour garder le format du texte lors de la sauvegarde ou du chargement du fichier.

   RichEdit1->Lines->SaveToFile("Fichier.rtf"); //Sauvegarge.

   RichEdit1->Lines->LoadFromFile("Fichier.rtf"); //Chargement

Formats de paragraphes

Alignements de paragraphes : Le paragraphe qui contient le curseur (Caret) sera aligné à droite à gauche ou centré en fonction de la ligne de code suivante qui sera exécutée.

     //Alignement à gauche
     RichEdit1->Paragraph->Alignment = taLeftJustify ;
     
     //Alignement au centre
     RichEdit1->Paragraph->Alignment = taCenter;
     
     //Alignement à droite
     RichEdit1->Paragraph->Alignment = taRightJustify;

Voir aide C++ Builder rubrique TParaAttributes pour les autres possibilités de format de paragraphe. (retrait 1^ère ligne, retrait à gauche, retrait à droite, les bulets, et les tabulations)

Insertion de texte formaté

Nous allons insérer du texte formaté à la position du curseur (Caret). Dans cet exemple nous changerons sa couleur.

   RichEdit1->SelAttributes->Color = clRed;
   RichEdit1->SelText = " Rouge";
   RichEdit1->SelAttributes->Color = clGreen;
   RichEdit1->SelText = " Vert";
   RichEdit1->SelAttributes->Color = clBlue;
   RichEdit1->SelText = " Bleu";
   RichEdit1->SelText = "\r\n"; //Ligne suivante

La position du curseur peut être modifiée avec la propriété SelStart du RichEdit.

Dans ce document je vous ai parlé des principales propriétés d'un RichEdit. Pour plus de détail voir aide C++ Builder. Mais vous avez déjà matière à vous entraîner à sa manipulation.

RichEditement votre!

CGi