|
ＣＡＮＶＡＳ 是一种功能极强的特殊属性。在ＤＥＬＰＨＩ 中只有少数的控件具有此属性，而ＤＢＧｒｉｄ即是其中的一个。所谓画布，就是把某些控件的表面作为一张画板，允许操作者在其表面进行作图、显示图像或显示字符等操作。这种控制机制完全可以改善某些控件本身的表现形式，使其具有丰富的外观形象。在ＣＡＮＶＡＳ
属性的使用过程中，经常需要与对象Ｒｅｃｔ 配合。Ｒｅｃｔ 对象是定义出的一块矩形区域，可灵活地对此区域进行各种绘图操作。ＤＢＧｄｉｒ 对ＣＡＮＶＡＳ
提供了最大限度的支持，网络中每一个单独的表格，包括每条记录的各个数据项，均被事先定义为一个Ｒｅｃｔ 对象，这更增加了ＣＡＮＶＡＳ 操作的灵活性。只要按字段的名称调整每个记录中数据项表格的Ｒｅｃｔ
对象颜色，即可获得ＤＢＧｒｉｄ按字段分颜色显示的效果。具体操作时需要注意以下几个问题：
１、用一种颜色填充表格的Ｒｅｃｔ 之后，该表格项中的内容会被画布完全覆盖，此时必须利用画布的字符串显示功能重显该表格内容，才不会影响正常的表格内容，命令为：ｃａｎｖａｓ
．ｔｅｘｔｏｕｔ ：＝ｃｅｌｌｓ（Ｘ，Ｙ）。
２、当窗口重画时，比如最小化之后恢复，或者鼠标单击表格等动作，都会改变用ＣＡＮＶＡＳ 的着色效果，为了保证着色效果的永久完整，必须对其进行重新着色，具体操作时可把着色代码安排在ＤｒａｗＤａｔａＣｅｌｌ（）事件中，因为此事件在需要时可自动重画ＤＢＧｒｉｄ
表面。
编程涉及的网格属性及画布命令：
ｃａｎｖａｓ ．ｂｒｕｓｈ ：定义填充颜色
ｃａｎｖａｓ ．ｆｉｌｌｒｅｃｔ（ＴＲｅｃｔ）：对Ｒｅｃｔ 对象进行颜色
填充ｃａｎｖａｓ ．ｔｅｘｔｏｕｔ（Ｘ，Ｙ ，Ｓｔｒｉｎｇ）：在ＣＡＮＶＡＳ 上显
示字符串比如当前目录下存在一个Ｄｅｍｏ ．ｄｂｆ 数据库文
件，共有三个字段，分别为ＸＭ、ＸＢ、ＮＹ ，下面
的代码可分别用三种颜色把此数据库内容填充到
ＤＢＧｒｉｄ 之中：
（１）创建一个新的项目，在其上面分别安排下面三个控件：Ｔａｂｌｅｌ、Ｄａ—
ｔａ—Ｓｏｕｒｃｅｌ、ＤＢＧｒｉｄ１；
（２）使ＴＡＢＬＥ１
的Ｔａｂｌｅｎａｍｅ 属性指
向Ｄｅｍｏ ．ｄｂｆ 文件，之
后置ＴＡＢＬＥ１的Ａｃｔｉｖｅ 属性为真，以打开此数据库；
（３）将ＤａｔａＳｏｕｒｃｅｌ 的ＤａｔａＳｅｔ 属性置为Ｔａｂｌｅｌ ，
建立与ＤＥＭＯ．ＤＢＦ 数据库的链接。
（４）将ＤＢＧｒｉｄ１ｒ 的ＤａｔａＳｏｕｒｃｅ 属性置为Ｄａｔａ—
Ｓｏｕｒｃｅｌ ，此时ＤＢＧｒｉｄ 网络中将列出该数据库内容；
（５）在ＤＢＧｒｉｄ１ＤｒａｗＤａｔａＣｅｌｌ（）事件中安装如下
代码，实现按字段着色效果：
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ１．ＤＢ—Ｇｒｉｄ１ＤａｔａＣｅｌｌ（Ｓｅｎｄｅｒ ：ＴＯｂ—
ｊｅｃｔ ；ｃｏｎｓｔ Ｒｅｃｔ ：ＴＲｅｃｔ ；
Ｆｉｅｌｄ ：ＴＦｉｅｌｄ ；Ｓｔａｔｅ ：ＴＧｒｉｄＤｒａｗ—Ｓｔａｔｅ）；
ｖａｒ ｃｈ ：ｓｔｒｉｎｇ ；
ｂｅｇｉｎ
ｃｈ ：＝Ｆｉｅｌｄ ．ｆｉｅｌｄｎａｍｅ ；
ｉｆ ｃｈ ＝＇ＸＭ＇ｔｈｅｎ ＤＢｇｒｉｄ１．ｃａｎｖａｓ ．ｂｒｕｓｈ ．ｃｏｌｏｒ ：＝＄００００００ｆｆ ｅｌｓｅ
ｉｆ ｃｈ ＝＇ＸＢ＇ｔｈｅｎ ＤＢｇｒｉｄ１．ｃａｎｖａｓ ．ｂｒｕｓｈ ．ｃｏｌｏｒ ：＝＄００００８００ｅｌｓｅ
ｉｆ ｃｈ ＝＇ＮＹ＇ｔｈｅｎ ＤＢｇｒｉｄ１．ｃａｎｖａｓ ．ｂｒｕｓｈ ．ｃｏｌｏｒ ：＝＄００ｆｆ００００ｅｌｓｅ
ＤＢｇｒｉｄ１．ｃａｎｖａｓ ．ｂｒｕｓｈ ．ｃｏｌｏｒ ：＝＄００２０５０８ｆ ；
ＤＧｇｒｉｄｌ ．ｃａｎｖａｓ ．ｆｉｌｌＲｅｃｔ（Ｒｅｃｔ）；
ＤＢｇｒｉｄｌ ．ｃａｎｖａｓ ．ｔｅｘｔｏｕｔ（Ｒｅｃｔ ．ｌｅｆｔ ＋４，Ｒｅｃｔ ．ｔｏｐ ＋
４，ｆｉｅｌｄ ．Ａｓｓｔｒｉｎｇ）；
ｅｎｄ ；
（６）运行此程序，就会在窗口中显示出漂亮的
彩色网格；
由此方法可以延伸出ＤＢＧｒｉｄ 或其它网格控件的多种修饰方法，比如可以按数据项值采用不同的颜色，可以按记录号显示不同的颜色，甚至可以在网格中的单位表格项中显示出图像等等。总之，灵活应用ＣＡＮＶＡＳ、ＲＥＣＴ
及ＢＩＴＭＡＰ 等对象，可以将各种网格装饰得绚丽多彩。
（河北吴泽平）
|