Delphi中对TRichEdit控件的每一行设置不同的颜色
2014-01-13 15:59
274 查看
今天在做一个小程序,要求界面显示出不用的日志信息用不同的颜色进行显示,于是我就用了TRichEdit控件来实现:
代码如下:
procedure Tfrichedit.FormCreate(Sender: TObject);
begin
redt.Lines.Clear;
redt.Font.Size := 12; //设置字体大小
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数3设置失败!!!]');
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数2设置失败!!!]');
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数1设置失败!!!]');
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数设置失败!!!]');
redt.SelAttributes.Color:=clGreen; //颜色
redt.Lines.Add('[INFOR|报盘监控线程启动成功!!!]');
redt.Lines.Add('[DEBUG|报盘监控指标下载成功!!!]');
redt.Lines.Add('[DEBUG|报盘监控指标设置成功!!!]');
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数4设置失败!!!]');
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数5设置失败!!!]');
end;
运行结果如图所示:
那么大家可以根据自己的需要进行对不同的信息设置不同的颜色。
好了,今天的TRichEdit就讲到这里,大家有什么不懂的地方或者讲错了的地方都可以联系我,新浪邮箱:chao_song2011@sina.cn 。
代码如下:
procedure Tfrichedit.FormCreate(Sender: TObject);
begin
redt.Lines.Clear;
redt.Font.Size := 12; //设置字体大小
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数3设置失败!!!]');
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数2设置失败!!!]');
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数1设置失败!!!]');
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数设置失败!!!]');
redt.SelAttributes.Color:=clGreen; //颜色
redt.Lines.Add('[INFOR|报盘监控线程启动成功!!!]');
redt.Lines.Add('[DEBUG|报盘监控指标下载成功!!!]');
redt.Lines.Add('[DEBUG|报盘监控指标设置成功!!!]');
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数4设置失败!!!]');
redt.SelAttributes.Color := clRed;
redt.Lines.Add('[ERROR|报盘监控参数5设置失败!!!]');
end;
运行结果如图所示:
那么大家可以根据自己的需要进行对不同的信息设置不同的颜色。
好了,今天的TRichEdit就讲到这里,大家有什么不懂的地方或者讲错了的地方都可以联系我,新浪邮箱:chao_song2011@sina.cn 。
相关文章推荐
- 插件管理框架 for Delphi(一)
- delphi中一个值得大家来考虑的DLL问题
- delphi 正弦曲线图
- delphi建立、读取、存贮INI文件的方法《三》
- delphi建立、读取、存贮INI文件的方法《二》
- Delphi建立、读取、存贮INI文件的方法《一》
- 初探Delphi中的插件编程
- Delphi Command模式
- 插件管理框架 for Delphi(二)
- delphi中exit,abort,break,continue的区别介绍
- Delphi中对时间操作方法汇总
- Delphi中设置条件断点的方法讲解
- 人员物料的增、删、改、操作代码!
- 生产管理系统实例程序
- Delphi权限设置与报表统计打印
- Delphi中建议使用的语句
- Delphi 数据类型列表
- 用DBGrid控件配合数据集组件的Sort属性实现“点击标题栏自动排序功能”
- Delphi中FormatDateTime的用法
- DELPHI基础开发技巧