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

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

使用PHP来操作Oracle数据库 -PHP初学入门教程12 技术杂项PHP教程结束篇 -PHP初学入门教程13 .NET中DataSet和DataReader的区别与转换 CGI技术及其开发(二)-Delphi资料 CGI技术及其开发(一)-Delphi资料 COM/DCOM中如何传递数组-Delphi资料 COM与DCOM的区别与联系-Delphi资料 Cookie的建立使用-Delphi资料 Delphi 3中Cookie的建立使用 Delphi 中 串 行 通 信 的 实 现 Delphi4.0 开发WEBMAIL程序 Delphi4的Winsocket编程 Delphi4开发WEBMAIL程序 Delphi编写网络程序的安全措施 DELPHI 和 THE INTERNET Delphi开发Web Server程序如何返回图像 Delphi开发Web Server程序响应用户的输入 DELPHI与INTERNET(二) DELPHI与INTERNET(一) Delphi中串行通信的实现 Email 服务器的简单实现-Delphi资料 Internet编程技巧-Delphi资料 SMTP组件的使用方法-Delphi资料 Web Server程序开发环境的建立-Delphi资料 WEB数据库的开发-Delphi资料 Win32 行程通讯的观念与技术-Delphi资料 编程发送E-mail-Delphi资料 调用那个函数得到本机的IP-Delphi资料 动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 如何在程序中动态取得Win98的网络邻居中的工作组及计算机名-Delphi资料 jsp和mysql的问题小弟拜求再线等 请大家介绍几种检测内存溢出的软件,谢谢!(各种系统下的都行) 这是如何做的 我发的贴子没人来看呀,解决了,我把自己的分全给你!********** mysql远程连接的问题 为什么国内域名比国际的还贵呢? 是否继续当中型软件公司做程序员还是到小公司独当一面? vc7中的CDHtmlDialog值得用吗?请大家来讨论一下! 为什么国内域名比国际的还贵呢? 急急急,我又碰到大麻烦了!~? 在DOS环境下用什么命令来查看非文本文件内容,如在UNIX下的cat命令的功能,在线急等。。。 ★在软件中提供了自定义热键的功能,但是我如何判断该热键已被占用了呢??? 羽毛球爱好者,请进 入门:关于验证字已失效的问题 blob字段如何存取? 一个编程论坛 那位能给我一个qq号呀,我急用 liangdiantech@163.com 羽毛球爱好者,请进 请问哪里有Microsoft Application Center Test的相关资料?多谢 非常简单的问题!!! 轻松心态,远离非典! 在自己的机器上打不开联接 DataModule的问题(菜鸟级) 怎么把表中的列约束为唯一的? 一个编程论坛 从没见过的问题!!!晕了!! 安装问题,请指教! C++的应用是什么意思呢? 得到上传文件大小的问题,解决高分相送!! R6中的问题!高手请进!高分求救! 一个电子书籍下载和编程论坛 请问怎么在vb中调用纯c接口的api并实现多线程 如何在一个很大的文件中删除一段数据?不用拷贝的方法 the C++ programing language里的两个小问题!!! 找在没行带checkbutton的listbox控件类 我可怜的QQ被盗了~~有什么密码破译软件取回QQ的密码吗 VARIANT结构中,如何通过pvarVal指针来获得串口传来的二进制流?? 天啊,这就是《程序员》? 编译java程序需要哪些工具,菜鸟提问. how to use *.pak?? ★在数据窗口中如何同时实现多行操作,如update或delete多行。 请问oracle8i的下载问题! 请问MSDN.net 中文版光盘出了吗??????????????????????? 关于STRING的问题 在IE中程序运行有错误?请指点! JB8做个BMP,奇怪问题 有谁知道*.dns用什么软件打开吗,急!!! 大家给我推荐一个delphi源码网站 Oracle8.17的安装问题,请大家帮忙,急呀!谢谢! csv文件存储求助 问个关于checkboxlist控件的用法! 美国安局30天内收集西班牙6050万韩国陆军前方哨所一士兵中枪身亡 军方宁波公共自行车实施满月 绿色出行渐获北京全城再陷严重污染 首次启动蓝色预中央气象台继续发布霾黄色预警 华北局尼日利亚叛军袭击军队 医院收到35具财经随笔:俄罗斯老拉达遭遇进口车挑战格鲁吉亚大选出口民调显示执政联盟或将澳大利亚山火多处火情失控 1名救援飞美管理自身经济能力遭疑 奥巴马急于吸浙江温岭遇害医生遗体被送殡仪馆 医务温岭市一医院“10·25”事件善后工综述:东南亚能源市场潜力备受关注南航空客380首航悉尼成功外交部就安倍涉华挑衅言论、美监听他国外交部:中方对叙提交化武初始宣布和销张平会见欧洲客人新闻分析:格鲁吉亚大选后内政外交如何新闻人物:格鲁吉亚当选总统马尔格韦拉研究:飞机座椅加宽1英寸 乘客睡眠质IPCC中国宣讲会:21世纪末全球气中俄经济”搂紧“,美日如芒刺在背,原浙江:“扫黄打非·净网2015”案件散户注意:下周的这三个大坑,千万别跳极乐世界比十方诸佛刹土殊胜的地方,在微整形隐藏的祸心,吸引的不全是人16年准备结婚,求大家给点装修意见。王锡东:回到主场感觉很亲切火了!2016年股市最火预测: C浪女子横穿车流被摩托男一脚踹倒 抢路还2016券商选出“十大金股” 仍偏爱证券交易印花税上收 征管改革或将破冰2015年全国电影票房440亿元 4市场很折腾 国家队重仓股或暗藏“钱”中国崛起,还独缺一个“契约精神”!女人鞋跟越高,经济越不景气?20条趣2016年哪些亚洲市场有可能带来惊喜元旦发福利,一天1000万,你还不抢念阿弥陀佛是修大福报,念阿弥陀佛是修马勇:武昌起义的远因和近因9位老股民现身说法:不要等到亏本才知2016年大宗商品市场投资机遇
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘