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

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

分享9条经典的编程语录 国际著名黑客大赛介绍与比较 微软Azure CDN服务全球范围内出现宕机 双向多功能U盘:从Android设备到PC还有多远? 证明了自己:微软Win8获美国防部6.17亿订单 2013 Facebook黑客杯报名即将开始 解决Win8下IE10无法打开的故障 [简讯] Scala 2.10.0发布! 收购传闻:Apple一厢情愿还是Waze待价而沽 回顾过去,展望2013:移动开发引擎、工具和语言盘点 成本为0!Netflix开源工具Janitor Monkey清理AWS iOS开发者讲述在Google工作的三个月 GitHub历史上最糟糕宕机事故回放及反省 疑因竞争 谷歌有意让地图与WP手机不兼容 移动游戏开者必看:海外VC最关心什么? 淘宝UED:随侃设计师的个人素养 TIOBE 2013年1月:不负重望 Objective-C再次赢得桂冠! 大数据:商业或技术的挑战? 开源移动统计:Cobub Razor近期版本大升级 无人机应用,为何屡遭苹果拒绝 2013年Java继续火的五大理由 Rails所有版本都有SQL注入漏洞?其实没那么严重 如何设置Windows Server 2012 NTFS权限 智能手机大局已定 HTC难扭转乾坤? 比谷歌手表更酷!基于大数据分析的睡衣 众投资金:改变了移动游戏开发的一切一切 这些科技产品和革新或在今年“横空出世”?! 现代Objective-C七宗罪 Google工程总监Ray Kurzweil意欲打造“虚拟朋友” 惠普开源JavaScript框架Enyo更新:支持桌面和移动平台 分析:三星或将成为科技行业第五巨头 小难题 在UNIX+ORACLE+C++环境下开发的程序员的工资问题 取消地址和工具栏? 诚心请教 工具栏上加下拉组合框的问题 FFDD 2.0 系统件开发规则 有MIS或ERP选型经验的朋友请点击,斑竹请务必帮助我! 系统件快速开发解决方案 —系统转系统件方案 关于paradox的字段设置 谁有jb7的注册码?能发给我吗? 我想让一个存储过程最大执行10秒,超时退出,怎么实现? 数据库连接问题 在delphi的paradox 7 的字段设置 单网卡如何帮定双IP? 这样都有?你们给我我的可用分增加了 不用hook,能不能把其他应用程序的关闭按钮或最小化最大化按钮屏蔽掉?? 如何把float转成CString 怎么把SQL SERVER2000 数据库中的表转成.dbf格式的表!谢谢 如何得到一个图形按钮的句柄啊?好郁闷!!! 关于setfilter()函数的问题 谁知道四川的高程考试什么时候报名?哪里? illegal character: \12288???什么是不合法的存在?? 关于wav格式的声音文件 com 、active控件,b/s,asp到底什么关系啊 C++高手请过来! 怎么切换分割后的视图类 软件工程师的职业生涯――从入门到精通 SOS(ACTIVEREPORT) 基于RichText的查找和替换函数??BCB自带的那个太滥了。(1--[查找]100分) 把float转为CString 基于RichText的查找和替换函数??BCB自带的那个太滥了。(2--[替换]100分) 谁有加密算法的程序!! Atl+asp+mapi 这种情况能不能连接SQL SERVER??? 帮忙 半個月了.還沒能找到解決方案,我想做數据庫的朋友都會碰到的問題.如何能在dataGrid中先显示一张有几十万条数据的表的一小部分,载入内存 我的SQL Sever 2000不能启动了。为什么。 我的SQL Sever 2000不能启动了。为什么。 求救:PB做出来的东西能否在WINDOWS2000下运行???? 请问如何实现在回退到指定的窗口 请问为什么会出现拨号连接正常,但IE却打不开网站网页 关于类模板的两个简单问题 千万别让MM看到你的QQ开着 [zz] 寻找高手(调用Flash动画) 还是字符集的问题,解决了只给100分(外加一顿饭) 初学者,有没有什么好书请推荐一下! to echome !!!!!!!!!!!!!!!!!请大家如果见到 echome 请奔走告诉他一声!!!!!!!!!!!!!!!!!!!!! 为什么Debug下编译的程序一点问题都没有,而Release的编译却一运行就非法操作啊! 我写得计算第n个Fibonacci数列的函数,我想知道最简单的方法!谁可以告诉我??(递规除外) 请问如何得到鼠标所在屏幕那一点的RGB值? 怎么把mpeg文件的每一帧截图 不足的碳酸氢钠与盐酸反应化学方程式 写玉兰花的作文,一千字左右 你能告诉我哪种玻璃最硬 如图所示,电阻R1=R2=R3=1.0,当电键K闭合时理想电压表读数是1.0V,当K断开时理想电压表读数是0.8V,求:电源的电动势E和内电阻r 求作文:感官描写玉兰花,柳树(共两篇)200字以下100字以上. 真空镀膜机工作原理 一道初中物理浮力的题,有争议,快来!如图所示,放有铁块的杯子漂浮在容器中的水面上,如果把铁块取出,用细线悬挂在杯底,再放入水中时,杯子受到的浮力将______,水对容器底的压强将_______.( 电离常数的具体物理意义是什么? 公路上积水在寒冷的天气里,常会在公路表面形成一层薄冰,这个过程在科学上称为 如图所示,设R1=R2=R3=R4=R,求开关K闭合和断开时,A,B两端电阻值比 电离常数表示什么意思啊? 公路上的积水在寒冷的天气里,常会在公路表面形成一层薄冰, 将一重为3N,体积为100立方厘米的石块,用细线系着浸没在装有水的圆柱形容器中,容器中水的深度由10cm上升到12cm.(容器的重力和容器壁的厚度不计,g取10N|kg)求:1.石块所受浮力 2.容器中水的 电离常数的定义及关于其的公式,定理 形容白玉兰的诗句 森林气温有多少度? 结合语境,解释下列词语第二轮有106名委员实际参加投票,有效票为105张.有效票:风度翩翩的何振梁噙住了泪水.噙住: 形容玉兰花的诗有那些 森林近来气温多少摄氏度? 发面酵母 有关白玉兰的词语 森林温度多少度? 关于蒸发式冷风扇我想买个蒸发式的冷风扇,不是那种空调扇…它只加水就可以了…看了一下觉得还可以,不过要700多块…不知道这好不好用阿,我不想买空调… 温带海洋性气候为什么全年最低温高于0度 森林温度大概度? 湖泊中的蓝藻能否在海洋中生存RT 补充:请给出您答案的出处!鄙人最近在写论文,关于太湖蓝藻问题的,我有个想法,虽然有点异想天开,不过我还是想了解下这想法的可行性,就是太湖蓝藻如果直 萨米恩托的气候为温带大陆性气候,为什么冬季气温高于零度,是什么原因造成的? 我是这样学雷锋的 作文 生活中哪些利用了惯性 武汉地区冬天最低气温在零度左右,怎样养金钱树 森林这几天气温多少摄氏度? 结冰后的湖泊里水生生物还活着,这是水的什么性质 梅雨天气一般会持续多长时间啊? 学雷锋的作文怎么写? 帮忙写一篇120词的英语作文,一般水平就好.以120词就“适者生存”为主题写一篇短文.内容包括:(1)你认为遇到困难时,我们应该想办法克服困难还是回避困难.(2)当你处在一个新环境时, 人不能喝海水,那为什么海里的鱼可以喝一辈子? 3DMAX渲染玻璃材质,部分玻璃渲染后显示损坏的蓝色是什么原因?【 如图:两组玻璃用的都是同一种玻璃材质,灯光和模型都没有问题,最奇怪的是将左边显示正常的玻璃拷贝到右边墙体使用,还 酵母发面 属于发酵吗?RT 为什么答案里说不是呢?.....谢..以下不属于发酵过程的是:A酿造葡萄酒 B制作酸奶 C酵母发面 D制作泡菜 为什么鱼喝海水,人却不能喝? 学雷锋文章不是简介 描写土地的诗,要作者,朝代. 人喝海水会死吗?海水为什么不能喝? 结合语境解释下列加点词语.(1)仔细看时,才知那是每一朵紫花花中的最浅淡的部分,在和阳光互相挑逗(2)船搜鼓鼓的,又像一个忍俊不禁的笑容笑容:(3)花朵从来都稀落,东一穗西一串伶仃地挂在 语言意义和语境意义有什么不同,为什么要区分二者?我分不清这两者, 以"蜡烛"为内容,分别写一个比喻句和一个拟人句 “结合语境解释加点词语的意思”对于这样的题要怎么解释? 根据语境写出“好”在词语中的不同意思心情好( )态度好( )天气好( )身体好( ) 用“蜡烛”分别写一个比喻句和一个拟人句求速度! ,用树木、森林和气候的关系来比喻个人、集体与社会的“气候”的关系 结合语境,解释下列加点的词(1)从飞船上可以看到美丽的月球已经遥遥在望.遥遥再往:(2)他们又取出美国的星条旗,神色庄重地把它插在月亮上.神色庄重:(3)在茫茫太空,月亮是地球 区分该词在不同语境里的不同含义1.夫与子之不遇事:之2.许喷以烟:以3.天下独绝:绝4.坐中数千人:坐 磨轮打火机碰水晒干后还能用吗?一般用什么油?没有油的状态下 硫酸铜溶液吸收硫化氢气体的离子方程式 玻璃刀刃头上镶的金属是什么 网上那个使水瞬间结冰的视频(盐、吸管、打火机那个)有谁做成功过吗?我是没成功,也不知道其中的原理. 请问,应如何写玉兰花的作文要很美 金属玻璃是玻璃吗? 谁试过将打火机在水里搞爆.那一瞬间水都结冰了!为什么? 求一篇写白兰花作文要写白兰花的茎·叶·花 为什么寒冷的冬天,河里结了冰,鱼儿却能在水下自由的生活
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘