Listview控件字体改变颜色 想在Listview中添入不同的数据时分别用不同的颜色的字来表示,请高手指教。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在ListView的OnCustomDrawItem事件中,改变Sender.Canvas.Font.Color就可以了。 procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);var with ListView1.Canvas do begin if (你的条件) then begin Font.Style:=[fsBold]; Font.Color:= clred; end; end;end; 少了一句 DefaultDraw := True ; 请问怎么实现控件自动添加所需单元 请教如何使用indy组件实现文件自动上传? 用 Inno Setup 修改注册表使程序随机启动的问题! 大二进制文件如何安全保存到数据库中(SQL SERVER 2000) 来者有分 为什么我的报表只显示第一行?? bde 怎么配 sql server? ??不知道能不能做到?? 建个新Form类,published的属性在属性设计器中不可见!! 请问那位大虾有关于硬盘分区表和EXE文件格式的详细资料? 打印其它窗体的记录问题. 请大家帮忙:关于读取网卡物理地址的代码。。 急呀,程序已经进入发布进段了
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
with ListView1.Canvas do
begin
if (你的条件) then
begin
Font.Style:=[fsBold];
Font.Color:= clred;
end;
end;
end;
DefaultDraw := True ;