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

为列表框添光彩-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事件,这样新添加的项目前面也就有了一个图标。

App提高用户留存率新招:应用性能监测 韩国手游市场规模超万亿 2014中韩手游项目对接会开幕在即 SanDisk发展之路:专注SSD、推新产品线 AMD发展线路图曝光,欲造500+平方毫米GPU 全球移动开发者:IAP降温,企业应用成待掘金矿 Vuforia 2014 视觉大奖赛:寻找最炫酷AR增强现实应用,迈向巅峰! MapReduce谢幕,谁将成为最终的接棒者? 变身音乐控制器!开源JavaScript库NexusUI 从112台服务器到Q2 50亿基础设施开销,谷歌只用了15年 【技术文章】微信公众平台开发教程新手解惑40则 Qualcomm承诺投入1.5亿美元 扶持中国初创企业 物联网多了把“新板凳” 联想推三款智能硬件 .NET技术+25台服务器怎样支撑世界第54大网站 基调网络发布听云平台:“听”懂App性能 《近匠》豌豆荚李大海:用搜索敲开手机娱乐平台之门 微信开发HTML5轻游戏中的几个坑 【微信大会】企业号、支付功能、智能客服与LBS、电商开发解析 【CTO俱乐部走进海尔】活动图文直播进行中 燃料电池商业化,数据中心或将永不断电? 广告教父的哲学:值得F2P游戏借鉴的8条经验 UC李云:基于Chromium的浏览器如何打造更好体验 一周消息树:颠覆互联网思维?年薪50万码农转行卖凉皮 Coconut2D:跨平台2D游戏及应用开发工具 第八届中国大数据技术大会将于12月中旬隆重召开 10个常见的缓存使用误区 用户暴增下的收入降低,AWS面临尴尬 云数据中心选址PK:微软第一,IBM第二,谷歌最少 不应错过2014微信开发者大会的八个理由 为什么软件测试需要变革? 苹果和IBM成最佳搭档 微软谷歌或受威胁 OpenStack社区又添新成员 浪潮推动开放云生态系统构建 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预留字作字段名的问题。 ● 求助,2000 Professional一登录就自动注销,怎么解决? 一个很棘手的问题? 谁给我解释这个JS函数 請高手幫改寫一段datagrid程序. (100分相送) (2)菜鸟问题!!容易拿分呀!! 如何在SQL SERVER上实现ORACLE中的package的功能 对windows编程,如何控制鼠标箭头阿 在2000下,希望不同的账号登陆,文件的可见属性不一样,能做到吗? 页面元素隐藏的问题 急 读文本出现乱码??? 高分求演示制作软件一个,以前知道lotus123可以做,可是找不到下载!!! 如何使窗口最大化? 请问:怎样使jar包里的类能读取同在此jar包中的一个xml文件 关于table abaqus 点和面怎样耦合 ABAQUS温度与荷载耦合如何模拟加载?分析步骤是怎样的? 求应用ABAQUS进行流固耦合分析的实力 请问《来自星星的你》中千颂伊剧中的家,楼上是怎样的格局?求她家的照片》谢了. 来自星星的你中千颂伊穿着都敏俊的毛线衣在第几集? 葵花向太阳是对什么刺激作出的反应 请大家推荐一本学ANSYS温度场(热力学)的书,最好有电机方面的例子. 问个三角比的公式、!1-cos2A sinA平方=—————2这对吗 是什么公式 最好留个Q有图发.我Q 632634789sinA平方=1-cos2A除2 三角比的积化和差的公式是什么?如何推理出来? 猎头公司是做什么的? powder X-ray diffraction粉末x射线衍射粉末? 南非一警察开枪打死津巴布韦外交官黑白简约揭幕多伦多2014春季时装周法政府严打剥削实习生现象 重申实习期以开放促改革:中国的特区美秘密窃听法公民惹怒法总统 法紧急召美国财政僵局刚解 共和党就医改法案再英14岁少年被控5次性侵 3宗案件发分析:美国就业数据疲弱 美联储料谨慎德社民党同意正式谈判 协议达成或需4本网记者乘坐加总理专机赴北极:近距离联合国负责人称叙政府充分合作 销毁化韩朝就离散家属韩方人员住宿问题出现分IMF向巴基斯坦发67亿“救命钱”雅虎美女CEO发布公司新LOGO“文婷姐妹”正式宣布退役:这样结束很国民党:媒体报道马英九康妮救灾讲话断“广西第一胖”4个月瘦百斤 为减肥切中国驻哈大使乐玉成:中哈关系“近、稳原标题:2013海峡渔业周·第八届海30架美军侦查机重新部署于朝鲜半岛 财政部:推动博物馆、纪念馆等向社会免泰国首开“外国游客法庭” 及时维护游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘