繁體中文当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 具有不同字体的列表框
- Delphi
- 在线播放器DIY
- 关于VisiBroker For Delphi的使用（3）
- 关于VisiBroker For Delphi的使用（2）
- 关于VisiBroker For Delphi的使用（1）
- Delphi的两个实用技巧(2)巧用Windows的API函数
- Delphi的两个实用技巧(1)播放Flash
- delphi学习:两种方法使用xml文档
- Delphi与Word之间的融合技术
- Delphi中动态链接库(DLL)的建立和使用
- Delphi基础:Window 消息大全使用详解下
- Delphi基础:Window 消息大全使用详解上
- 教你在DELPHI中如何调用系统对话框
- Delphi开发单机瘦小数据库程序要点
- 用Delphi + DirectX开发简单RPG游戏
- Delphi7从入门到精通之认识Delphi编辑器
- Delphi7从入门到精通之历数Delphi七个版本
- Delphi学习:图像放大漫游攻略
- 用编程来实现24小时制到12小时制的转换
- 一个实际的OLE服务器的开发
- Delphi一点通:如何将源代码学好
Delphi 中的 具有不同字体的列表框
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 90 ::
收藏到网摘: n/a
一般情况下，列表框内所有项的字体、大小、颜色等属性都是一样的。但是我们可以通过编写简单的程序使得每一项都能有自己的字体、大小和颜色。为了对比，我们用了两个Listbox构件，Listbox1按一般情况显示，Listbox2显示的每一项都可以有自己的字体、大小、颜色。
---- 首先把Listbox2的style属性改为lbOwnerDrawVariable。然后分别编写它的OnDrawItem事件和OnDrawItem事件。下面就是Listbox2 的OnDrawItem事件和OnDrawItem事件的代码：
procedure TForm1.ListBox2DrawItem(Control:TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);beginwith ListBox2.Canvas dobeginFillRect(Rect);Font.Size := 12;if Index mod 2 =0 ThenbeginFont.Name := '宋体';Font.Color := Clred;endelsebeginFont.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);beginwith ListBox1.Canvas dobeginFont.Size := 12;if Index mod 2 =0 ThenbeginFont.Name := '黑体';Font.Color := Clred;endelsebeginFont.Name := '隶书';Font.Color := Clgreen;end;Height := TextHeight('Wg') + 2;end;end;
---- 此程序在Windows95、Delphi4.0环境下运行通过。
评论 (0) All
