自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 Delphi XE2快捷键(Ctrl+Shift+C\Ctrl+Shift+上下键)失效解决办法。

重新安装Delphi XE2后发现我最常用的几组快捷键(Ctrl+Shift+C\Ctrl+Shift+上下键)时好时坏,极其烦人,后来在https://forums.embarcadero.com/message.jspa?messageID=491338中终于发现了问题所在,原来是AQtime...

2013-07-10 09:40:25

阅读数 3678

评论数 0

原创 挖掘DrawGrid/StringGrid的潜力1

 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, GDIPAPI, GDIPOBJ, Themes, Dialogs, Grids, S...

2009-10-12 21:10:00

阅读数 7503

评论数 2

原创 饭桶牌农历控件包3.0 Beta版(带源码)发布啦

距上次发布已经有一年多时间了,这次更新是应大家要求加上了农历月历控件,下拉框的模式也有改变,增加了一些背景设置功能,如背景图,颜色。。。 欢迎大家使用,如有意义或问题,请发到xzhifei@qq.com,谢谢 下载链接:http://www.2ccc.com/article.asp?article...

2009-07-24 08:54:00

阅读数 1476

评论数 0

原创 饭桶牌农历控件有新版了

近来晚上闲来无事,无意中看了RZ的控件组,发现有一个带月历简单的控件,那个日历的Combox做得很好,就细看了一下源码,随后略有所悟,于是拿来一年多前的那个农历控件进行更新,效果不错,呵如图所示,可以实现除平面与普通界面外,还可实现桌面主题的外框:XP风格的实现并非模拟,是真正的XP风格,实现代码...

2008-01-31 20:05:00

阅读数 2615

评论数 1

原创 QQ的捕捉屏幕的程序

Panel1与lblRect是模仿QQ的那个小提示框,双击选中框时我并没有做什么处理 ,请大家自己看着办 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, F...

2007-07-17 17:18:00

阅读数 2030

评论数 0

原创 WindowsNT/200 环境下要自订纸张尺寸(自定义页面)

近日因项目需要接触了打印机,自定义纸张的大小问题困扰了我一个多星期,还以为XP系统无法自定义纸张,后来在网上搜索时无意中发现,打印机都有最小纸张的标准,如果小于或大于这个标准,就算自定义好了页面,都无法选择它(不会显示出来),如果用程序强制设置打印的话,它会按A4的标准走纸,比如我用的Epson ...

2007-07-05 12:27:00

阅读数 3450

评论数 0

原创 自画TListView带进度条的Item

  自画TlistView带进度条的Item TListView的Item条一般是由系统自画的,但电驴就实现了自画,使之看起来很漂亮,我们用DELPHI也可以实现! 首先要引用CommCtrl单元,这是TListView底层控制单元:uses CommCtrl; //画状态条procedure D...

2007-02-26 16:41:00

阅读数 5452

评论数 4

原创 TListView的ListItem完全自绘

因工作需要完全自绘ListItem,模仿成电驴的样式,查找了N久相关的资料,发现很少有这方面的,最后用ListView_GetSubItemRect关键词在一个小日本的网站上找到一点相关的代码,修改后解决该问题。至于是否存在BUG,偶用了几天还木有发现,如果有什么问题,请大家回复一下,谢谢注意:代...

2006-02-20 11:39:00

阅读数 7913

评论数 15

原创 Delphi自带的SpinEdit控件太丑了,自己写一个替换它

unit UpDownEdit; interface uses  Windows, SysUtils, Classes, Controls, StdCtrls, ComCtrls, Messages; type  TUpDownEdit = class(TCustomControl)  priva...

2004-10-28 15:03:00

阅读数 3156

评论数 3

原创 纸牌控件的编写(上)

使用了系统自带的纸牌库,无需任何资源,具有边角圆滑的效果,支持Windows 98、Windows 2000系统。效果如下图: 还具有自定义图象功能,如下图所示:unit ZFPlayCard;{2003.11.27xzhifei}interface uses  Windows, WinTypes...

2004-05-21 18:17:00

阅读数 1745

评论数 1

原创 纸牌控件的编写(下)

constructor TZFPlayCard.Create(AOwner: TComponent);var  x, y: integer;begin  inherited Create(AOwner);  FCardId := 1;  cdtInit(x, y);  SetBounds(0, 0...

2004-05-17 23:01:00

阅读数 1344

评论数 0

原创 纸牌控件的编写(中)

function cdtInit(var CardWidth, CardHeight: TCoordinate): Bool; {$ifdefWin32}stdcall;{$ENDIF Win32}function cdtDraw(aDC: HDC; X, Y: TCoordinate; Card...

2004-05-17 17:48:00

阅读数 1257

评论数 0

提示
确定要删除当前文章?
取消 删除