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

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

营造云安全生态链 第五届云安全联盟高峰论坛在京顺利召开 中国大数据六大技术变迁记 【最具价值CTO评选秀】当当网CTO熊长青:结合行业及技术发展,规划技术方向 社交颠覆传统,环信技术交流沙龙纪实(组图) 揭秘经典案例炼成之道 微信开发者大会精华回顾 从一家电子商务网站学到的经验教训 【最具价值CTO评选秀】极路由CTO康晓宁:极客转型CTO的感悟 盘点这些年来的“微信万能论” 《近匠》亲加通讯云:IM即时通讯API的极致服务者 TCL杯HTML5智能电视开发大赛完美落幕,8项获奖应用大揭晓! Xcode 6.2 Beta发布,支持WatchKit的iOS 8.2 SDK来了! 【最具价值CTO评选秀】携程高级技术副总裁叶亚明:从呼叫中心到移动互联网的演进 为什么靠谱的公司都应该参加CTO评选? 【深度剖析】微软开源.NET:战略重心已从PC转移到云端 专访POWER 8编程挑战赛选手黄文超:非科生的编程算法之路 BDTC 2014干货精彩不断,四大全天技术论坛议题全面曝光 全功能API!开源2D游戏引擎Firmament 微信公众平台新增“微信连Wi-Fi”功能,打通线上线下闭环 马化腾:微信在一线城市活跃 QQ增长从城市到农村 承包MIPS开发!Imagination发布双Codescape MIPS SDK 不任性了!Google Play宣布开通国内开发者通道 脑洞大开!用Swift写个Material Design组件库 美国最大婚恋网站eHarmony利用Hadoop、OpenStack重构自己 每个Java开发者都应该知道的5个JDK工具 异构计算应用研讨暨OpenCL编程培训在上海和西安成功举行! APIs.io:用来发布和发现API的利器 偏爱MySQL,Nifty使用4个Web Server支撑5400万个用户网站 直接拿来用!十大Material Design开源项目 初探WatchKit,开发者必须知道的6件事! 【MDCC专访】环信CEO刘俊彦:音视频即时通讯将成为技术壁垒 第十七届全国工程建设计算机应用大会在京召开,AMD受邀详解GPU Computing! 顾客显示屏的问题,打不开端口? 为什么代码提示,有的时候有,有的时候却没有出现? 好久没有来了,今天来逛逛!!! 如何添加一个 .pas文件 共享源代码 头脑风暴:我想做个口语考试系统,请大家提提需求 怎么在Interbase中锁表? 打印求助!急啊。。。 各位高手,100分求教 请问用C#如何实现可以向任意边停靠(并非DockStyle.Fill)的窗口? 我用 clientdataset 增加一条记录后如何在相关的DBGrid中同步显示? asp.net中有自己带的treeview类吗?(在web 应用程序) 什么c语言编辑器好用,(除了turboc,vc外,)请问高手 帮忙看一下 奇怪,直接继承CDialog类竟然用不了它的默认构造函数(我是菜鸟,帮帮我) Kenel panic:No init found. Try passing init=optino to kernel. 好心人帮帮我好么?在线等。。 superdullwolf(超级大笨狼) 来接分!!!!!!!!!!!!!!! 我的机器是win2000,安装了vmware软件,在模拟win2000pro时检测到了usb硬盘。后来,重新启动计算机,usb硬盘再也不认了,出现了usb硬盘的 有什么办法可以禁止FLASH右键 我得到了Msg.LParam,并且知道它发过来的是一串字符,请问怎样将Msg.LParam转成字符串显示出来? windows socket 1.1的一个问题 这个查询怎么写? rzhou(海盗) 收分来 寻程序员,短期,欢迎加盟!!!!!---------熟悉j2me的!!!!面试合格,待遇为150/天 如何在ADO中设置SQL的字符集? fastreport合计问题????兄弟们指点指点啊!!!! 怎样提高DCOM的响应速度 如何用ASP 在函数/过程中建立全局变量 金刚般若波罗蜜经  陈天竺三藏真谛译  如是我闻。一时佛婆迦婆住舍卫国只陀树林给孤独园。与大比丘众千二百五十人俱。尔时世尊于日前 一个矩形件的排样下料问题,一批板料(长L,宽W),n种零件,每种零件宽度和数量分别为:li,wi,mi,求优化排样结果,恳请各位大侠帮忙!! 请教:关于treeview 读取SQL Server的numeric字段用什么函数? rzhou(海盗) 收分来 急救:“段落或字节不能超过64K”???在线等待 初级问题! rzhou(海盗) 收分来 大家好!!用java开发数据库!!请帮忙!! 排序问题! 1。对vcl库底层机制一些不明白的地方 可以写代码导入数据吗? 连接ORACLE数据库时候的错误提示 关于动态查询表为空时,怎样获取一个条件??最终调取一个提示框 菜鸟提问,向高手请教一个VB中SQL中的问题, 怎样显示局域网内的所有计算机 请问谁有用VMware设置好的solaris文件啊?或是那里可以下载啊??谢谢了~~ 帮帮小弟呀!!散分 在本地机遇到数据无法提交或读取的事,动网论坛的数据也无法读取,什么原因啊 寻程序员,短期,欢迎加盟!!!!!-------熟悉j2me的!!!!面试合格,待遇为150/天 关于Form的构造函数和OnLoad方法...... 请教Web Services的分布式创建和引用的问题?急!!!!! 氯水中的物质有哪些?它是混合物吧? 描写男人的外貌 我女生要调到鄂儿多斯市去工作:希望能了解那边天气情况;什么时候天气会暖和起来;天气最热气温多少度温...我女生要调到鄂儿多斯市去工作:希望能了解那边天气情况;什么时候天气会暖和 片段:大风之夜,当雨点在树叶上淅沥时,你在床上会听见我的微语;当电光从开着的窗口闪进你的屋里时,我的笑声也偕了它一同闪进了.仿照以上片段的意境和语言风格,以“大雪之夜”为开 尿液变橙黄色是怎么回事? 物理示波管原理中改变两方电压时图案会怎么变化,为什么会变化, 初二语文仿写水库、池塘、水田密布,像明镜再仿写2句 描述人外表的文言文 汉朝刘彻儿子有哪些, 仿写:一个“雨”字,让我仿佛看到了漫天的小雨淅淅沥沥地洒落,红了樱桃,绿了芭蕉.一个“山”字,让我仿佛看到了一个“淼”字,让我仿佛看到了 如何用古文来骂人,或者用古文来骂男的 塞纳河不结冰法语怎么说 哪里能买到花青素? 如是一个男生,对你说个文言文? 什么是生态系统 济南哪里有卖花青素蓝莓花青素,以及蓝莓的产品! 蜗牛壳碎了怎么办 世界上最大的生态系统是甚么?答案是:是生物圈. 用古文古诗来形容下,待我事业有所突破之时,我会勇敢去爱你或是追求真爱最好 清朝皇太子住在哪里?东宫还是阿哥所? 鱼的上位口,下位口与鱼的生活水层有什么关系? 磁铁的哪个极吸引铁块?n还是s? 清朝皇太子吃肉在上书房里四皇子吃肉说明要立他为皇太子,为什么. 不同品种的淡水鱼往往生活在不同深度的水层,因此比较经济的养鱼方式是混养.一座水库按1:2:3的比例放养鲤鱼、鲫鱼和鲢鱼.1. 如果一共放养鱼苗30000尾,那么其中放养鲢鱼多少尾?2. 放养的鲫 形容班主任的词语,人很高大的 介绍几部汉朝或者清朝的好看电视剧 不同种类的鱼能生活在一起吗? 铁块会不会吸引磁铁磁铁吸引铁块,那铁块吸引磁铁么(怎么判断啊) 在30克水中通直流电,一段时间后,水的质量变为26.4克.问:参加反应的水的物质的量是多少mol?生成氧气的物质的量多少mol?(根据化学方程式列式计算) 各种观赏鱼 都生活在什么水层请教下 一般常见点的观赏鱼 都生活在什么水层! 能全的尽量全点 谢谢了!刚开始养鱼 准备多养几种 想搭配下我问的可能有点笼统了!我现在参考的有战船 , 用什么词,形容班主任的好!最好要深奥一点的词! 我想了解汉朝和清朝的历史.推荐一本书.不要文言文类的,想要白话文的.史事要全要真.不想要明朝那些事那种文学类的.再想问一下,《那时汉朝》可读么? "中国期刊网"怎么翻译? 为什么磁铁会吸引铁块? 什么是相对隔水层 在同一直角坐标系中,函数y=-kx与y=k+x的图象大致应为()【 给我过程!】图将就点看- -先谢谢了 字字什么什么形容词语准确每个字都是经典我是这么理解的但是不知道这句话是怎么说的我记得是字字什么什么后面一大堆好象是古文不是四个字肯定比四个字多 天气那么暖和,那么晴朗是单句吗 那个求微积分的题,为什么你先要对他们求偏导?这种题有什么要求? 男长辈的你用文言文怎么代替 试举例说明如何用一种或几种生态系统的基础理论知道环境保护活动 冷库2-8度是高温冷库?需化霜程序吗?不需为何蒸发器上结满霜? 用文言文表达对长辈教诲的感谢 塞纳河左岸潮流向西 有什么含义吗? 左岸是什么意思? 左岸文字和右岸文字是什么意思 氟化钠能否用来制取氟化氢 太阳光照射过水层,被水层吸收的比例是多少?这个比例是不是固定的?和水层的厚度有关系么?不过我是想知道一个笼统的比例,就是全部波长的太阳光,穿过一定厚度的水层之后,有多少被吸 什么是右岸文字和左岸文字? 氟化氢,氟化钠哪个化合更快 不透水层中为什么没有水的浮力 中国学术期刊网(CNKI)对其检索结果是如何进行排序的?如何改变检索结果的排序? ps明黄色值是多少? (3/7)保护环境保护生命在尊重自然的基础上切实有力地保护生态系统的自组织能力达到经济发展与环境保护...(3/7)保护环境保护生命在尊重自然的基础上切实有力地保护生态系统的自组织能力 新车刚开10天,轮胎有沙沙的声响,为什么?上月刚买的悦动手豪,在路面稍微有些不平时,会听到轮胎有沙沙的声响,是锦湖轮胎,谁有这样感受?怎么解决? 送元二使安西 唐·王维 渭城朝雨浥轻尘,客舍青青柳色新.劝君更尽一杯酒,西出阳关无故人.1.诗中的“渭城”是送别之地,“君”代指________,折枝杨柳是_________的象征.2.后两句是精心选择的临 有关井点降水的问题,想了解一下一般不透水层在地下多少米 收音机被金属盆盖住后,为什么还能听见沙沙声收音机发出的沙沙声是怎样产生的?是杂乱的电磁波还是什么?若是前者,按说电磁波被屏蔽后,就不该再发出沙沙声了(很清晰,很大) 钠放到水中是抑制电离还是促进电离? 不透水层是怎么回事,为什么水到地下一定深度后就不会下降了? 宁国回应领导视察悬浮照:照片PS 确梁振英呼吁给人质事件死者家属和伤者多香港八商会联合声明 “占中”会破坏营山西乡村教师最后的坚守:全校仅剩7名宣布参选台北市长 吕秀莲扬言:我有必王金平:“中选会”复议案拟11月5日美主持人就\"杀光中国人\"言论道歉国民党“全代会”将召开 马英九:安全浙江省千家污水处理厂年底前实行刷卡排部分院校年年开学菜价要涨 学生期待\“清风”生活用纸全国巡展登陆上海杭州天气转凉进入“栗子季” 排队买迁中央军委自上而下派出巡视组 主要监督湖南希望小学竣工一年被强拆 村民阻拦网友吐槽:在浙江开车好累 常犯开车陋小学生作业字写对被扣分 没教过的字得浙江一夫妻长期异地分居经济AA制 生美国海军世界最大驱逐舰下水【高清组图阿根廷法院支持政府打破媒体垄断迪拜宣布禁放孔明灯巴黎中国电影节开幕国网桦甸市供电公司加强冬季交通安全工华瀚净月公馆携手雷克萨斯开启时尚品鉴退休后的翟桂荣为人民服务的宗旨没退高折扣、低首付、特价好房大集合想买房“119”消防宣传月启动王丽坤否认恋于和伟:是去于和伟姐家打山东莱州发现超大金矿材料应阻燃 施工中应留检修孔 厨卫吊告别单身从现在开始万人相亲等你来参加亚泰大街与南四环路互通立交桥本月中旬IPO宣布重启后首个交易日沪指四连阳双色球奖池9.71亿元 今晚派奖1.吉林省灯饰协会正式成立吉林恒大开启“暖冬置业计划”旗下十二“双11”抄底就选世界500强 市府“我最最想保护的,却被我亲手打碎了”山东临沂“传奇”大哥喜中“中国红”头名牌皮包换个螺丝一千五街边小店三元钱7 亿多“双11”快件即将来袭大雪天田亮的儿子长这样这么一看,他们家最丑不能只看到自由职业者“幸福”的一面
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘