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 下一页
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
