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

1 2 下一页

　　本文论述了用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用于确定圆角大小
　　下面给出3D效果制作子程序：

　　1、 背景制作子程序

　　本段程序是用来画背景，只要给出不同的颜色RGB值就能画出不同的背景。下面的子程序都是利用对象的画布Canvas并按一定的算法来生成效果。

procedure draw_bk(Sender:TForm;R,G,B:integer);
var i,j,k:integer;
begin
　with Sender do
begin
　canvas.pen.style:=psSolid;
　canvas.pen.width:=1;
　k:=(B div 3)*2;
　for i:=0 to 480 do
　begin
　　if i<k then j:=0 else j:=j 1;
　　if j>B then j:=B;
　　Canvas.pen.color:=rgb(R,G,B-j);
　　canvas.moveTo(0,i);
　　canvas.lineTo(640,i);
　end;
end;
end;
　　2、 边框周围铜柱子程序

　　本段程序是用来画窗口周围的铜柱，只要给出不同的颜色RGB值就能画出不同颜色的柱子。

procedure draw_roll(Sender:TForm;X0,Y0,W,H,R,G,B,lw:integer);
　var i,J,j1,J2,J3,m,X,Y:integer;
　begin
　　J1:=R div lw-2;
　　J2:=G div lw;
　　J3:=B div lw 2;
　　m:=lw div 3;
　　with Sender do
　　begin
　　　for i:=0 to lw do
　　　begin
　　　　if i<m then j:=m-i else j:=i-m;
　　　　　Canvas.pen.color:=rgb(R-J1*J,G-J2*J,B-J3*J);
　　　　　canvas.moveTo(i X0,i Y0);
　　　　　canvas.lineTo(i X0,H-i Y0);
　　　　　Canvas.pen.color:=rgb(R-J1*J,G-J2*J,B-J3*J);
　　　　　canvas.moveTo(W-i-1 X0,i Y0);
　　　　　canvas.lineTo(W-i-1 X0,H-i Y0);
　　　　　Canvas.pen.color:=rgb(R-J1*J,G-J2*J,B-J3*J);
　　　　　canvas.moveTo(i X0,i Y0);
　　　　　canvas.lineTo(W-i X0,i Y0);
　　　　　Canvas.pen.color:=rgb(R-J1*J,G-J2*J,B-J3*J);
　　　　　canvas.moveTo(i X0,H-i Y0);
　　　　　canvas.lineTo(W-i X0,H-i Y0);
　　　end;
　end;
end;

上一篇： 用Delphi编写清空回收站程序
下一篇： 用Delphi编写圆周率模拟器

1 2 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有