引言: Delphi5是Borland公司开发的全新的可视化集成开发环境,它使用语法严密的Pascal语言,并封装了Windows中的构件,形成了自己的一套控件库体系-VCL(Visual Component Library)。
摘要:中国航天科技集团第十一研究所计算中心 陈彦林 王晓宁
引言
在分布式计算环境中,程序员开发的应用系统除了必须能够正确而且有效率地运行之外,如何让应用系统更为安全强固,不会因为应用程序服务器或是数据库服务器故障而导致整个应用系统无法继续运行也是非常重要的。例如,假设你开发了一个多层分布式应用系统,其中包含了数十甚至数百台客户端机器,数台应用程序服务器,以及一台数据库服务器。有一天所有的用户正在......
摘要:路艳明 刘建民
delphi的vcl提供有mainnenu、popupmenu、button、bitbtn、speedbutton等组件来帮助我们设计菜单功能。这些组件的使用方式非常简单,因而使得菜单的设计也变的很简单。
mainmenu组件是主要的下拉式菜单,大部份的窗口程序菜单都是使用这个对象来完成的。它的优点是设计方式简单,符合标准,不占画面空间。缺点是必须一层一层地进入子功能选项,无......
Delphi中ListBox控件的六种特效delphi5是borland公司开发的全新的可视化集成开发环境,它使用语法严密的pascal语言,并封装了windows中的构件,形成了自己的一套控件库体系-vcl(visual component library).vcl控件体系具有很强的扩展性,为开发者设计特殊视觉效果的控件提供了技术支持.
本文就delphi5中的tlistbox控件,通过多种手段实现了它的七种特殊视觉效果,以期对广大程序爱好者在界面设计上有所启发与帮助. 【程序编程相关:
使用stringgrid的例子】 【推荐阅读:
执行一个外部程序并等待它的完成】
【扩展信息:
3DLabel控件】
一. 基础知识
涉及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,其次,需要写自定义的重绘事件.
二. 特殊效果的实现
在窗体(form1)上放置5个listbox,名称分别为listbox1……listbox5,将所有listbox的style属性设置为lbownerdrawvariable;在form1上添加两个timagelist控件,命名为imagelist1,imagelist2;在imagelist1中装入两个16x16大小的图标;添加两个tbutton控件,命名为button1,button2;再添加一个timage控件,命名为image1.其它操作,见下.
1. 具有图标及热链接效果的列表框
在listbox1的items属性中添加几个字符串,并在listbox1的ondrawitem事件中编写代码如下:
procedure tform1.listbox2drawitem(control: twincontrol; index: integer; ...
下一页 摘要:var
reg:tregistry
begin
reg:=tregistry.create;
reg.rootkey:= hkey_current_user;
reg.openkey′control panel\desktop′,false);
reg.writestring (tilewallpaper,0);
reg.writestring(wallpaper,filename)......