万一 - 博客园

2008年6月13日

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: ... 阅读全文

posted @ 2008-06-13 16:34 万一阅读(1772) 评论(0) 推荐(0)

问与答[2008-6-13] - 如何测试博客提供的代码?

摘要：如果测试本博客提供的测试代码? 如果有 "代码文件" 和 "窗体文件", 四步走: 1、新建工程(一般是 VCL Forms Application); 2、进入代码页(一般是 Unit1), 全选, 把 "代码文件" 贴入; 3、在窗体设计状态下(Design), 通过右键菜单或 Alt+F12 进入 "窗体代码" 页, 全选, 把 "窗体文件" 贴入; 4、运行! 如果只有 "代码文件",... 阅读全文

posted @ 2008-06-13 15:23 万一阅读(6858) 评论(9) 推荐(0)

再学 GDI+[29]: TGPPen - 自定义复合画笔 - SetCompoundArray

posted @ 2008-06-13 13:51 万一阅读(1977) 评论(0) 推荐(0)

关于动画移动矩形的例子 - 回复 "ps8.0" 同学

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/12/1131232.html#1224216 首先, 实现这个问题有两种方法: 1、边擦边画; 2、先在内存绘图然后再复制到前台, 就是所谓的双倍缓存. 本例使用的是比较传统的 "边擦边画" 法, 但现在更提倡使用 "双倍缓存" 法. 本例效果图(实际的动画效果比这个 gif 要好一些): 代... 阅读全文

posted @ 2008-06-13 00:23 万一阅读(2309) 评论(7) 推荐(0)

2008年6月12日

再学 GDI+[28]: TGPPen - 自定义画笔的虚线样式 - SetDashPattern

摘要：自定义的虚线样式依赖与一个数组, 数组的元素分别代表虚线中线与间的长度, 数组大小好像没有限制; 本例使用了六个元素的数组, 也就是表示虚线有三个线段和和三个间隔构成. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ... 阅读全文

posted @ 2008-06-12 18:27 万一阅读(3703) 评论(0) 推荐(0)

再学 GDI+[27]: TGPPen - 画笔样式 - SetDashStyle

posted @ 2008-06-12 17:20 万一阅读(4132) 评论(2) 推荐(0)

再学 GDI+[26]: TGPPen - 画笔对齐 - SetAlignment

posted @ 2008-06-12 16:48 万一阅读(2720) 评论(0) 推荐(0)

再学 GDI+[25]: TGPPen - 宽度、颜色与线帽

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TeCanvas, ComCtrls; type TForm1 = class(TForm) Com... 阅读全文

posted @ 2008-06-12 14:51 万一阅读(2445) 评论(1) 推荐(0)

用 TClientDataSet 创建 XML 文件的过程 - 回复"丁永其"的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/12/1114450.html#1223758 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2008-06-12 11:32 万一阅读(1961) 评论(0) 推荐(0)

再学 GDI+[24]: TGPLinearGradientBrush - 之三

摘要： TGPLinearGradientBrush.Create( const point1, point2: TGPPoint; {线性渐变起始点与终止点} color1, color2: TGPColor {线性渐变起始色与终止色} ); TGPLinearGradientBrush.Create( const point1, point2: TGPPointF; ... 阅读全文

posted @ 2008-06-12 00:20 万一阅读(2113) 评论(4) 推荐(0)