数据库 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;
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;
解决方案 »
- 用双缓冲区画多条线的图像怎么这么慢哟?
- 控件太多,有没有这样的控件,好像没看到
- 很急! 100分!:做了一个组件 实现属性的下拉列表显示 可是安装之后没有效果 帮帮忙看一下代码哪里有毛病!!!!!
- 一个有难度的FastReport问题
- 关于图形控件软件开发.做这方面的朋友试试应该有帮助...
- ehlib这个表格类的控件怎么安装?
- memo的问题,在线等待
- cxGrid 控件使用。求大神~~~
- 怎么用Delphi实现一个类似于Delphi的窗口编辑器?
- 分数大拍卖……(DELPHI版)
- 基于WebService的中间层,客户端如果远程调用中间层的一个方法?
- 关于 ClientSocket和ServerSocket问题.
lv2CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
//不同标志的列用不同的颜色
if Item.SubItems[1] = '不变' then
Item.ListView.Canvas.Font.Color := clBlack
else if Item.SubItems[1] = '修改' then
Item.ListView.Canvas.Font.Color := clFuchsia
else if Item.SubItems[1] = '删除' then
Item.ListView.Canvas.Font.Color := clRed
else //新增
Item.ListView.Canvas.Font.Color := clBlue;
end;