2012年6月3日
摘要：
http://www.ctsys.cn/files/SHOW_FILES.ASPX?ID=22许多的JPEG图片浏览器（如由我设计的《JPEG浏览缩放器》），都可以将JPEG缩略图放置到Listview控件中，实现图片的预览。要在Listview上显示图片，Listview控件必须与Imagelist控件关联，先将图片装入到IMAGELIST控件中，再通过这种方式对应: Listview1.Item[0].ImageIndex=3但是Imagelist控件仅支持BMP和ICO格式，而且装载进去的图片，必须强制转换成一个预定的大小，如32*32等，对于JPEG格式的图片来说,是不支持的,而通过重 阅读全文
摘要：
最近给《JPEG浏览缩放器》增加了水印功能，在设计的过程中，参考了网上的文章，但是发现文章使用的GDI+ API封装包不是我现在使用的那一套，目前DELPHI使用的GDI+ API封装包有两套，一套包括以DirectDraw.*、Gdipapi.*、Gdipobj.*、 Gdiputil.*为文件名，另一套以GdipExport.*、Gdiplus.*、GdipTypes.*、GdipUtil.*为文件名，我使用的是前者，文章所用的是后者，于是将文章原代码根据我用的那套GDI+ API封装包进行修改，修改后的代码如下: USES GDIPUTIL,GDIPAPI,GDIPOBJ;proced. 阅读全文
摘要：
Delphi在Listview中加入Eeit控件2010-07-15 作者:李海彬 阅读:1154 Listview是一个非常有用的控件,我们常常将大量的数据(如数据库里的数据)导入到Listview中,有的时候我们需要编辑Listview里的数据,而它并不提供编辑的功能,怎么样才能使它具有编辑功能呢?你可以试试下面这种方法。 首先在FORM1中放置一个Listview控件和一个Eeit控件。Edit控件有什么用?当然是用来编辑Listview里的内容，程序的想法是这样的：当鼠标点击了Listview控件后，根据鼠标位置将Edit控件放置到Listview对应的Column里，将对应Ite.. 阅读全文
摘要：
Delphi实现悬浮的卡拉ＯＫ字幕2010-07-15 作者:李海彬 阅读:441 千千静音的悬浮式卡拉ＯＫ字幕，大家一定觉得不错吧，其实用Delphi，你也可以很容易的做得到。首先我们在Delphi中新建一个700*130左右的窗体，上面放置两个Image控件，Image控件的Align=alClient,使它们铺满窗口，唯一不同的是，Image1的Visuble=ture,用于前台显示字幕，Image2的Visible=false,用于后台绘制，还要用到一个Timer控件,Interval=100。 要使字幕悬浮在Windows桌面上显示，第一要求窗体是透明的，只显示字幕；第二要求字幕.. 阅读全文
摘要：
Delphi动态选择控件的输入法2010-10-06 作者:李海彬 阅读:475Delphi的EDIT、Memo等可以接受用户输入的控件，都可以通过ImeName属性为其选择一个输入法，但是在编程的过程中，我们无法知道最终的用户会使用哪种输入法，所以对于控件ImeName属性，我们一般不做设置，但在实际应用中，用户又希望他们在录入数据时，能锁定自己常用的一种输入法，其实通过简单的代码，我们就能实现这一点。procedure TForm1.FormCreate(Sender: TObject);var I:integer;begin//初始化的时候，将电脑所安装的输入法列举加入Combobo.. 阅读全文
摘要：
DelphiFastReport动态加载图片2011-01-06 作者:李海彬 阅读:684 以前用FastReport制作报表,从来没有打印过图片,这段时间做了个打印个人简历的程序，需要打印照片。试着在frreport模板中加载照片没问题，可是想要动态的装载照片要怎么做呢，我的要求是将个人简历包括照片存放在数据库中，在用户查看简历时，先将简历数据载入，照片放在IMAGE控件中，如果要打印，点击[打印]按钮即可。 由于每个人的简历照片都不同，所以只能在打印时装入照片。上网找了段代码，是C ++ Builder的： TfrPictureView *pic; pic=(TfrPicture... 阅读全文
摘要：
delphi7.0DateTimePicker控件相同日期比较的问题2011-03-19 作者:李海彬 阅读:547 DateTimePicker控件作为日期时间控件,在DELPHI中使用得很广泛的,它根据KIND属性可设置为日期控件（dtkDate）或时间控件（dtkTime）,我一直认为，将它设置为日期控件时，与时间是无关的，可是在实际应用中，发现并不是这样。 比如下面的这一个程序，两个 DateTimePicker分别用于设置查询数据的起始日期和终于日期，要执行查询时，要求起始日期不能大于终止日期，否则弹出错误提示，可是在两个 DateTimePicker设置的日期相同时，按下[查询.. 阅读全文
摘要：
LISTVIEW导出到EXCEL的通用函数2011-08-25 作者:李海彬 阅读:470 使用Delphi开发数据库系统软件时,经常会使用Listview控件作为数据库的容器,而将数据导出到Excel中,也经常要用到. 首先在FROM中添加一个BUTTON控件,一个LISTVIEW控件(设成vsReport),一个SaveDialog控件. 下面给出将Listview控件直接导出到Excel表格中的通用代码:use comobj;//直接将LISTVIEWR控件作为入参.procedure TForm1.Excel_lv(lvpt:tlistview);var XL,SHEET:vari.. 阅读全文
摘要：
DateTimePicker是常用的日期时间控件,在作为日期控件使用时,我们一般只能在上面显示年/月/日的信息,虽然我们可以通过Format格式字符串来设置日期的样式,如用yyyy表示年份,M表示月份,d表示日期,但对于星期几,好象没有相应的英文字母来代表它.而在一些软件上,我却看到它们可以在DateTimePicker上显示星期几,如何实现的呢?应该是通过FORMAT吧,我试写了一下代码,在每次改变DateTimePicker的日期值后,重新计算该日期值是星期几,之后重设DateTimePicker的FORMAT=’yyyy年m月d日星期几’来实现.以下是代码://设置DateTimePic 阅读全文