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

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

VB中播放WAV文件 VB中播放三维动画编程一例 Visual Basic 5.0多媒体创作技巧 Visual Basic 5.0中实现视频画中画 Visual Basic 中制作流水灯 Visual Basic动画编程技术 Visual Basic环境下Video/ Audio压缩数据流播放技术 Visual Basic设计多媒体应用程序 Visual Basic影音控制 Web动画图像分解在VB动画设计中的应用 播放 .flc 动画 -VB资料 播放 AVI -VB资料 播放MP3文件 -VB资料 播放背景音乐 -VB资料 播放声音文件 -VB资料 播放资源文件文件中的声音-VB资料 不用ActiveX控件也能播放声音文件-VB资料 VB创建动态图标 电影结束画面的卷动效果-VB资料 二进制操作截取VCD片断 -VB资料 非常VB测声卡 关闭屏幕保护功能,改变屏保等待时间 -VB资料 VB获取桌面窗口图象 红色警戒&终级动员令-VB资料 检查是否安装声卡 -VB资料 将 .flc 动画档放在某一个 hWnd 之中播放 -VB资料 截取屏幕图像-VB资料 开机,自动更换墙纸 -VB资料 控制PC喇叭 -VB资料 利用VB测声卡 利用VB进行多媒体程序设计初步 胃病难受,各位有什么良药??? 两个简单的问题(perl) 两个小问题。 高分求TurboPower Apro4.0 for bcb5的注册码 急件:怎样动态加载或引用DLL文件 我的SERVLET为何不能响应? 在两个表连接查询时为什么总报错:“Table is read only”? *************小问题,在线等待************** 关于更改程序名字的问题! 关于计算机远程终端控制问题 关于onload ASP的参考手册是什么? 更新数据库的日期时间问题!!! 为什么用insert 语句插入数据,数据长度只有4k左右? exchange 出现的怪问题 入门 菜问题 连接服务器的问题 我这是怎么了? 非常着急,关于bean的问题 在单元格中插入html? 关于两个大表连接和索引的问题 灌水、抢分 echo命令的具体使用方法? 在BIOS密码之后,系统引导之前加密计算机的软件有哪些?请帮忙呀 请问 如何获得mysql的原码 关于onload VB中如何使用资源文件?急!急!急! 关于思路,高分求教!分数不够在添 不得不提问了: 怎样防止用户重复登陆!???? **请问Kylix3在红帽7上如何安装? TEST 求php的win98下开发环境,大家帮帮忙。 我想做一个类似于邮件系统中附件功能的程序,请问用的是什么协议,那里有源码? 为什么输出结果不正确呢??? 急救!用ADO在98下与2K下不能同时运行! 主板的认识! 如何删除相同的两条记录 有关Blob造型成oracle.sql.BLOB的问题。 急死我了!!!RS485通讯的奇怪问题,请高手帮忙! 怎样在delete记录时不往log文件中写东西? 签名支持JK10000行动,同意签名者,进来跟贴!到时候咱们的真名或ID会被复印在传单背面,抵制日货,保卫钓鱼岛!!!!!!!!!!!! 迷惑!!!!!高手指点,值得讨论,谢谢! char型怎么转换成String型?(答对结帖) 请问 哪位大侠有loadrunner的中文测试资料提供一下,非常感谢! JS和ASP的问题????? 高手指点 这样划分vlan可不可以???? 数据库超时 VB+SQl 2000 如何实现在程序运行时加减代码? 各位高手给我个提示有关手动添加消息映射的 关于EjbOBJECT和EJBLOCALOBJECT在使用上的区别?? 国际新闻早报:美国向叙利亚附近海域增[组图]中国女星闪耀威尼斯 盘点出席邓小平与撒切尔夫人交锋记人民日报详解“为何路虎车内地售价高英英国议会否决对叙利亚军事行动提案随笔:警惕叙利亚重蹈伊拉克战争覆辙日本7月份工业生产回升日本7月份物价同比上涨刚果(布)37名学子获奖学金赴华留学王毅与潘基文就叙局势通电话:军事手段北海道最美丽的城市札幌 我们要去逛哪浙江奥迪司机涉嫌毒驾 违停遭罚竟称“精子成最新热门\"商品\" 捐精补贴刘锦当选海南省妇联第六届主席(图/简考生收到假冒录取通知书 报到时才知被新华网:“上任十日被查”,又一起带病买书本别贪白 长期使用过白纸张可引发杏花村3号四大举措重新定义中国白酒日本拟斥2亿日元收集钓鱼岛信息 欲监美英法咄咄逼近叙利亚 叙民众购大量生农业部:畜产品价格总体稳定 猪肉价格全省专业镇协同创新工作现场会召开【首发】“闪修侠”获1000万元Pr日鹦鹉正步侧并步都能走!申报时间截至本月30日袁姗姗:感谢“黑粉”让我变强大昔埋淤泥 今睡“龙床”魅航记录仪128G大内存 让容量不再轩尼诗皇禧 探寻精准之道党员干部拉票 情节严重者开除党籍婚前房产可以加名字吗?佛科院最高每人奖10万你想和TA们睡吗?冒名务工 伤后工厂赔三成投资创业请来城市会客厅东软学院本周六校园开放日5所民办中职年检基本合格优步联通慈铭携手办520车主“关爱日公交?游船?水巴先搞清“我是谁”处世之道月入五千,你的第一只机械表查身份证可报号码
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘