为什么我提的问题大部分没有人回复呢?救救我吧!!!

[maoke000]

我想自已绘制TListView中的Item,关键是我的绘制比较苛刻,采用详细资料方式的那种形式,小图标就不要了,如:

标题(Item.Caption) 日期 借阅人
计算机信息管理 2002-05-06 李华平
信息资源管理 2002-09-24 王志军
中国计算机报 2003-04-24 危芳
......

我想把Item.Caption中有关"计算机"的字样标注成蓝色,以示醒目。
我还想把日期中的2002-10-01以前的字样标注成红色，表示此书被借阅人借的时间严重超长。

我一直搞不清楚以下几个事件是分别做什么用的？？
OnAdvancedCustomDraw
OnAdvancedCustomDrawItem
OnAdvancedCustomDrawSubItem

OnCustomDraw
OnCustomDrawItem
OnCustomDrawSubItem

OnDrawItem

[g58521547]

能不能这样？就是在日期这一列可以进行计算或者比较，如果超过某一个时间，可以设置它的问题颜色为红色。

[maoke000]

如:计算机信息管理
我是把字样"计算机"标注成蓝色,其它字样用原来的黑色,我不会这方面的绘制程序

[nhdj]

学习,帮你up~~~~~~~~~~~

[火龙岛主]

delphi7测试通过
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
begin
if item.Caption ='计算机信息管理' then
sender.Canvas.Font.Color :=clBlue;
end;

[sduzjw]

dbgrid中记得是用ondrawcolumndata什么的来,

[vchoushen6]

TMS的类似控件支持简单的HTML格式，这样你只要根据条件在其中加入HTML的标记就行了，什么事都自己做，很累的哦。

[walkmangood]

up

[hiflower]

看看帮助嘛，你这样也太浪费分了吧

[OO_is_just_P]

就是。

[yangxjn]

up

[foxmx]

同意SmallHand(火龍)
AdvancedCustomDrawItem事件中写入:

procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
begin
if item.Caption ='计算机信息管理' then
sender.Canvas.Font.Color :=clBlue;
end;