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

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

Android开发网将推出每天一类专题 ExifInterface使用,Android 2.0新增类 GraphableButton类实现Android UI开发 Android控件开发之ToggleButton原理 Android标题栏TitleBar全攻略 求助! 我加了一个qq群组,可惜人气不旺!欢迎高手加盟,共同解决疑难杂征! C++中位包装的类成员是怎么用的啊? 关于print 关于下载 一道初中智力题,做做看:) 问一个有点难度的问题,欢迎各位大侠讨论,来者有分! 类的设计问题 数据窗口如何插入空值? 一个亚洲女人在日本鱼市唱的英文歌曲有一段画面是他骑 一辆汽车从甲地开往乙地后立即返回,往返共用了20小 一辆长途客车从甲地开往乙地后立即返回甲地,往返共用 修字下面三撇改成月是个什么字 一辆长途客车从甲地开往乙地后立刻返回甲地,往返共用 请问“修”字,下面的三撇换“羽”读什么? 一辆汽车崇甲地开往乙地立即返回甲地,共用去20小时 动物自救的方法 动物如何进行自我保护 2013全国中小城市百强县市公布 义星巴克高管回应暴利 称在华利润并不比宁波前三季度经济运行情况公布 买本地伊朗考虑政治首都迁出德黑兰 或因城市分析称美若与伊朗展开对话 中东权力平广东吸引力提升 华商投资意愿强烈萨默斯有望担任美联储主席广东多地因水灾受困 中粮我买网启动使反腐败走向规范化制度化全国性文化节11月举行荒唐高手气运无敌帝葫中华控卫逍遥修梦者帽儿胡同旅游鹅尾山神石园旅游惠州哈斯塔特村旅游罔极寺旅游青龙寺旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘