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

具有不同字体的列表框-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环境下运行通过。

《近匠》APICloud:“云”+“端”一体的移动API提供者 Oculus移动SDK发布!John Carmack操刀、集成Unity 4.5 11月15日深圳见!深圳微信开发者大会公布全部议程 参与2014中国大数据行业大调查 BDTC门票等你拿 HTML5规范尘埃落定,5个开发工具推荐 盘点最受开发者喜爱的Android 5.0 Lollipop API IoE Day侧记:想开发智能硬件?先要弄明白这几个问题 【问底】许鹏:使用Spark+Cassandra打造高性能数据分析平台(二) 微软承诺所有Lumia WP8设备将升级至Win10,用户会买账吗? 周末,深圳微信开发者大会等您来!(参会必读+名单) 营造云安全生态链 第五届云安全联盟高峰论坛在京顺利召开 中国大数据六大技术变迁记 【最具价值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宣布开通国内开发者通道 急急急...为什么我拨号已经拨通了,但我还是打不开网页,ping各个网站也ping不通 各位前辈好.关于TCP/IP协议应用的问题,请大家指点. ***软件加密,急急急!!!请高手指教*** 寻找与CSDN类似的社区软件 谁有SCJP SL-275的原版电子版教材? 标准C程序中调用类的编译错误 access的mdb数据库如何编程知道里面含有那几个表? 谁有瑞星的升级程序,或是授权ID什么的?现在瑞星升级很烦啊!又是注册,又是授权的。 好象很少有人讨论日志文件的,能介绍点好的website吧(国内外均可)谢了先 Ghost之后,20G只剩下一个2G的C:!!!如何恢复,请指教,多谢!!! 我是初学者,问一个比较傻的问题:既然JAVA是一种纯面向对象的语言,那么为什么int i=new int()或int i=new int(1)不能通过编译?谢谢。 哪位能讲解一下,WEB服务器启动一个PHP 脚本的过程? 哪位朋友有没有做过让asp自动生成 Access数据库中的一张表 现想做一模块,主要是对股票数据在网络(包括公司内部网或是INTERNET)进行实时的发送; 关于DcomConnection的一个问题:连接局域网其他机器的应用程序服务器时“拒绝访问” 在VisData中正常通过,但在程序中不能通过,为什么 图像的小波分解和重构,模极大值算法。 师傅不在QQ,在这里吗?有个问题.//小新的徒弟. 老千,上次的那个rose下载网站,你还记得吗?偶忘了,搜索了几遍野没找到//牛虻 在VisData中正常通过但在程序中不能通过,为什么 向各位高手请教两句:tab_1.post selecttab(3) 的作用是不是向tab发送消息,消息内容是selecttab(3)?yield()是不是从消息中查找是否有相同消息,如果有则将它拿出执行? 我很莱,谁能给我简单的解释一下线程是什么?脱壳是什么? 图象资料,轻而易举30分! 和大家交流一下泛型化编程 文件拷贝的简单问题, 大家好:请问:access的mdb数据库如何编程知道里面含有那几个表? 怎样将mysql驱动加到jbuilder中,让Database pilot能认得出,高分相送 高分求教:关于ADO实现数据库!!!!!!!!!!谢谢 请问如何一次删除数据库中的所有数据? 怎么使label框透明!帮帮我! TNMUDP问题:怎样才能知道RemoteHost连接失败??? 谁有CuteFTP Pro2.0注册码?谢谢 如何进行DropDownList绑定,谢谢! 请问一个CString的问题 那个168查分台太可恶了 WIN98与WIN2000共享一个OFFICE??? 网络连接怎么检测 能把IE浏览器最大吗?俺指的是把右上最大按钮最大化? 怎么判断表单传送的整数中不能有字符,谢谢!!! 如何把我写好的说明书放到我VC++应用程序的帮助文件中? 求最容易理解,最容易上手的数据库书籍,各位老大请指教,谢谢!! 快!快快!!来拿分呀!!!!!!!!一个简单问题。 WIN98与WIN2000共享一个OFFICE 2000??? 在Servlet中如何使用JavaBean(调用其中的方法)?主要是格式!如果网上有这方面的资料也可以告诉我,我急用,不胜感激!40分送上!(只有这些了) 请问各位:怎样才能知道某一个进程所占用的cpu比例,mem大小? 请问在恢复sql 7.0一个数据库文件时,出现Error 3624:这是什么意思?? 关于程序员考试 哪位知道怎么一行一行地读取文本文件呀!!!! 谁知道的,来帮我一下——有关网页浏览计时的问题 如何将数字变为字符串格式化输出? Websphere下使用连接池的一些问题 第二次世界大战的主要事件不要很长, 12、甲、乙两站相距440千米,一辆大车和一辆小车从两站相对开出,大车每小时行35千米,小车每小时行45千米12、甲、乙两站相距440千米,一辆大车和一辆小车从两站相对开出,大车每小时行35千 汽车由哪几个基本部分组成? 电磁阀4v210-08怎样安装使用,有哪位朋友知道电磁阀的进气口,出气口怎么样接的啊? 小车和大车同时从甲乙两地相对开出,小车每小时行82千米,大车每小时行68千米,两车相遇时小车比大车多行35千米.相遇时两车行了多少小时?甲乙两站相距多少千米? 两地相距S千米,汽车走国道,速度为X千米/小时,改走高速公路,车速每小时提高40千米,可以提前几小时到达 中国在第二次世界大战中的地位 检验硫酸根离子的最简单的方法是什么题目大致是“如何运用最贱方法检验溶液中有无硫酸根离子?如果有,应该如何去检验?”由此可知,第二问的答案是加氯化钡,第一问就不可能是了,可第一 汽车的构造的主要部分~ 这种水质能当自来水用吗?洗澡有没有问题?铅含量比自来水高会怎么样?对皮肤有没有伤害?这种水 若要检验无水氯化镁中不含氯化钠,最简单的操作方法是 SMC 电磁阀 型号SMC VK332-5DZ-01字母和数字分别代表什么意思?还有国产的什么型号能代替这个? 第二次世界大战日本侵略中国是怎样呢和什么地方,帮忙一下,谢了啊! 如何运用最简单的方法检验so4 SMC 二位三通电磁阀功能问题个人理解二位三通电磁阀只能控制流体的通断或者换向功能.阀芯也应该是由电磁线圈的得电与失电控制其运动达到电磁阀功能的.但是今天一位老师傅跟我说得电 做矿泉水主要用到什么设备 如何运用最简便的方法检验粗盐溶液中的SO4 一辆小汽车有静止出发做匀加速直线运动,用10s时间通过一座长140m的平直桥,过桥后速度为16m/s.问1 它刚上桥是的速度有多大?2 桥头与出发点相距多远? 第二次世界大战中国发生了哪些事件 如何运用最简单的方法检验溶液中有无硫酸根离子 某小汽车质量为500kg,在1200N的牵引力作用下,从静止开始运动,经过10s速度可达到20m/s,若将小汽车的启动的过程,所受阻力恒定,求:(1)启动过程的加速度大小(2)所受阻力多大(3)启动后,经 中国抗日战争和第二次世界大战全面爆发的标志分别是什么 如何运用最简便的方法检测粗盐水中有无硫酸根离子 如果有 该如何除去硫酸根离子 一辆轿车从车站由静止出发做匀加速直线运动,经10s速度达到108km/h,它的加速度是——谢谢了, 中国在第二次世界大战中起到了怎样作用(一分题) 能证明铝很活泼的实验有? 求推荐SMC电磁阀或者其他合适的电磁阀求推荐合适的电磁阀:三位五通,3/8接口管径,中封式.公司有一机械手,因为气缸带动的部件有一定重量,普通电磁阀容易出现:1、半空停顿时气缸缓慢下 用什么样型号的电磁阀控制或怎样联接,怎样才能把气缸在工作时能停止到上限与下限的中间位置呢? 如何证明铝比锌活泼(实验!)急 汽车有几部分组成 关于二战的故事 铝与稀盐酸反映的速率较快,原因是氯离子对反应有促进作用,设计个简单的试验验证说法正确?铝与稀硫酸较慢,原因是硫酸根离子对有抑制作用,也是设计个?随便问一下,谁有CS1.5版的下载网址 为什么匀速运动的小汽车前面有牵引力? 一个开关,一个气缸,怎么控制气缸上下动作首先,是不使用任何控制阀,只有一个开关;其次我这个是纯粹的气动装置,没有电控;最后这是一个机械往复动作,靠人去执行,按一下按钮气缸压下去 请问感应器感应工件后,电磁阀动作,气缸前进.气缸上的磁性开关和三者有什么关系,会不会给PLC信号?我现在又个感应器控制两个气缸,如果我想让动作正好相反的话,把感应器位置改变下,气管 高速公路上,轿车超过了客车,此时客车的速度是轿车的() 关于气缸的行程控制问题我有一个气缸,我想在气缸上加两个磁性开关,我想通过磁性开关来控制气缸的行程我想气缸走到一半的时候,不知能否在这个时候让气缸停下来. 如何简单的方法及仪器测试饮用水水质 8个人乘速度相同的两辆小汽车同时赶往火车站.每辆车乘4人(不包括司机),其中一辆小汽车在距离火车站10千米的地方出现故障,此时距停止检票的时间还有28分钟,这时惟一可利用的交通工具 如何控制气缸伸缩我对这方面不懂,我需要气缸控制:行程50-100mm,推力1kg左右,按开关,前进至需要的位置后自动停止,再按开关,回原位.请问:1、需要连接些什么元件?2、各元件的参数? 什么是水质测试笔?怎么使用? 什么叫碳酸锰,什么叫半碳酸锰 气缸控制行程我需要气缸做定位运动,假如我选了个行程500MM的气缸,他推着我的工件到一个位置后,工件被传感器感应到,我就给电磁阀断电(因为工件大小不一,所以气缸推的位置也不一样), 想测一下家里的水质,怎么弄 碳酸锰是什么颜色? 汽车尾气中CO和氮氧化物哪个排的更多? 怎么检测水质的好坏?怎样的水才可以饮用?我家的水塘里丢了一些喂鱼的草,鱼没吃完,结果水就有了一种气味,不知道还能不能饮用. 碳酸锰是干什么用的 用 催化转换器 处理后的汽车尾气,由于含有-易于空气中的水蒸气作用,形成酸雾.要解决这个问题,还需采取的 有什么办法可以净化自来水的水质么?家里的水太难喝了.要求:使用生活中常用的东西. MnCO3=MnO+CO23MnCO3=Mn3O4+CO+2CO2请问碳酸锰热分解是哪一个方程式?谢谢!那么与第二个方程式类似的反应是哪个呢? 为什么装有三元催化转换器必须使用无铅汽油? 在高速公路上,一辆长4米,速度为110千米/时的轿车准备超越一辆长12米,速度为100千米/时的卡车,则轿车从开始追尾到超越卡车,需要花费的时间大约是多少秒 如何由废旧电池制备碳酸锰 第二次世界大战期间主要事件 普通农村用户可以用什么基本方法检测井水水质? 小型轿车在高速公路上最高和最底时速是多少? 第二次世界大战所发生的故事 如何进行水质检测,居家水质测定的方法 一辆客车从A地出发经过1小时到B地,再从B地行使2小时到C地.客车在国道上行使的平均速度是高速公路上的3分之2.已知该客车从A地道C地行使总路程是272Km.客车在国道上平均每小时行多少Km
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn