<< Нажмите, чтобы показать Содержание >> TRVEditHelper.SetTextStyleToEditor

Применяет значения свойств TextStyle, перечисленных в ValidTextProperties, к выделенному фрагменту в редакторе AEditor.

procedure SetTextStyleToEditor(
  AEditor: TCustomRichViewEdit);

Пример 1: сделать выделенный текст полужирным

RVEditHelper1.TextStyle.Style := [fsBold];
RVEditHelper1.ValidTextProperties := [rvfiBold];
RVEditHelper1.SetTextStyleToEditor(RichViewEdit1);

Пример 2: сделать выделенный текст не полужирным

RVEditHelper1.TextStyle.Style := [];
RVEditHelper1.ValidTextProperties := [rvfiBold];
RVEditHelper1.SetTextStyleToEditor(RichViewEdit1);

Пример 3: подчеркнуть выделенный текст двойной красной чертой:

RVEditHelper1.TextStyle.Style := [fsUnderline];

RVEditHelper1.TextStyle.UnderlineColor := clRed;

RVEditHelper1.TextStyle.UnderlineType := rvutDouble;
RVEditHelper1.ValidTextProperties := 

  [rvfiUnderline, rvfiUnderlineType, rvfiUnderlineColor];
RVEditHelper1.SetTextStyleToEditor(RichViewEdit1);