人们在利用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]; ...[ 查看全文 ]