Chinaunix首页 | 论坛 | 博客
  • 博客访问: 14490414
  • 博文数量: 5645
  • 博客积分: 9880
  • 博客等级: 中将
  • 技术积分: 68081
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-28 13:35
文章分类

全部博文(5645)

文章存档

2008年(5645)

我的朋友

分类:

2008-04-28 20:48:52

下载本文示例代码
  Delphi5是Borland公司开发的全新的可视化集成开发环境,它使用语法严密的Pascal语言,并封装了Windows中的构件,形成了自己的一套控件库体系-VCL(Visual Component Library)。VCL控件体系具有很强的扩展性,为开发者设计特殊视觉效果的控件提供了技术支持。本文就Delphi5中的TListBox控件,通过多种手段实现了它的七种特殊视觉效果,以期对广大程序爱好者在界面设计上有所启发与帮助。  一、 基础知识  涉及TListBox自定义重绘的属性和事件:  属性:   Style: 取值为lbStandard(标准风格),lbOwnerDrawFixed(所有者固定绘制风格),lbOwnerDrawVariable(所有者可变绘制风格)  说明:   1. 当Style = lbStandard时,使用控件默认的绘制风格。   2. 当Style = lbOwnerDrawFixed时,用户只能在控件默认大小的区域绘图。   3. 当Style = lbOwnerDrawVariable时,用户可改变控件默认的绘图区域大小并决定如何绘图。  事件:   OnMeasureItem:当Style = lbOwnerDrawVariable时计算TListBox中某项的高度时调用。   OnDrawItem :当Style = lbOwnerDrawVariable时由用户例程确定如何绘制TlistItem。  由此,可以看出,要实现定制界面风格的TListBox,首先,需要设置TlistBox的Style 属性为lbOwnerDrawVariable,其次,需要写自定义的重绘事件。共4页。 1 2 3 4 :   Delphi5是Borland公司开发的全新的可视化集成开发环境,它使用语法严密的Pascal语言,并封装了Windows中的构件,形成了自己的一套控件库体系-VCL(Visual Component Library)。VCL控件体系具有很强的扩展性,为开发者设计特殊视觉效果的控件提供了技术支持。本文就Delphi5中的TListBox控件,通过多种手段实现了它的七种特殊视觉效果,以期对广大程序爱好者在界面设计上有所启发与帮助。  一、 基础知识  涉及TListBox自定义重绘的属性和事件:  属性:   Style: 取值为lbStandard(标准风格),lbOwnerDrawFixed(所有者固定绘制风格),lbOwnerDrawVariable(所有者可变绘制风格)  说明:   1. 当Style = lbStandard时,使用控件默认的绘制风格。   2. 当Style = lbOwnerDrawFixed时,用户只能在控件默认大小的区域绘图。   3. 当Style = lbOwnerDrawVariable时,用户可改变控件默认的绘图区域大小并决定如何绘图。  事件:   OnMeasureItem:当Style = lbOwnerDrawVariable时计算TListBox中某项的高度时调用。   OnDrawItem :当Style = lbOwnerDrawVariable时由用户例程确定如何绘制TlistItem。  由此,可以看出,要实现定制界面风格的TListBox,首先,需要设置TlistBox的Style 属性为lbOwnerDrawVariable,其次,需要写自定义的重绘事件。共4页。 1 2 3 4 : 下载本文示例代码


Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效Delphi中ListBox控件的六种特效
阅读(511) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~