- 博客(13)
- 资源 (3)
- 收藏
- 关注
原创 Android Studio插件报“Compatible with IntelliJ IDEA only“错误的解决办法
保存后,重启Android Studio即可解决问题!
2023-08-13 15:45:30
997
1
原创 Delphi XE2快捷键(Ctrl+Shift+C\Ctrl+Shift+上下键)失效解决办法。
重新安装Delphi XE2后发现我最常用的几组快捷键(Ctrl+Shift+C\Ctrl+Shift+上下键)时好时坏,极其烦人,后来在https://forums.embarcadero.com/message.jspa?messageID=491338中终于发现了问题所在,原来是AQtime搞的鬼,在控制面板中的“程序和功能”中把“SmartBear AQtime 7 Standard
2013-07-10 09:40:25
5082
原创 挖掘DrawGrid/StringGrid的潜力1
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, GDIPAPI, GDIPOBJ, Themes, Dialogs, Grids, StdCtrls;type TForm1 = clas
2009-10-12 21:10:00
8835
1
原创 饭桶牌农历控件包3.0 Beta版(带源码)发布啦
距上次发布已经有一年多时间了,这次更新是应大家要求加上了农历月历控件,下拉框的模式也有改变,增加了一些背景设置功能,如背景图,颜色。。。 欢迎大家使用,如有意义或问题,请发到xzhifei@qq.com,谢谢 下载链接:http://www.2ccc.com/article.asp?articleid=5319
2009-07-24 08:54:00
1686
原创 饭桶牌农历控件有新版了
近来晚上闲来无事,无意中看了RZ的控件组,发现有一个带月历简单的控件,那个日历的Combox做得很好,就细看了一下源码,随后略有所悟,于是拿来一年多前的那个农历控件进行更新,效果不错,呵如图所示,可以实现除平面与普通界面外,还可实现桌面主题的外框:XP风格的实现并非模拟,是真正的XP风格,实现代码可以看源码OnPaint过程下载链接:http://www.lexchou.com.c
2008-01-31 20:05:00
2809
1
原创 QQ的捕捉屏幕的程序
Panel1与lblRect是模仿QQ的那个小提示框,双击选中框时我并没有做什么处理 ,请大家自己看着办 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
2007-07-17 17:18:00
2218
原创 WindowsNT/200 环境下要自订纸张尺寸(自定义页面)
近日因项目需要接触了打印机,自定义纸张的大小问题困扰了我一个多星期,还以为XP系统无法自定义纸张,后来在网上搜索时无意中发现,打印机都有最小纸张的标准,如果小于或大于这个标准,就算自定义好了页面,都无法选择它(不会显示出来),如果用程序强制设置打印的话,它会按A4的标准走纸,比如我用的Epson LQ-300K+这款打印机,最小纸张是10CM*10.16CM,而我要的宽度正好小于10CM,后来我改
2007-07-05 12:27:00
3852
原创 自画TListView带进度条的Item
自画TlistView带进度条的Item TListView的Item条一般是由系统自画的,但电驴就实现了自画,使之看起来很漂亮,我们用DELPHI也可以实现! 首先要引用CommCtrl单元,这是TListView底层控制单元:uses CommCtrl; //画状态条procedure DrawSubItem(LV: TListView; Item:
2007-02-26 16:41:00
5994
4
原创 TListView的ListItem完全自绘
因工作需要完全自绘ListItem,模仿成电驴的样式,查找了N久相关的资料,发现很少有这方面的,最后用ListView_GetSubItemRect关键词在一个小日本的网站上找到一点相关的代码,修改后解决该问题。至于是否存在BUG,偶用了几天还木有发现,如果有什么问题,请大家回复一下,谢谢注意:代码只支持ViewStyle=vsReport效果图如下:uses
2006-02-20 11:39:00
8663
12
原创 Delphi自带的SpinEdit控件太丑了,自己写一个替换它
unit UpDownEdit; interface uses Windows, SysUtils, Classes, Controls, StdCtrls, ComCtrls, Messages; type TUpDownEdit = class(TCustomControl) private { Private declarations
2004-10-28 15:03:00
4018
3
原创 纸牌控件的编写(上)
使用了系统自带的纸牌库,无需任何资源,具有边角圆滑的效果,支持Windows 98、Windows 2000系统。效果如下图: 还具有自定义图象功能,如下图所示:unit ZFPlayCard;{2003.11.27xzhifei}interface uses Windows, WinTypes, Messages, SysUtils, C
2004-05-21 18:17:00
2008
1
原创 纸牌控件的编写(下)
constructor TZFPlayCard.Create(AOwner: TComponent);var x, y: integer;begin inherited Create(AOwner); FCardId := 1; cdtInit(x, y); SetBounds(0, 0, x, y); ControlStyle := [csClickE
2004-05-17 23:01:00
1541
原创 纸牌控件的编写(中)
function cdtInit(var CardWidth, CardHeight: TCoordinate): Bool; {$ifdefWin32}stdcall;{$ENDIF Win32}function cdtDraw(aDC: HDC; X, Y: TCoordinate; Card: TCardId; Mode: Cardinal; Color: TColorRe
2004-05-17 17:48:00
1454
ChnCalendar v3.1 beta 饭桶牌农历控件
2009-07-28
ChnCalendar v3.0 beta 饭桶牌农历控件
2009-07-23
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人