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

具有不同字体的列表框-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
具有不同字体的列表框-Delphi资料

一般情况下,列表框内所有项的字体、大小、颜色等属性都是一样的。但是我们可以通过编写简单的程序使得每一项都能有自己的字体、大小和颜色。为了对比,我们用了两个Listbox构件,Listbox1按一般情况显示,Listbox2显示的每一项都可以有自己的字体、大小、颜色。

首先把Listbox2的style属性改为lbOwnerDrawVariable。然后分别编写它的OnDrawItem事件和OnDrawItem事件。下面就是Listbox2 的OnDrawItem事件和OnDrawItem事件的代码:

procedure TForm1.ListBox2DrawItem(Control:

TWinControl; Index: Integer;

Rect: TRect; State: TOwnerDrawState);

begin

with ListBox2.Canvas do

begin

FillRect(Rect);

Font.Size := 12;

if Index mod 2 =0 Then

begin

Font.Name := '宋体';

Font.Color := Clred;

end

else

begin

Font.Name := '隶书';

Font.Color := Clgreen;

end;

TextOut(Rect.Left+1

Rect.Top+1

ListBox2.Items[Index]);

end;

end;

procedure TForm1.ListBox2MeasureItem

(Control: TWinControl; Index: Integer;

var Height: Integer);

begin

with ListBox1.Canvas do

begin

Font.Size := 12;

if Index mod 2 =0 Then

begin

Font.Name := '黑体';

Font.Color := Clred;

end

else

begin

Font.Name := '隶书';

Font.Color := Clgreen;

end;

Height := TextHeight('Wg') + 2;

end;

end;

此程序在Windows95、Delphi4.0环境下运行通过。

8月份浏览器份额:IE浏览器PC端出现反弹 移动端跌出前五 如何让Ruby项目速度提升10倍 跨平台进行到底:Facebook发布Unity SDK 云薪资管理初创公司ZenPayroll:年处理薪资超1亿美元,获多位知名CEO力挺 Twitter开源Summingbird:近原生编码下整合批处理与流处理 亚马逊推Matchbook 欲将顽固纸质书读者拉向电子书 Broadcom为可穿戴设备推新开发平台WICED 再战江湖 New Kodak还牛不牛? 郭理靖:公、私有云架构异同点与难点 美化代码的15个代码语法高亮工具 你所不知道的虚拟化和云计算 [开源推荐]Effeckt.css项目:CSS交互动画应用集锦 针对Google Glass应用的四大UX设计原则及典型应用 Google收了摩托罗拉,微软收了诺记,黑莓又将花落谁家? 十亿月PV网站秘诀:Reddit自失败中总结的25条经验 粉碎5个NoSQL流言:各司其职,NoSQL的出现比关系型更早 豌豆荚发力移动游戏平台,推出SDK 2.0 BlackBerry Jam Asia 2013即将在香港隆重召开,免费门票限量提供 小米发布会高潮迭起:米3、电视、Hugo大牛 谷歌放在Windows上的特洛伊木马:Chrome Apps应用平台 解析:Google基于数据驱动的招聘面试程序 决战“缓存”之巅:微软 vs. 亚马逊 雪中送炭:十大前沿移动应用开发工具 高通智能手表Toq都用到了哪些技术? 研发周报:修改一行SQL代码 性能提升了100倍 2013年NoSQL就业趋势分析 鲜为人知的静态、命令式编程语言——Nimrod 高性能Web应用打造攻略:扩展过程中20个最大的绊脚石 开源项目Marathon:让你的数据中心像谷歌一样运行 精益化运营:10款移动统计分析工具推荐 移动建站工具(一):分秒钟将Web网站移动化 一个列表控件如何转变为带有滚动的窗口视图? 我想学习写游戏,希望对此有兴趣的朋友,或者能给与帮助的朋友留下联络方法,便与交流 怎样给窗口加滚动条? 大家帮我看看这个存储过程,调用时老报错!! 求救:怎样控制Kodak控件中ImgThumbnail组件的问题 高人救命,如何让在单行textBox中按回车时不会“咣”的一声 在<script language="javascript">中使用aspb出错啊! 求救:怎样控制Kodak控件中ImgThumbnail组件的问题 郁闷!。。。今年我决定不考研。。。人家留在学校备考,我留在学校做课程表查询系统 filter怎么用呀? 怎样可以使得listview可以根据不同的列排序? 请对上海非常熟悉的朋友帮一下忙 求救:怎样控制Kodak控件中ImgThumbnail组件的问题 运行表单时为什么出现“死机”----就是不能很好的运行??? 各位觉得清华出版的《数据结构C++语言描述——应用STL标准模板库》怎么样? 框架的问题? 在<script language="javascript">中使用aspb出错啊! jboss3 跟sql server 2000 数据库连接问题 “确定”按钮与“回车”键怎样进行消息传送 提问!! 如何获取一个字符串中中文字符的个数?50分) 救命啊!关于数字字符串的问题,so easy!送分! 请教一下杭州的PB程序员工资行情 怎样用vb将数据库中的数据以曲线的形式显示出来 在上海的有线通上,如何通过HUB使3台电脑共享上网 请问如何检测当前屏幕分辨率是不是1024*768? 郁闷!。。。今年我决定不考研。。。人家留在学校备考,我留在学校做课程表查询系统 ?一个对象删除的问题?不能确定 请问:为什么编译无错,但生成。EXE文件时却有错,我是在卸载中文VC后安装英文版的 请教一下杭州的PB程序员工资行情 请您对您的言行负责,遵守中华人民共和国有关法律、法规,尊重网上道德 请教一下杭州的PB程序员工资行情 反解密,有谁能那么牛?100分相送!!!!!!!!! 没问题,想倒分怎么办? 正是风雨飘摇日 =============怎么固定一个ActiveX控件的大小为资源里一个对话框的大小?========= 哲学家就餐问题,为了防止死锁,通常用几个信号量就可以解决? 这几天心里赌的慌,女友怎么能够这样! api中怎样初始时就最大化 小问题,在线等....好了就结分 怎么样检查这些端口是做什么的? 我读取数据集的时候,为什么会产生越界的异常? 如何通过超链接传值到下一页 谢谢 如何把当前时间组合成一个字符串? 请教大家一个问题: 请教大家一个问题: 本人给出配置表,请问路由器配置好之后,客户机网上邻居--》本地连接该怎么设置? 提问:页面如何顶边??? 难道嗳!!! 如何在几个窗体之间进行数据传递 请问:为什么编译无错,但生成。EXE文件时却有错,我是在卸载中文VC后安装英文版的 醉则更相枕以卧 这句话的意思 执迷不悟什么意思? 醉则更相枕以卧 以 和 以与他县相犄角 的以用法和意义一样吗? 《执迷不悟》是什么意思? 鲁迅侄女资料 英语翻译帮下忙 醉则更相枕以卧,“更”是不是读第一声?解释为“交替”,引申为“复,又”呢? 写一篇喜欢的地方的景(运用开放五官联想想象的手法)300字 .出自《庄子•秋水》的“子非鱼",下一句是什么? 闽南话 我还要吃怎么说 景色描写(50字以上)急 50字以上!什么都行 德国法兰克福股市DAX指数28日下跌河北宣化女村官称遭官员性骚扰 出示微丝绸之路国际大会在伊斯坦布尔举行伊朗就核问题对话提出新建议内蒙古国贫旗现豪华接待中心 回应称为25省区市前三季度GDP之和超全国总专家称当代难谈“汉字危机” 呼吁重视“今日中国”艺术周系列活动在泰国举行西班牙煤矿瓦斯泄漏致6人死亡印度央行下调经济增长预期企业被强拆讨说法遭踢皮球 对方扬言:想登顶拜佛得三步一跪上海夫妻吵架将儿子送人续:抱养人送孩滨海新区第三届质检机构技能比武活动结安倍施政演说为何不提“中国”(图)嘉应制药(002198) 投资收益主场若全胜 主动权依然在手索马里海盗头目在比利时落网申城全面启动水葫芦整治病重老人被抬进银行改密码东风乘用车新能源工厂开工建设深入大美江西,领悟“物华灵秀”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘