怎样让listview按条件显示不同颜色?
数据库 id neirong(内容) biaozhi (标志,1or2,用来控制颜色);
原来简要代码如下
procedure tform1.listview1reflash;//查询数据库,显示到listview
var
myitem:Tlistitem;
query:tadoquery;
begin
listview1.clear;
query :=tadoquery.create(nil);
query.connection :=form1.adoconnection;
query.sql.text := 'select * from sjk ';
query.open;
while not query.eof do
begin
biaozhi := trim(query.fieldbyname('biaozhi'),asstring);
if biaozhi = '1' then listview1.canvas.font.color :=clred;
myitem := listview2..tems.add;
myitem.caption : trim(........);
myitem.subitems.add(...);
.
.
end;
query.next;
end;
end;