VCL
文章平均质量分 67
xzhifei
软件开发
展开
-
纸牌控件的编写(中)
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 · 1419 阅读 · 0 评论 -
纸牌控件的编写(上)
使用了系统自带的纸牌库,无需任何资源,具有边角圆滑的效果,支持Windows 98、Windows 2000系统。效果如下图: 还具有自定义图象功能,如下图所示:unit ZFPlayCard;{2003.11.27xzhifei}interface uses Windows, WinTypes, Messages, SysUtils, C原创 2004-05-21 18:17:00 · 1969 阅读 · 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 · 1504 阅读 · 0 评论 -
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 · 3942 阅读 · 3 评论 -
TListView的ListItem完全自绘
因工作需要完全自绘ListItem,模仿成电驴的样式,查找了N久相关的资料,发现很少有这方面的,最后用ListView_GetSubItemRect关键词在一个小日本的网站上找到一点相关的代码,修改后解决该问题。至于是否存在BUG,偶用了几天还木有发现,如果有什么问题,请大家回复一下,谢谢注意:代码只支持ViewStyle=vsReport效果图如下:uses原创 2006-02-20 11:39:00 · 8521 阅读 · 15 评论 -
挖掘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 · 8721 阅读 · 2 评论