delphi RichEdit文字背景色的处理

本文整理自网络，侵删。

 
uses RichEdit;

procedure RichEditSetBackColor( // 设置RichEdit文字背景色   mRichEdit: TRichEdit; // Rich编辑框   mBackColor: TColor // 背景色 ); 

var   vCharFormat2: TCharFormat2;
 begin  
 if not Assigned(mRichEdit) then Exit;  
 FillChar(vCharFormat2, SizeOf(vCharFormat2), 0);   vCharFormat2.cbSize := SizeOf(vCharFormat2);   vCharFormat2.dwMask := CFM_BACKCOLOR;   vCharFormat2.crBackColor := mBackColor;   mRichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@vCharFormat2)); 
end; { RichEditSetBackColor }

function RichEditGetBackColor( // 获得RichEdit文字背景色   mRichEdit: TRichEdit // Rich编辑框 ): TColor;
 var   vCharFormat2: TCharFormat2; 
begin  
 Result := clNone;  
 if not Assigned(mRichEdit) then Exit;  
 FillChar(vCharFormat2, SizeOf(vCharFormat2), 0);   vCharFormat2.cbSize := SizeOf(vCharFormat2);   vCharFormat2.dwMask := CFM_BACKCOLOR;   mRichEdit.Perform(EM_GETCHARFORMAT, SCF_SELECTION, Longint(@vCharFormat2));  
 Result := vCharFormat2.crBackColor;
 end; { RichEditGetBackColor }

来源：http://www.cnblogs.com/key-ok/p/3359689.html
 

相关阅读 >>

Delphi加载图像存储到数据库中

Delphi里面判断一个字符串在另一个字符串中出现的次数

Delphi xe5如何像手机qq一样最小化后显示图标

Delphi 创建一个进程并读取其控制台输出内容

Delphi xe7 android通过配置实现splash功能

Delphi 用Delphi提升进程权限为debug权限

重新组织编写Delphi的md2、md4、md5类

Delphi xe10 android 界面设计-个人心得

Delphi 根据快捷方式路径取源文件地址

Delphi重写一个字符串分割函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi RichEdit文字背景色的处理