删除RichEdit中的突出显示

Question

我正在使用以下代码突出显示RichEdit中的选定文本。

procedure TAFormatMain.BtHighLightTextClick(Sender: TObject);
const
  AColor = clYellow;
var
  Format: CHARFORMAT2;
begin
  FillChar(Format, SizeOf(Format), 0);
  with Format do
  begin
    cbSize := SizeOf(Format);
    dwMask := CFM_BACKCOLOR;
    crBackColor := AColor;
    RiEd.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
  end;
  RiEd.SelStart := RiEd.SelStart + RiEd.SelLength;
end;

谁能告诉我如何删除突出显示或“无颜色”（相当于Microsoft Word中的“无颜色”）的颜色值。 我在网上找不到有关此主题的任何相关信息。

Answer 1

休息背景颜色集：

Format.dwEffects := CFE_AUTOBACKCOLOR;
Format.dwMask := CFM_BACKCOLOR; 

另请参阅： CHARFORMAT2结构