Delphi编程实现3D图形修饰技术

Delphi编程实现3D图形修饰技术2008-02-02尹小元本文论述了用Delphi进行图形界面修饰的技术，给出了窗口渐变色背景、3D边界、3D边框的实现源代码和一个软件界面的实例。

作为一个程序员，在开发程序的时候，都希望自己程序的界面美观一些，与众不同一些，有自己鲜明的特色，这需要美化自己的界面。一般的方法是用图形工具制作一个图形界面，再经过简单的便可获得一个理想的效果，很多能够界面换肤的程序大多也基于这种思

想；但程序员一般不精通图形制作工具，请外面的美工来做也不方便，其实对一般的3D效果，我们自己也可用程序做。

编程方式实现3D效果的方法

为了改变电脑早期时候的文字界面的单一状况，各大软件公司都作出了不懈努力，先后推出了作为图形处理工业标准的OpenGL和微软研发的Direct3D，至于一些公司自用的3D技术更是不计其数。但本文提出的方法不需要上面大公司的技术，纯粹用Delphi的基本函数来实现比较逼真的3D效果。

我以前作过一个卡拉OK电脑点歌程序，点歌方式有多种，其中有一种传统的点歌方式叫编码点歌，它需要在屏幕上画一个点歌键盘，用鼠标点击键盘（触摸屏时用手触摸）输入歌曲编码，其界面如下图所示：

上图中除了迎客松的图片外，其它如背景、铜柱边框、3D键盘等都是由程序实现的，下面我对实现程序予以简单说明，上图界面的完整实现请看本文附带的源程序。

在给出程序之前先说一下技术思想，Delphi中有些对象具有画布属性Canvas，它本身也是一个对象，它具有很多属性和方法，这里只列出本文用到的几个。

Canvas.Brush.Style:=bsClear;//设置画刷风格
Canvas.pen.color:=rgb（R,G,B）;// 设置画笔颜色
Canvas.pen.style:=psSolid;// 设置画笔风格
Canvas.pen.width:=1;//设置画笔宽度
procedure MoveTo（X, Y: Integer）;
//将画笔移到坐标（X, Y） 处作为画画的起点
procedure LineTo（X, Y: Integer）;
//从当前位置画一条直线到坐标（X, Y） 处
procedure RoundRect（X1, Y1, X2, Y2, X3, Y3: Integer）;
//根据给定的参数画一个圆角矩形，X3、Y3用于确定圆角大小