DELPHI图形编辑技巧二则_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

DELPHI图形编辑技巧二则

作者：闵涛文章来源：闵涛的学习笔记点击数：684 更新时间：2009/4/23 18:24:24

一、界面色彩渐变效果的实现

　　界面色彩渐变效果是通过用渐变的画刷刷绘依次相邻的矩形块实现的。下妹媪芯偈道？得?

　　1.新建一个表单,假设其Width为500,设置一个按钮Button1,按此按钮将把北单置为由左向右由黄变白的渐变效

果。

　　2.Button1按钮的代码如下:

　　procedure TForm1.Button1Click(Sender: TObject);

　　var i,j:Integer;

　　Dct:TRect;

　　begin

　　j:=Form1.height;

　　//获得表单高度

　　for i:=0 to 255 do

　　//此处设置RGB()中一个颜色值

　　begin

　　Canvas.Brush.Color:=RGB(255,255,i);

　　//每次画矩形的画刷颜色

　　Dct:=Rect(i＊2,0,(i＋1)＊2,j);
　　//每次刷绘的矩形区域

　　Canvas.FillRect(Dct);

　　//填充颜色

　　end;

　　end;

　　二、图形整体拉出效果

　　单纯的图形整体拉出效果比较简单,动态地改变图形区域的大小就可以实现

但事先应将图形的“Stretch”设置

为“True”。

　　举例说明下拉效果:

　　1.在表单上放置一图片,高度为200,属性“Height”设为0,“Stretch”设?

为True。添加“Timer”构件,

“Interval”设为200,“Enable”设为Ture。

　　2.在Timer1Timer中添加代码:

　　procedure TForm1.Timer1Timer(Sender: TObject);

　　begin

　　Image1.Height:=Image1.Height＋20;

　　//设置增量

　　if image1.Height=200 then Timer1.Enabled:=FALSE;

　　//图形整体拉出完毕

　　end;

　　以上两例在Windows95,Delphi3.0环境下运行通过。 156

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：在Listboxes中加背景图

下一篇教程： Delphi使用心得

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……