上一页 1 ··· 122 123 124 125 126 127 128 129 130 ··· 215 下一页
摘要: TGPLinearGradientBrush.Create( rect: TGPRect; {变化范围} color1, color2: TGPColor; {起始色与终止色} angle: Single; {旋转角度} isAngleScalable: BOOL = FALSE {是否受 TLinearGrad... 阅读全文
posted @ 2008-06-11 19:18 万一 阅读(1805) 评论(0) 推荐(0) 编辑
摘要: TGPLinearGradientBrush.Create( rect: TGPRect; {线性渐变的界限} color1, color2: TGPColor; {线性渐变起始色与终止色} mode: TLinearGradientMode {渐变方向, 见下表} ); TGPLinearGradientBrush.Create( rect: TGPRe... 阅读全文
posted @ 2008-06-11 17:00 万一 阅读(2545) 评论(0) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Pan... 阅读全文
posted @ 2008-06-11 14:40 万一 阅读(2083) 评论(0) 推荐(0) 编辑
摘要: TGPTextureBrush.Create( image: TGPImage; {用于画刷的图像} wrapMode: TWrapMode = WrapModeTile {平铺样式, 是可选值, 见下表} ); 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, Sy... 阅读全文
posted @ 2008-06-11 11:25 万一 阅读(2159) 评论(1) 推荐(0) 编辑
摘要: TGPTextureBrush.Create( image: TGPImage; {用于画刷的图像} ); 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 ... 阅读全文
posted @ 2008-06-11 10:32 万一 阅读(1984) 评论(0) 推荐(0) 编辑
摘要: TGPHatchBrush.Create( hatchStyle: THatchStyle; {阴影样式, 见下表} foreColor: TGPColor; {前景色} backColor: TGPColor = aclBlack {背景色, 是可选值, 默认是黑色} ); 本例效果图: 代码文件: unit Unit1; interfa... 阅读全文
posted @ 2008-06-10 23:30 万一 阅读(3581) 评论(4) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Col... 阅读全文
posted @ 2008-06-10 16:01 万一 阅读(3235) 评论(2) 推荐(0) 编辑
摘要: 颜色名称 颜色效果 颜色值 aclAliceBlue$FFF0F8FF aclAntiqueWhite$FFFAEBD7 aclAqua$FF00FFFF aclAquamarine$FF7FFFD4 aclAzure$FFF0FFFF aclBeige$FFF5F5DC aclBisque$FFFFE4C4 aclBlack$FF000000 aclBlanchedAlmond$... 阅读全文
posted @ 2008-06-10 14:15 万一 阅读(4356) 评论(0) 推荐(0) 编辑
摘要: function MakePoint(X, Y: Integer): TGPPoint; overload; function MakePoint(X, Y: Single): TGPPointF; overload; function MakeSize(Width, Height: Integer): TGPSize; overload; function MakeSize(Width, H... 阅读全文
posted @ 2008-06-10 13:05 万一 阅读(2915) 评论(0) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObjec... 阅读全文
posted @ 2008-06-10 12:09 万一 阅读(2377) 评论(0) 推荐(0) 编辑
上一页 1 ··· 122 123 124 125 126 127 128 129 130 ··· 215 下一页