TRichEdit

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).

Sur Panel1 poser :

• 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).

Sur l'événement OnClick de Button1 : appel de la boîte de dialogue de changement de fonte préalablement affecté avec la fonte de la position du curseur (caret). Puis changement de la fonte de la sélection ou de la position du caret. Puis redonner le focus au RichEdit.

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.

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 simples.

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

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.)

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étails, voir aide C++ Builder. Mais vous avez déjà matière à vous entraîner à sa manipulation.

RichEditement votre !

CGi