delphi中完成控件的深度投影及阴影后果.doc

delphi中实现控件的深度投影和阴影效果 在WINDOWS应用程序的窗口及其窗口内的按钮等控件，其本身都具有立体感效果，特别是在WINDOWS95系统下DELPHI程序设计中，立体效果更加完善，程序界面尤如真实物体的存在。尽管如此，它还是不能完全满足所有场合的程序设计需要，比如你要使一个控件具有一个阴影效果，或者使一个控件显示出深度投影效果，就必须依靠其它程序设计手段。这里有一个可利用的CANVAS类，它可以轻松的完成这些特殊效果程序界面的绘制工作。　　CANVAS（画布）是DELPHI中为某些控件所定义的一个类，它允许在控件表面进行灵活的绘图操作或信息显示，并且适用于多种控件，如FROM、IMAGE、FILELISTBOX等，为美化程序界面提供了非常方便的方法；CANVAS具有多种属性并支持多种操作命令，可以实现在指定的对象上画点、画线、画多边形、画扇形、画圆、定义画笔特性、输出各种字符串等多种功能。控件的阴影及投影效果的形成，基本原理就是在利用该控件的父控件比如FORM或者其它容器控件的CANVAS，在该控件的周围适当处填加图像，通过线条及颜色的合理搭配，使控件与周围的图像融为一体，形成特殊的视觉效果。所需要的CANVAS命令如下：　　form1．canvas．pen．width：定义画笔的宽度　　form1．canvas．pen．color：定义画笔的颜色　　form1．canvas．moveto：定义画线起点坐标　　form1．canvas．lineto：定义画线终点坐标　　具体操作时需要根据被修饰控件的TOP、LEFT、WIDTH、HEIGHT属性，确定需要画线的起点和终点坐标，这样操作无论被修饰控件位置及尺寸如何变化，都可以保证投影及阴影效果完美的实现。　　下面是一个简单的演示程序，在窗体中安放三个命令按钮控件Button1、Button2、Button3，然后输入下面．PAS文件中的相应代码，程序运行之后按下命令按钮2，则为按钮1增加投影效果，按下命令按钮3为按钮1增加阴影效果，按下按钮1则程序结束。上述方法可灵活应用在DELPHI程序界面设计之中，实现一些屏幕特技效果，会极大增强程序工作界面的生动性。其中有一点需要注意，当程序窗口发生变化时（最大化或最小化），其投影及阴影效果可能会被破坏，此时需要重画以保证程序界面的完整性，所以在程序中应该适当安排窗口变化监视功能。　　程序在486机、WINDOWS95中文版、DELPHI2．0环境下调试通过，附．PAS文件内容。　　unit can；　　interface　　uses　　Windows，Messages，SysUtils，Classes，Graphics，Controls，Forms，Dialogs，StdCtrls；　　type　　TForm1=class（TForm）　　Button1：TButton；Button2：TButton；Button3：TButton；　　procedure Button2Click（Sender：TObject）；　　procedure Button3Click（Sender：TObject）；　　procedure Button1Click（Sender：TObject）；　　procedure FormCreate（Sender：TObject）；　　private?????? ｛Privatedeclarations｝　　public?????? ｛Publicdeclarations｝　　end；　　var　　Form1：TForm1；　　x，y，i：integer；　　implementation　　｛＄R＊．DFM｝　　｛投影效果的形成｝　　procedure TForm1．Button2Click（Sender：TObject）；　　begin　　form1．canvas．pen．width：=1；　　for i=0 to 8 do　　begin　　form1．canvas．pen．color：=＄00a0a0a0；　　form1．canvas．moveto（Button1．left＋Button1．width＋x，Button1．top＋y）；　　form1．canvas．lineto（Button1．left＋Button1．width＋x，Button1．top＋button1．height＋y）；　　form1．canvas．pen．color：=　　form1．canvas．moveto（Button1．left＋x，Button1．top＋Button1．height＋y）；　　fo