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

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

像证券一样交易云资源,Zimory一年内收入翻两番并获德国证交所青睐 移动SDK崛起:未来会不会整合成一大坨? 关于 VS2010 异常捕获 在线编程教育平台Treehouse推免费iPad应用 微软发布Windows 8.1企业预览版 功能更强劲 如何管理和优化日益增长的代码复杂度? SDCC 2013大会讲师名单议题更新 8月1日前3.8折优惠截止 IBM Rational首席技术官:DevOps是一门哲学 Mozilla联手黑莓推进Web安全技术,推出开源测试平台Minion 苹果如何培养SOHO一族高效工作 再造Ruby:CryENGINE 3.5游戏引擎特性详解 Eclipse基金会涉足物联网,M2M标准是否已获东风? SDN部署前必须考虑的7个事项 【云先锋 40】初创公司DataStax:专注于Cassandra,三年融资8370万美元 内容创作工具的革新:Facebook前CTO推文字处理应用Quip 微软为Android手机推出Office 仅面向Office 365用户开放使用 编程、创业、开源感悟——SDCC 2013讲师云风专访 原生广告:移动推广的热门新宠 隐私之战:金山手机毒霸宣布开放安全检测平台 世界人民的头上有张监控大网——Xkeyscore 美国“监控门”情报收集系统 X-Keyscore 技术揭秘 为啥REST如此重要? 并非PHP Frameworks而是WordPress让PHP更加流行! Twitter Bootstrap深受开发者喜爱的11大理由 假如3D打印机也有“撤销”键 大数据的游戏运营:不能起死回生,只能锦上添花 15个步骤创立技术公司,并收获千万用户(一) 红帽再发力 将MongoDB整合到Linux系统 ZestFinance:前谷歌CIO创立的机器学习+大数据分析公司 7月份浏览器份额:IE仍最受欢迎 Chrome成最大赢家 2013 Q2 Android手机出货量再创新高 iPhone三年来新低 各位水友,有力的出力,没力的看看,拜托 请从位高手帮小弟解决一个棘手的问题……………………多谢!!!!!!! ALLTEC(荔枝)兄弟,兄弟我接帖太快 :( 請這邊來. ★★★ 救命啊! VC 用ODBC访问 Access 数据库的问题 guo->你在www.linuxforum.net中叫什么?有个guoemail是你吗? 软件发布:市场摊位租赁管理系统Ver1.0 软件发布:量和单位转换软件(免费版) 软件发布:五笔快打 在listview中的各个记录listitem中,有没有双击记录的事件 软件发布:伏羲服装鞋业购销存管理系统 软件发布:进销存商务管理pcft-jxc 征集各地童谣.唤醒儿时记忆! 今天我请客! 有关vb调用excel的问题! 有没有关于BDE的单独的分发程序? VB中报表预览打印能不能实现象EXCEL中一样的“按比例缩放”?如何实现? 单机版流量统计 关于Delphi6的安装问题 动态计算公式怎么实现?? 常用的英文字体是什么? 在通信过程中怎样做到防监听、防篡改? 各位大虾现欲用java开发一套网上投票表决系统 应该看什么书?用什么开发工具?(一定给分!) 关于winsock的问题,急急 怎样使用VB6中TREEVIEW控件? 我真的要疯了! 这里有很多Delphi6的控件! 如何在ASP中传递多个参数?displaymsg.asp?page=1在后面我还想加另外一个参数 有没有喜欢画漫画的? 如何得到ActiveX控件的窗口句柄 请问mif文件格式以及、读写方法?高分求解 sco unix的root口令忘了,谢谢. 在PowerBuilder中使用Microsoft Web浏览器控件 ,这个控件在ole中怎么没有啊? 急盼有人答复!!!!!! 急!急!编译exe时出现:link errors提示 具体提示:create of executable file failed? 小笨笨一问 年年岁岁花相似,岁岁年年人不同 VC++初学者的几个大烦恼!(苦呀,谁来拯救我这个VC小兵?) 请教在DELPHI中调用API发送EMAIL的问题!!!!! 有谁知道没有封闭25端口的美国ISP的地址信息??? 水园的过去现在未来 -- 座谈一下 哭笑沉默怒骂攻击噌分拉关系白脸黑脸等等都欢迎 高分求购速达软件单据编辑的DBGrid组件或设计思想! 发表一下意见,做报表用那个控件好 谁有对话框实现的计算器的源程序? 帮小弟看一下这段程序,不好意思,只有10分了 Delphi多线程有用吗? 初学JAVA,还有一些问题烦劳各位大侠指点? 请教一个c语言库函数问题? 动不动就谈"爱国"的人请进 如何改变开机声音??? 菜鸟有一问题请教 请看一下我的程序错在哪里,好吗? 2+2等于几? 3小时25分等于多少小时,怎么来的 大肠杆菌感受态细胞的制备与转化实验:在转化实验中,涂平板前需要在37度下振荡培养30-60min大肠杆菌感受态细胞的制备与转化实验:在转化实验中,涂平板前需要在37度下振荡培养30-60min,请 2+2等于几啊 8π-20 等于多少?怎么算, 大肠杆菌DH52a感受态细胞 25下午1点,25小时后是几号的几点? 用分数表示:25分钟=( )小时,2500克=( )千克 提取DNA后为什么要跑胶 第25小时怎么样 25分钟=( )小时 最简分数 提取DNA时为什么要用新鲜血液 第25小时电影求求求, 2.15小时=?小时(用分数表示) 3小时15分=?小时 质粒DNA提取中为什么要用冰预冷溶液I和溶液Ⅲ? 第25小时的结局他爸爸要载他去哪里?是帮他越狱?还是送进监狱? 45分钟=多少小时 用分数表示 提取叶绿体是为什么要在冰浴中进行 如果一天不是24小时 是25小时,一小时是70分钟 你会怎么办? 正切1度29分是多少 农杆菌感受态细胞制备失败和质粒没有转进去的可能原因 黄金一盎司等于多少克 正切根3是45度,那么正切根2是多少度呢 大肠杆菌感受态制备为什么要冰上操作,0-4℃操作.还有,为什么要采用对数生长期的菌?不要只给一个简简单单的回答说转化率高,要具体、详细点的,最好有原理, 一盎司等于多少克黄金? 正切45是多少 感受态的制备我制备的感受态加DMSO放-80最近转化率总是下降不知是什么原因, 一盎司黄金等于多少克 15.8°化成度 分 秒 BJ5183细胞感受态的制备我之前用拿来的BJ5183菌液划板挑单菌落,然后扩大培养保存菌种.最近用该菌种用氯化钙法制备感受态细胞然后用pShuttel-CMV转染(连上了目的基因),但是Kna板子上培养了 一盎司黄金等于多少克黄金? 8/15-1/4= 大肠杆菌感受态细胞转化实验中没冰浴就热击会怎样?之后又冰浴30min,还再热击一次,这样会有什么后果?问题严重么? 黄金1斤等于多少两 0.8,里面有( )1/15 聚苯乙烯微球是什么是什么 1港两黄金等于多少克 正切函数的一个问题可是从函数图象上来看,在不一样的区间有不一样的对称中心啊.. 制得的聚苯乙烯微球如果进行真空干燥 多长时间合适? 1盎司黄金等于多少克 什么是正切函数 我要制备核壳结构的PS/TiO2纳米材料,现已制备出纳米级的PS微球,但现在用水热法无法使TiO2包覆其上我应该怎么做.最好有文献名称,望有心人给与帮助, 如果1+2=2+1 那么我爱你等于你爱我么 怎样理解为公司节约一分钱就等于为公司挣得一分钱? 一道正切函数题求函数Y=tan^2x+tanx+1(x属于R,x不等于kpai+pai/2)的值域. 如果1+1=2,那么你爱我是不是等于我爱你? 一分钱等于多少百元 (1)正切函数在整个定义域内是增函数吗?理由?(2)正切函数会不会在某一区间内是减函数?理由? 如果1+2=2+1,那么我爱你就等于你爱我吗?付出就会有回报吗? 请问多少“厘”等于一分钱? 关于正切函数正切函数在其定义域内是增函数,这句话对吗? 1+2=2+1那么是不是我爱你,也等于你爱我 中国一厘钱等于多少元?多少分? 大肠杆菌感受态细胞制备试验中为什么转化后要在37℃摇床上温育45min 如果1+2=2+1 那么我爱你是不是等于你爱我 一分等于几时 如何制备大肠杆菌感受态细胞 2+2到底等于几呢 14小时35分等于几小时 大肠杆菌制备感受态细胞和重组子转化实验中,没有实验结果大肠杆菌制备感受态细胞和重组子转化实验中,将重组子放在含抗生素的培养皿中培养,也就是用蓝白班的方法,但是培养皿上什么颜
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn