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: emp’; //初始化临时文件路径
　　
　　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: emp’;
　　
　　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;