说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

DELPHI图形编辑技巧二则

HTML文档下载 WORD文档下载 PDF文档下载
DELPHI图形编辑技巧二则

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

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

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环境下运行通过。

NodeJS无所不能:细数10个令人惊讶的NodeJS开源项目 【快讯】18-19日,亚马逊AWS负责人Andy Jassy会在北京说什么,做什么? 数据库未来的5大预测 华为王丰谈华为一体机三大优势 FusionCube SQL Server针对Windows集群加速 浏览器基准测试:IE11成绩惊人 怎样对含计算字段的表合计,并进行汇总打印?能给我点方法和建议吗 热烈欢迎chenyanyan7(呢喃小燕子) MM !请各位朋友捧场! (大漠刀客) 求职:想找一个用(WinCE EVC)编程的工作 &&请求计算机安全方面专家帮忙!&& 很菜的问题,在线等…… about computer guid 如何向inifile中写入注释? sql server 2000移动记录指针出错 为什么imp命令导入不exp的文件? lim cos²1/x,当x趋近于0时的 求极限:lim(x→0)ln(1+x²) lim x→0 (x∧2 cscx sin(1/x 求极限lim(x→1)(1-x^2)/(sinπx lim (sin^2 2x)/x^2 x→0 极限 求极限,lim x趋于0 x * sin 1/x 求lim x→0时(2+e^ 1/x / 1+ e lim(x→1) sin^2(x-1)/x-1 求 求lim(x趋近0)(sin2x)/x的极限,谢谢 温州一对母女裸死出租房内 腿部有烧焦浙江大学教授演示神奇“隐身衣” 鱼缸上周末金华16个监测点 11个点空气婴儿注射疫苗险丧命 “疫苗后遗症”家浙江多举措扶持小微企业来看看这13个成功人士是如何度过周末新三板分层究竟是“停尸房”还是“产房无量阴跌的四大原因找到了或引市场投资兴趣:济南停车费涨价刺激河南晒出2015年工资单 郑州洛阳平一代精武无字天书之血染乾坤魔掌天下长生塔宗门的黄昏泰宁展示中心旅游泰宁地质博物苑旅游灵谷洞风景区旅游宜兴竹海旅游猛犸象博物馆旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘