Часть строки или весь String сделать жирным шрифтом

@Digetix · Регистрация: 09.04.2012

Есть строка вида

Delphi

1 2	TextAkt := 'ЧП Иванов, именуемая в дальнейшем «Продавец» и '+Edit5.Text; TfrxMemoView(frxReport1.FindComponent('Memo5')).Memo[0] := TextAkt;

Мне нужно ЧП Иванов и текст взятый в Edit5.Text попали с жирным шрифтом в отчет frxReport1, это возможно?

@krapotkin · 18.04.2016, 06:33

мемо - компонент с единым оформлением
вам нужен либо RichText, либо выделить Иванов в отдельный компонент, с другим оформлением

@Digetix · 18.04.2016, 13:39 **[ТС]**

А в RichEdit можно отдельные слова делать жирными?
Суть в том, что у меня есть несколько Edit'ов, я беру из них данные, в коде добавляю свой текст, получается целая строка, вот в готовой строке и нужно некоторые слова выделить жирным.

@BOGG ART · 18.04.2016, 13:56

TRichEdit это RTF. WordPad знаете? В любой Windows есть.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Clear;
RichEdit1.SelAttributes.Style:=[];
RichEdit1.SelText:='ЧП Иванов, именуемая в дальнейшем «Продавец» и ';
RichEdit1.SelLength:=0;
RichEdit1.SelAttributes.Style:=[fsBold];
RichEdit1.SelText:=Edit5.Text;
RichEdit1.SelLength:=0;
RichEdit1.SelAttributes.Style:=[];
RichEdit1.SelText:=' OLOLO';
end;

Добавлено через 2 минуты
А просто "в строке" выделять нельзя, там только символы.
Но по-хорошему надо почитать справку FastReport. Может там иначе надо вообще.

@Alexandr_7 · 18.04.2016, 14:42

Сообщение от Digetix

А в RichEdit можно отдельные слова делать жирными?
Суть в том, что у меня есть несколько Edit'ов, я беру из них данные, в коде добавляю свой текст, получается целая строка, вот в готовой строке и нужно некоторые слова выделить жирным.

RichEdit это RTF
Да там можно каждый символ своим цветом сделать. Для этого перед каждым выводом символа в SelAttributes меняем стиль.
Если у вас уже готовая строка и в ней нужно определенный текст делать определенным цветом тот тут функции Pos Copy
Pos(искомая фраза, текст где искать) возвращает 1 и более если искомая фраза найдена. 0 и менее если не найдена
Copy(текст где искать, позиция начало копирования, Длинна копируемой фразы)
Учтите что RichEdit не умеет сохронять в текстовом виде. Он сохраняет только в RTF формате

@Digetix · 18.04.2016, 15:12 **[ТС]**

Мне вообще по идее формат RTF не нужен. У меня задача к существующему тексту добавить текст из Edit и передать его в Memo в FastReport, при этом чтоб часть этой переданной строки была жирным шрифтом.
Вариант делать разными компонентами не совсем подходит, так как ФИО у всех разное, разная длина и будут лишние пустые места в тексте.

@Alexandr_7 · 18.04.2016, 15:15

Memo Нельзя определенную фразу делать жирным а остальное нет. Там весь текст одинаковым стилем всегда.
RichEdit только
Если вам надо сохранить текст из RichEdit в отдельную переменную то используете для этого отдельный тип TStringList так как RichEdit сохраняет в формате RTF

Delphi

RichEdit1.SelAttributes.Style:=[fsBold];
RichEdit1.SelText:='Имя:';
RichEdit1.SelAttributes.Style:=[];
RichEdit1.SelText:=' Имя';

Получим:
Имя: Имя

@BOGG ART · 18.04.2016, 19:06

Не по теме:

И зачем повторять всё то же самое за мною..?

Сообщение от BOGG ART

TRichEdit это RTF.

Сообщение от Alexandr_7

RichEdit это RTF

Сообщение от BOGG ART

RichEdit1.SelAttributes.Style:=[];

Сообщение от Alexandr_7

RichEdit1.SelAttributes.Style:=[];

Ладно бы одновременно написали, а тут разница в час, даже больше.

Тогда вам надо ковырять сам FastReport. И выделение делать только через него, а передавать просто строку, возможно частями.

@Digetix · 21.04.2016, 20:53 **[ТС]**

Всё оказалось намного проще. В FastReport в свойствах Memo поставить AllowHTMLTags в положение True, а коде Delphi передать туда данные с тегами <b>жирный текст</b>

@krapotkin 4846 / 3825 / 1275 Регистрация: 14.04.2014 Сообщений: 17,678 Записей в блоге: 18
	18.04.2016, 06:33	2
	мемо - компонент с единым оформлением вам нужен либо RichText, либо выделить Иванов в отдельный компонент, с другим оформлением 0

@Digetix 105 / 105 / 1 Регистрация: 09.04.2012 Сообщений: 655
	18.04.2016, 13:39 [ТС]	3
	А в RichEdit можно отдельные слова делать жирными? Суть в том, что у меня есть несколько Edit'ов, я беру из них данные, в коде добавляю свой текст, получается целая строка, вот в готовой строке и нужно некоторые слова выделить жирным. 0

@Alexandr_7 44 / 18 / 5 Регистрация: 29.12.2015 Сообщений: 1,713
	18.04.2016, 14:42	5
	Сообщение от Digetix А в RichEdit можно отдельные слова делать жирными? Суть в том, что у меня есть несколько Edit'ов, я беру из них данные, в коде добавляю свой текст, получается целая строка, вот в готовой строке и нужно некоторые слова выделить жирным. RichEdit это RTF Да там можно каждый символ своим цветом сделать. Для этого перед каждым выводом символа в SelAttributes меняем стиль. Если у вас уже готовая строка и в ней нужно определенный текст делать определенным цветом тот тут функции Pos Copy Pos(искомая фраза, текст где искать) возвращает 1 и более если искомая фраза найдена. 0 и менее если не найдена Copy(текст где искать, позиция начало копирования, Длинна копируемой фразы) Учтите что RichEdit не умеет сохронять в текстовом виде. Он сохраняет только в RTF формате 0

@Digetix 105 / 105 / 1 Регистрация: 09.04.2012 Сообщений: 655
	18.04.2016, 15:12 [ТС]	6
	Мне вообще по идее формат RTF не нужен. У меня задача к существующему тексту добавить текст из Edit и передать его в Memo в FastReport, при этом чтоб часть этой переданной строки была жирным шрифтом. Вариант делать разными компонентами не совсем подходит, так как ФИО у всех разное, разная длина и будут лишние пустые места в тексте. 0

@BOGG ART 586 / 453 / 147 Регистрация: 09.12.2013 Сообщений: 2,386 Записей в блоге: 2
	18.04.2016, 19:06	8
	Сообщение было отмечено Digetix как решение Решение Не по теме: И зачем повторять всё то же самое за мною..? Сообщение от BOGG ART TRichEdit это RTF. Сообщение от Alexandr_7 RichEdit это RTF Сообщение от BOGG ART RichEdit1.SelAttributes.Style:=[]; Сообщение от Alexandr_7 RichEdit1.SelAttributes.Style:=[]; Ладно бы одновременно написали, а тут разница в час, даже больше. Тогда вам надо ковырять сам FastReport. И выделение делать только через него, а передавать просто строку, возможно частями. 0

@Digetix 105 / 105 / 1 Регистрация: 09.04.2012 Сообщений: 655
	21.04.2016, 20:53 [ТС]	9
	Всё оказалось намного проще. В FastReport в свойствах Memo поставить AllowHTMLTags в положение True, а коде Delphi передать туда данные с тегами <b>жирный текст</b> 0

Опции темы

Часть строки или весь String сделать жирным шрифтом

Решение