Delphi中 OnDrawCell的使用技巧

人们在利用delphi开发数据库应用程序时，经常使用表格控件制作报表。灵活地使用表格控件的ondrawcell事件，可以完成一些特殊效果的显示，能更好地满足用户需求。本文介绍灵活使用ondrawcell事件的三个技巧。

动态更新表格行的颜色

有时需要在报表中动态更新表格行的颜色。例如，在供应商列表中，优先供货的供应商用绿色显示，其他的供应商用红色显示。此时可以在ondrawcell事件中用如下代码实现：

if table1.fieldbyname(‘custno’).asinteger > 1500 then

dbgrid1.canvas.font.color := clred;

dbgrid1.defaultdrawcolumncell(rect, datacol,

column, state)

上述的代码可以根据应用的需要进行扩充。例如需要用黑体显示时，只要将对应行改为：

dbgrid1.canvas.font.style := [fsbold];

在表格中插入其他可视控件

在数据库编程中，外键约束是保证数据库中的数据按用户要求存放的有效方法。例如，在一个订单处理环境中，订单表和客户表之间就存在外键约束，即订单表中的每条记录在客户表中应该有对应项。这样，在填写订单表时，如果在输入焦点提供客户列表供用户选择，将有效地保证数据的正确性。

dbgrid控件和stringgrid控件都派生于tcustomgrid，其中dbgrid控件可以输入数据。delphi对dbgrid处理的内部机制是在网格上浮动一个dbedit控件。能够获得焦点、输入数据的网格其实是浮动的dbedit控件，当焦点转移时把编辑框中的文字显示到表格，其他未获得焦点地方和stinggrid并没有区别，这样就达到了在表格上输入数据的目的。所以，在表格中插入其他可视控件的方法就是在网格上浮动该可视控件。因此从原理上讲，任何控件都可以在表格中插入。本文以在表格中插入下拉框为例，介绍在网格上插入其他控件的具体步骤。

运行结果如图1所示：

图1

1．设置属性

读入客户列表到下拉框的items属性。

2．设置ondrawcell事件

ondrawcell事件在绘制表格的单元格时被触发。当获得焦点的单元格所对应的字段与下拉框所对应的字段一致时，移动下拉框到获得焦点的网格上，并且使下拉框可见，从而达到在表格指定列上显示下拉框的功能。设置表格的ondrawcell事件如下：

if (gdfocused in state) then

begin

//对应字段一致则执行

if (grid.cells[acol,0]=‘company’) then

begin

//移动下拉框到指定位置

combobox1.left := rect.left ＋ grid.left;

combobox1.top := rect.top ＋ grid.top;

combobox1.width :=rect.right－rect.left;

combobox1.height:=rect.bottom－rect.top;

// 使下拉框可见并获得焦点

combobox1.visible := true;

combobox1.setfocus;

end;

end;

3．设置onclick事件

如果获得焦点的单元格所对应的字段与下拉框所对应的字段不一致，下拉框不可见。为此，设置表格的onclick事件如下：

if (grid.cells[grid.col,0]<>‘company’) then

begin

combobox1.visible := false;

end;

4．设置onchange事件

在ondrawcell事件中只完成了绘制单元格和显示下拉框的工作，并不能将数据输入到表格。为此，设置下拉框的onchange事件如下：

grid.cells[grid.col,grid.row]:=combobox1.

items[combobox1.itemindex];

这样就完成了在表格中插入下拉框的工作。

在表格中显示图形字段

在程序开发中，有时需要在报表中显示一些非常规字符。例如在零件检验报表中的检测项目字段就包含了零件加工粗糙度、加工公差等非常规字符。解决该问题的一般思路是把这些非常规字符作为图形字段存储，例如sql server 数据库中的image字段。但是无论是stringgrid控件还是dbgrid控件，都只能直接显示字符串，这样就产生了如何在表格控件上显示图形字段的问题。

乍一看，该问题可以利用上述办法在表格中插入dbimage控件解决。但是这样需要插入与记录同等个数的控件，更麻烦的是由于ondrawcell事件触发非常频繁，这样插入的dbimage控件会不停地试图与数据库连接，不仅增加了网络通信量，而且图形字段明显有闪烁感，影响程序的正常运行。更好的解决办法是在连接数据库时动态地创建dbimage控件，利用该控件读取数据库的image字段，并作为临时文件保存到客户机硬盘。在表格的ondrawcell事件中读取该临时文件，完成绘制工作，该临时文件在客户退出时被删除。以下是在表格中显示图形字段的具体步骤。

运行结果如图2所示：

图2

1．保存image字段

在执行查询时读取所有image字段，并保存到客户机硬盘。

begin

......// 略去查询语句

filename:=‘d:\temp\’; //初始化临时文件路径

mydbimage：=tdbimage.create(self);//创建dbimage

mydbimage.parent:=self;

mydbimage.datasource:=datasource1;

mydbimage .datafield：=‘描述’;//指定为“描述”字段

index:=1;

while not clientdata.eof do begin //读数据库

s:=inttostr(index);

filename1:=filename＋s;

filename1:=filename1＋‘.bmp’;

//保存临时文件

mydbimage .picture .bitmap .savetofile(filename1) ; grid .cells[0,index]:=clientdata.fieldbyname(‘零件编号’).asstring；

grid.cells[1,index]:=‘’;

//填写表格

grid.cells[2,index]:=clientdata.fieldbyname(‘实测数据’).asstring;

clientdata.next;

index:=index＋1;

end;

mydbimage.destroy(); //释放dbimage

end;

2．拷贝图形

设置ondrawcell事件，读取临时文件，并将图形拷贝到表格的指定列：

if ((acol=1)and(arow>0) and (grid.colcount>2)) then begin

//表格至少需要两列

filename:=‘d:\temp\’;

s:=inttostr(arow);

filename:=filename＋s;

filename:=filename＋‘.bmp’;

myimage:=timage.create(self);//创建image控件

myimage.parent:= self;

//读临时文件

myimage.picture.bitmap.loadfromfile(filename);

//拷贝图形

grid.canvas.draw(rect.left,rect.top,myimage.

picture.graphic);

myimage.destroy(); //释放image控件

end;