QRRichText y negrita

[Angel.Matilla]

Estaba tratando de adaptar el código del hilo Cómo poner QRRichText en negrita para una aplicación en C++ Builder 6. Lo he dejado así:
Función

void Negrita(TRichEdit *Rich, AnsiString Texto)
{
     int nPos = Rich->FindText(Texto, 0, 1000, TSearchTypes() << stMatchCase);

     Rich->SelStart  = nPos;
     Rich->SelLength = Texto.Length();
     Rich->SelAttributes->Style << fsBold;
}
//---------------------------------------------------------------------------

Y para usarlo pongo esto:

Negrita(fCarSoc->RichText->ParentRichEdit, Label10->Caption);

Se compila sin problema, pero al ejecutarlo me da un mensaje de error:


He comprobado con el depurador que ParentRichEdit aparece como NULL. ¿Qué estoy haciendo mal?

[ecfisa]

Hola Angel.

void StyledText(TRichEdit *RE, AnsiString Searched, TFontStyle FS)
{
  RE->SelStart = RE->FindText(Searched,0,RE->GetTextLen(), 
    TSearchTypes() << stMatchCase);
  RE->SelLength = Searched.Length();
  RE->SelAttributes->Style = RE->SelAttributes->Style << FS;
}

Ejemplo de uso:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  RichEdit1->Text = "negrita, italica, subrayada, tachada";
  StyledText(RichEdit1, "negrita", fsBold);
  StyledText(RichEdit1, "italica", fsItalic);
  StyledText(RichEdit1, "subrayada", fsUnderline);
  StyledText(RichEdit1, "tachada", fsStrikeOut);
  QRRichText1->ParentRichEdit = RichEdit1;
  QuickRep1->Preview();
}

Saludos

[Angel.Matilla]

Perfecto ecfisa. Muchas gracias. Sólo hay un pequeño problema fácil de resolver con los finales de línea. Eres un hacha.

[Angel.Matilla]

Como he dicho antes ha quedado perfecto. Pongo aquí como me ha quedado el código:

TRichEdit *Rich = new TRichEdit(this);
Rich->Parent    = this;
Rich->Visible   = false;

Rich->Lines->Clear();
Rich->Lines->Add(<El texto que se desee>);

Estilo(Rich, Buscado, <Estilo>);
Form1->QRRichText->ParentRichEdit = Rich;
Form1->QuickRep1->Preview();

<Estilo> es, evidentemente, fsBold, fsUnderline, etc.