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

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

Visual Studio 2013 Preview新功能预览 “中国手机游戏四月流水榜”出炉 超半数基于Cocos2d-x引擎 为移动而设计之信息架构篇 难逃厄运:Zynga将关闭Draw Something母公司OMGPOP 直接拿来用!最火的iOS开源项目(一) 是时候抛弃Eclipse转向IntelliJ了 Arrow:轻量级的Python时间日期库 编程语言API,你最青睐哪一款? 推动新输入方式发展:英特尔为感知计算设1亿美元基金 AWS到底有多大?目前看来有158000台服务器 C语言实现树的动态查找 第五届中国云计算大会于北京隆重举行 改变企业移动化:新Google地图API支持用户定制 诺基亚旗舰手机EOS真机图曝光 配备“巨型”摄像头 走进豆瓣:豆瓣的技术架构与团队文化分享 加速Web开发的10款HTML5工具 微软式微?AMD、英特尔等开始疏远Windows 语音技术现状:四千万突破语音产业的技术壁垒? 万维网联盟W3C推荐Web性能API 微软郑子颖:Windows Azure如何支持开源系统和软件? EMC 叶成辉:软件定义数据中心实现统一、开放的管理 百度云主任架构师 侯震宇:云终端开启数字生活 中国工程院院士 倪光南:中国云计算在全世界份额远超3% 信息图:未来的企业移动培训应用与技术 “2013年度中国优秀开源项目征集”活动最后三天 为什么开发者倾向于使用杂乱无章的免费工具 EMC合作伙伴销售经理杜术清:实现云的三种途径 开发者想走向海外:你融入老外的圈子了吗? 前微软工程师:美国监控和直接访问服务器?这不太可能 代码、TDD速查表 如何选择前端架构:服务器端HTML vs. JS部件 vs.单页Web应用 源代码分析 通过weblogic的连接池连接sysbase,出现的怪现象 唉,今天刚到公司上网看一下新闻,竟然被行政总监说了!大家说说看 一个简单的SQL命令问题,线上等待。正确的我都给分 菜问题!我添加了#include "ICMPHeader.h",然后就出错了。 高分求救-漂亮的JSP页面代码 高手紧急求救!!! 我要移动listbox中的值!! 急问Flash... 对于高手很easy问题! 这个语句错在哪里:能不能用字符去逐个的初始化一个字符串 安装SQL时没有选择默认,而是自己新建一个实例,这样如何实现远程代码连接?? 急问Flash conning333(chen)来接分 webapps\ROOT\WEB-INF\web.xml的配置问题 如何清除WEBSPHERE的缓存?一个JSP文件总是无法更新,我重启WEBSPHERE也好,修改该JSP并重新保存也好,都是显示旧页面,真气人! 源代码分析 怎样在DW中制作垂直的线条????急 ! 急!在线等待!!!! 关于dir()的小问题, 这个问题已困惑我几天啦,均没人帮我解决真的好盼望呀 急问FLash 高分求教:一个DataGrid显示双DataTable!走过路过都有份! 怎样代码控制servers中excel的合并单元格?? google能找到我了,散分咯 急问Flash. ADOCE怎样访问excel数据表格? 请 ccmoon(IzuaL) 和 cloudchen(陈系上) 进来领分, 我该怎么做? 关于将输入字母转换为大写的问题! 谁给我解释这个sql语句! 怎么将sql server 6.x 的备份文件,恢复到sql server 7上 请教pb中有没有模式窗口和非模式窗口的概念?? 设备内容句柄在Delphi中有这个类吗?如何表示? hxzhappy(冰雨)快来接分 请问在contexMenu控件中show方法如何写 请问用VC,如何在WIN2000下连接一个SQL数据源? 入参与出参 关于国外发布的软件,可以使注册用户在线或取注册码! win2000下怎样建立代理服务器 有关DBGrid的问题。 在其他版看到一个很有意思的贴子“如果是你招聘人,你会不会招和自己技术,资历差不多的,甚至超过自己水平的?”欢迎大家讨论。 急!关于innerhtml的错误? hxzhappy(冰雨)快来接分 在线求助,急 请教各位,我的sybase的数据库的log设备(即syslogs表)最近增长很快,每天增长40多兆,如何解决??? 想做一个网络代理上网 c语言中三维数组的问题??? 求助:word文件加密后忘记密码如何打开原文件? 请教 : photoshop 中--highlight shadow midtone 提问,非高手勿入,打印的问题,100分,不够另加 关于oracle预留字作字段名的问题。 拉丁语句子问题一个Puellas interrogat:"An clamore terremini,puelae?" 翻译是:(他)问女孩子们:“你们害怕那些吵闹声吗?”为什么这里clamor要用夺格? 在空心线圈中通入直流电,那么用磁铁和硅刚片哪个作铁心更好 有一个长方体玻璃容器 从里面量长6分米 向这个容器注水时 能出现几次相对的水面是正方形的情况.当第二次出现相对的水面是正方形时 水形成的长方体的体积是多少升? 疝气灯 节能灯有什么区别呢?疝气灯节能吗?今天去买客厅的灯了,商家老板先给我们说是节能灯的,结果是疝气灯. 虽然真的蛮明亮的说,就是不知道耗不耗电 这才是关键! 他说疝气灯也是属于 y=log0.5 2^x 求奇偶性 增减性?y= -x是偶函数 减函数 讨论y=-x^2+4|x|的奇偶性需不需要写出分段函数 然后分x>0 x co(nh2)2受热分解成什么? [CO(NH2)2]求相对分子质量?各元素质量比?尿素中氮元素的质量分数?1千克尿素与多少克NH4HCO3含氮量相同? 五年级课文 埃及的金字塔中“几千年过去了,这些石块的接缝处连锋利的刀片都插不进去.”用了什么写作方法 疝气灯泡怎么烫手正常吗 卤素灯泡 疝气灯泡 那个亮 默克尔私人手机可能遭监听 德媒怒称最菲催促尽早完成南海仲裁 妄言中国主权给新加坡“送礼”香港动心金正恩成大马高校荣誉博士 为表彰其教美国务卿说政府关门损害美国际声誉手机疑遭美监听 默克尔怒了中国保姆在美国年薪10万美元 保险假阿拉法特死因有新说 排除钋中毒BBC名主播再添性侵罪名 下月受审【新加坡供需两方面给房市降温 房价调控沙特惊人外交之举引争议“耻感文化”背后的“马马虎虎”微言大义“计划导入小型增压发动机”《汉秀》演员挑战极限积水潭医院建北京首个骨科医联体万亿华润:大规模并购缔造的产业帝国(高端留学市场“高”在哪儿五一音乐节漫游指南(1)全国主要城市今天天气预报速腾GLI亮相北京车展“IT公司想做汽车并非易事”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘