Delphi实现Listbox中的item根据内容显示不同颜色的方法

更新时间：2014年07月17日 10:30:42 投稿：shichen2014

这篇文章主要介绍了Delphi实现Listbox中的item根据内容显示不同颜色的方法,需要的朋友可以参考下

本文简述了Delphi实现Listbox中的item根据内容显示不同颜色的方法，实现步骤如下：

ListBox1 的 Style 属性改为 lbOwnerDrawVariable

在ListBox的OnDrawItem事件裡，根据item的值，改变Canvas属性

示例代码如下：

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin    //字体用原来默认的颜色
 if Odd(index) then   //当items的index为奇数时的颜色
 begin
  listbox1.Canvas.Brush.Color:=clwindow;
  ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]);
 end
 else     //当items的index为偶数时的颜色
 begin
  listbox1.Canvas.Brush.Color:=clinactivecaptiontext;
  ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]);
 end;
 if  odSelected  in  state  then    //当选定时的颜色
 begin
  listbox1.Canvas.Brush.Color:=clhighlight;
  ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]);
 end;
end;

您可能感兴趣的文章:

Delphi创建开机启动项的方法示例
这篇文章主要介绍了Delphi创建开机启动项的方法,很有实用价值,需要的朋友可以参考下
2014-07-07
Delphi解析FTP地址的方法
这篇文章主要介绍了Delphi解析FTP地址的方法,涉及Delphi解析FTP的相关技巧,需要的朋友可以参考下
2015-05-05
Delphi实现获取进程列表及相关信息的实例
这篇文章主要介绍了Delphi实现获取进程列表及相关信息的实例,希望通过本文大家能实现这样的功能，需要的朋友可以参考下
2017-09-09
Delphi提取PDF文本实例
下面小编就为大家带来一篇Delphi提取PDF文本实例。小编觉得挺不错的，现在就分享给大家，也给大家做个参考。一起跟随小编过来看看吧
2017-06-06
Delphi实现毫秒级别的倒计时实例代码
这篇文章主要介绍了Delphi实现毫秒级别的倒计时实例代码,需要的朋友可以参考下
2014-07-07
Delphi中判断文件是否为文本文件的函数
在用Delphi 编程处理文本文件的时候，如果要装载的文件比较大，你可能会想在文件装载过程中提供一个装载进度的提示－－那么你就必需自己编写直接通过文件打开/读取函数来装载文件内容的函数。
2008-03-03
Delphi实现截屏存盘的方法
这篇文章主要介绍了Delphi实现截屏存盘的方法,涉及Delphi图片操作的相关技巧,需要的朋友可以参考下
2015-05-05
Delphi下OpenGL2d绘图之画点的方法
这篇文章主要介绍了Delphi下OpenGL2d绘图之画点的方法,需要的朋友可以参考下
2014-07-07
Delphi菜单组件TMainMenu使用方法详解
这篇文章主要为大家详细介绍了Delphi菜单组件TMainMenu的使用方法，具有一定的参考价值，感兴趣的小伙伴们可以参考一下
2017-11-11
Delphi建立、读取、存贮INI文件的方法《一》
内容: INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi6.0提供了一个TInifile类，使我们可以非常灵活的处理INI文件。
2008-03-03