<< Click to display table of contents >> TRVEditHelper.SetTextStyleToEditor

Applies the TextStyle properties listed in ValidTextProperties to the current selection in the AEditor editor.

procedure SetTextStyleToEditor(
  AEditor: TCustomRichViewEdit);

Example 1: making text bold

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

Example 2: making text not bold

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

Example 2: applying red double underline

RVEditHelper1.TextStyle.Style := [fsUnderline];

RVEditHelper1.TextStyle.UnderlineColor := clRed;

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

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