FastReport, Delphi и форматирование текста
Раздел: FastReport VCL
Доброго времени суток. Имеется компонент RichEdit в Delphi, которая передаётся через переменную на печать в FastReport. В компоненте RichEdit имеется около 10 слов помимо остального текста которые требуют при печати полужирное начертание (FsBold). Как возможно реализовать чтобы это было выполнено? Существует ли значение для условного выделения при нахождении слова в тексте, которое меняет только в этом слове начертание? Или как можно вписать при наличии этих слов HTML теги для их последующего выделения? Вписывать из Delphi на самом компоненте невозможно - программой пользуюсь не только я, да и нарушается стройность компонента
Комментарии
Здравствуйте!
С помощью какого компонента выводится на печать содержимое RichEdit? Если вы используете TfrxMemoView, то вы можете использовать HTML-теги, включив у TfrxMemoView свойство AllowHTMLTags
Про включения тега знаю. Проблема была в том, что надо было прописать эти теги из FastReport или Delphi на уровне кода. То есть пользователь их не должен был видеть. Но в целом - задача решена кодом
procedure TForm1.frxReport1GetValue(const VarName: string; var Value: Variant); const wrd: array [1..2] of String = ('ч/з инфузомат', 'в/в кап.'); var i: Integer; begin if AnsiCompareText(VarName, 'Pills')=0 then begin Value := RichEdit1.text; for i := Low(wrd) to High(wrd) do Value := StringReplace(Value, wrd[i], '<b>' + wrd[i] + '</b>', [rfReplaceAll, rfIgnoreCase]); end; end;