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

为列表框添光彩-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
为列表框添光彩-Delphi资料

为了改变Listbox和Combobox两个控件的单调风格, 我想在它们的每一项前面加上个图标。从表面上看好像不大可能啦。就在走投无路的时候,我忽然发现这两个构件都有一个style属性, 它可以设为lbOwnerDrawFixed,Draw这个单词吸引了我,然后我又从Delphi的在线帮助中找到了一个相关的事件OnDrawItem,在这个事件中写一段代码,就可以在列表框中的每一项前面添加一个小图标啦。

---- 下面是在Listbox 的OnDrawItem事件中添加的代码:

procedure TForm1.ListBox1DrawItem(Control:

TWinControl; Index: Integer;

Rect: TRect; State: TOwnerDrawState);

var

Bitmap: TBitmap;

Offset: Integer;

begin

with (Control as TListBox).Canvas do

begin

FillRect(Rect);

Offset := 2;

Bitmap := TBitmap.create;

Bitmap.LoadFromFile(′d:\temp1\1.bmp′);

//指定图文件是d:\temp1\1.bmp

BrushCopy(Bounds(Rect.Left + 2

Rect.Top

Bitmap.Width

Bitmap.Height)

Bitmap

Bounds(0

0

Bitmap.Width

Bitmap.Height)

clRed);

Offset := Bitmap.width + 6;

TextOut(Rect.Left + Offset

Rect.Top

(Control as TListBox).Items[Index])

end;

end;

---- 进一步,利用OnDrawItem事件的参数Index还可以在不同项前面添加不同的图标。还要告诉你的是, 当用add方法为列表框或下拉框添加项目时, 会自动执行 OnDrawItem事件,这样新添加的项目前面也就有了一个图标。

云适配CEO陈本峰:8年磨一剑 Splashtop企业应用:SplashApp让办公移动起来 时空旅行+内付费“植物大战僵尸2”下月18日全球同步发行! 中移动推网络电话Jego 后来者能否居上? 防止数据泄露:BYOD下的管理员5大妙招 咕咚副总裁司建铭谈移动时代的“软硬整合” 未来的物联网结点:可穿戴设备 应用开发的4个技巧,让程序能真正为用户使用 Google早期的10个API:它们现在在哪? 为啥微软开发产品总是慢半拍? 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 叶成辉:软件定义数据中心实现统一、开放的管理 停止函数执行 请问如何在鼠标点击xx button 的时候获得 JtextField 中的文本输入--有重分送 我不能关机了!救救我哟~~给你分! tomcat4.0.1无法启动的问题 SoS!俺用fireworks做了一套菜单,但是应用于框架结构中时,只显示菜单所在框架的部分菜单。也就是说菜单显示不完整,如何能够让菜单跨越 刚装了REDHAT 7.2,不知道网络怎么设置 报表打印,望各位指点..... 是不是我这里设错了? 菜鸟有问题,Win2k的定时关机程序 关于天数累加的问题 webbrowser控件问题? 421连续进纸标准,打印问题,难啊,难 有个小问题难住偶了! 请教 bdf 文件的格式 在JPrint中如何设置页面的打印范围(不使用打印机的默认打印范围),找不到例子,那位能够给个实例。。。 开发jsp需要什么环境和安装软件,目前版本为多少? 在PASCAL语言中的"集合"概念,如何转化成C语言表示 怎么回事。formshow 不能写太多sql语句么〉?,怎么不显示?大家快帮看看,急死了 自动累加的问题?(100)我只能给这么多了 哪里可以下载powerbuilder7.0 网页自动累加的问题(100) help 求肋!! 有关SUN WORKSTATION OPENBOOT的问题 请问一下vb6和.NET 请问,如何用flash 做一个网页“访问量统计”计数器? 请问在win98繁体下开发的pb源程序,在简体win98下怎样转过来?急,请帮忙! 手提电脑,没有软驱,现有一外置USB软驱,但是找不到光盘驱动, 谁有用vb开发组件的详细文档资料或教程 关闭窗口的问题!! 欢迎有志向的VB程序员加入到我的团队!!! 大家做Web Service的时候,是使用SqlDataAdapter这类控件 ,还是自己写SQL语句访问,还是自己写数据访问中间件(e.g:dll),那个在生产环境 webbrowser问题 hello 请问我的servlet程序应该放在哪里?我使用tomcat 欢迎有志向的VB程序员加入到我的团队!!! 有没有当网管的兄弟啊,交流一下 在IE设置为缺省的情况下,怎么用ActiveX? 急!急!100分问题求解(不够可加)输入中文到oracle数据库乱码的问题 请教一个小问题:通常自己定义的ID在那里定义好?也放在Resource.h里面吗? pascal求问 请问有谁知道哪里有水晶报表的中文教材? 这个问题我很头疼,大家能否帮帮忙? pascal 哪位大虾告诉我哪里可以下载bc3.1的编译器 怎么样在mts object代码中使用计时器?类似TTimer.onTime哪样 请问如何在对话框中,设定单选的默认值? 在PASCAL语言中的"集合"概念,如何转化成C语言表示 探讨数据库设计的最实际的原则!高手新手都请进!! ActiveSkin 的问题,知道的人来捡分啊!:) VB可以写COM? 高分求教:怎样用DX Show将获得压缩卡的压缩流? 一棵树能做多少张A4复印纸 一道物理磁场题,为什么图像f会超过mg? 哺乳动物有多少种? 为什么人都要活得那么累呢,为什么世界不可以多点宽容, 如图,匀强电场方向水平向右,场强E,丝线长L,上端系于O点,下端系质量为m带电量为+q的小球,已知Eq=mg如图,匀强电场方向水平向右,场强E,丝线长L,上端系于O点,下端系质量为m带电量为+q的 进化世界哺乳动物怎么弄? 决定圆心大小是(?) A直径 B圆心 C半径 为何匀速圆周Eq=mg,请说明,我做计算题碰到的 为什么自行车在行驶过程中受到的是静摩擦力?车轮子明明在动啊? 圆心符号问题,不知道是直径还是半径一个圈,然后在上面一根斜线从右往左,这是直径还是半径的意思? 如果绵羊的只数比山羊的只数多20%,那么,山羊的只数比绵羊的只数少百分之几?有没有在详细一点的我看不懂 某农场有绵羊490只,山羊只数是绵羊的7分之4.山羊有多少只?(写出数量关系式,再用方程计算) ()叫做圆心,()叫做半径,()叫做直径,()叫做圆的周长.准确点 山羊比绵羊多12只,多的只数正好占绵羊的25分之4,绵羊有多少只求助啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!帮忙知道的,告诉我解答方式好吗?快快快快 某农场有绵羊490只,山羊只数是绵羊的7分之4.山羊有多少只?(写出数量关系式,再用方程计算) 急 汽车通过拱形桥 圆周运动对于一辆汽车通过拱形桥最高点时,恰好无压力是v=根号gr(半径),老师说当汽车通过最高点恰好对桥面没压力时,是能够安全通过的最大速度,当时经过计算当汽车以根 人怎么才能做到相互理解 相互宽容 世界上共有多少种水生哺乳动物 汽车通过拱形桥作圆周运动,则以一定速度通过最高点时?为什么? 李爷爷养山羊和绵羊共50只,山羊比棉羊多24只,山羊的只数占羊总数的?棉羊的只数占羊总数的? 苹果的三分之二与利的五分之四正好相等,梨25千克,苹果多少千克 如图16所示,汽车过拱形桥时的运动可以看做匀速圆周运动,质量为1吨的汽车以20m/s的速度过桥,桥面的圆弧半径为500m,g取9.8m/s2,则汽车过桥面顶点时对桥面的压力是A.800N B 如何做到,相互信任,相互理解,相互包容. 毕业很久了,帮人做题,发现全忘啦.载人舱在将要着陆之前,由于空气阻力作用有一段匀速下落过程.若空气阻力与速度的平方成正比,比例系数为k,载人舱的质量为m,则此过程中载人舱速度应为? 一张普通的A4纸的重量是多少?我前几天寄了三张A4纸, 是寄往本市的. 我只贴了8角的邮票, 我总是担心超重被退回来.邮局现在很黑, 到不到就超重. 包括信封, 邮票, 和里面的三张A4张, 加起来会 父母之间怎样才能做到相互理解,相互宽容? 利用频闪照相法可以测量物体间的动摩擦因数.在暗室中,有一正方体小物块在倾角为θ的固定斜面上做初速度为零的匀加速直线运动.若在释放小物块的同时打开照相机的快门利用闪光灯将它 一张A4纸有多厚?多重? 可以宽容待人人怎样做到? 一张A4纸面积多少 汽车在凸拱形桥上由A匀速运动到B,以下正确的是(A在B上方)A牵引力做功与克服摩擦力做的功相等B合外力对汽车做功为0C该过程汽车机械能守恒 买2千克苹果5千克梨比买6千克苹果5千克梨少支付12.4元,买1千克苹果多少元 动物之最:最长寿的哺乳动物? 汽车在圆弧拱形桥上由桥顶A匀速运动到B,下列首说法正确的是A 牵引力和摩擦力做工之和为0B 牵引力和重力做工之和等于汽车克服摩擦力做的工C合外力对汽车做工为0D重力做工的功率保持不 一张A4纸加一个信封大约多重?寄一封省内平信 不知道贴几元邮票 就一张A4大小的纸和信封 最长寿的哺乳动物是?如题 F=Eq(匀强电场)这式子怎么来的 两张明信片加一个信封有多重?准备给国外的朋友寄明信片,邮局说一张的邮资是4.5,一封20g以内的信件是6块钱,所以想一个信封装两张明信片.但是不晓得会不会超重.明信片是同学定制的,信封 1.最长寿的哺乳动物是什么?2.最聪明的哺乳动物是什么?3.跑得最快的动物是什么?4.飞得最快的动物是?5.世界上最长的昆虫是什么?6..世界上最小的鱼是什么? 物理w=fd,适用于什么电场中? 一张照片加两张信纸加一个航空信封有多重还有一张邮票 请问哺乳动物中最长寿的动物是谁 什么情况下用F-f=ma,什么情况下用F=ma? 信封一般什么纸 如何测量一张a4纸的体积 物理:为什么E=F/q适用于一切电场,E=kQ/r^2仅适用于真空中点电荷的电场?后者是前者舍去q得到的,为什...物理:为什么E=F/q适用于一切电场,E=kQ/r^2仅适用于真空中点电荷的电场?后者是前者舍去q 信封用什么纸 一张A4的纸怎样叠体积最大用来装水的 你怎样理解''人与人之间相互沟通''的重要性?谈谈自己的看法. 世界上有哪几种哺乳动物 谁知道在陆地上生活的哺乳动物最大的,最小的最低的与最高的各是什么?```急用```~陆地上生活的哺乳动物,那个最大```那个最小```那个最低`那个最高?`````````急用亚`````各位帮帮我``````! 造句:( ),我不一定( ),我( ).所以人与人之间需要相互倾听,相互理解与沟通. 山羊的只数比绵阳的7倍多12只,山羊比绵阳多120只,求山羊和绵羊各多少只 陆地哺乳动物介绍是特征 怎样理解沟通 自行车匀速前进时所受摩擦力是静摩擦力,这是为何? 直径是圆里最长的线段.对不对 女孩与花的私语中“只要用心交流,你也能听到花的细语”这句话的理解 世界上一共有多少种哺乳动物 一包A4纸多少钱?有几张?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘