Delphi 与 GDI+ - 随笔分类(第8页) - 万一

再学 GDI+[30]: TGPPen - 用画刷定义的画笔

摘要：本例效果图: 代码文件: 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 万一阅读(1740) 评论(0) 推荐(0) 编辑

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

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

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

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

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

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

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

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

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

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

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

posted @ 2008-06-12 16:48 万一阅读(2692) 评论(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 万一阅读(2413) 评论(1) 推荐(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 万一阅读(2084) 评论(4) 推荐(0) 编辑

再学 GDI+[23]: TGPLinearGradientBrush - 之二

摘要：TGPLinearGradientBrush.Create( rect: TGPRect; {变化范围} color1, color2: TGPColor; {起始色与终止色} angle: Single; {旋转角度} isAngleScalable: BOOL = FALSE {是否受 TLinearGrad... 阅读全文

posted @ 2008-06-11 19:18 万一阅读(1800) 评论(0) 推荐(0) 编辑

再学 GDI+[22]: TGPLinearGradientBrush - 之一: TLinearGradientMode

摘要：TGPLinearGradientBrush.Create( rect: TGPRect; {线性渐变的界限} color1, color2: TGPColor; {线性渐变起始色与终止色} mode: TLinearGradientMode {渐变方向, 见下表} ); TGPLinearGradientBrush.Create( rect: TGPRe... 阅读全文

posted @ 2008-06-11 17:00 万一阅读(2537) 评论(0) 推荐(0) 编辑

再学 GDI+[21]: TGPTextureBrush 与 TGPMatrix

摘要：本例效果图: 代码文件: 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 万一阅读(2077) 评论(0) 推荐(0) 编辑

再学 GDI+[20]: TGPTextureBrush 与 TWrapMode

摘要：TGPTextureBrush.Create( image: TGPImage; {用于画刷的图像} wrapMode: TWrapMode = WrapModeTile {平铺样式, 是可选值, 见下表} ); 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, Sy... 阅读全文

posted @ 2008-06-11 11:25 万一阅读(2153) 评论(1) 推荐(0) 编辑

再学 GDI+[19]: TGPTextureBrush(纹理画刷)

摘要：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 万一阅读(1977) 评论(0) 推荐(0) 编辑

再学 GDI+[18]: FillEllipse、TGPHatchBrush(阴影画刷)

摘要：TGPHatchBrush.Create( hatchStyle: THatchStyle; {阴影样式, 见下表} foreColor: TGPColor; {前景色} backColor: TGPColor = aclBlack {背景色, 是可选值, 默认是黑色} ); 本例效果图: 代码文件: unit Unit1; interfa... 阅读全文

posted @ 2008-06-10 23:30 万一阅读(3566) 评论(4) 推荐(0) 编辑

再学 GDI+[17]: FillRectangle、ColorRefToARGB、TGPSolidBrush 和颜色透明度

摘要：本例效果图: 代码文件: 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 万一阅读(3229) 评论(2) 推荐(0) 编辑

再学 GDI+[16]: GDI+ 的颜色常量表

摘要：颜色名称颜色效果颜色值 aclAliceBlue$FFF0F8FF aclAntiqueWhite$FFFAEBD7 aclAqua$FF00FFFF aclAquamarine$FF7FFFD4 aclAzure$FFF0FFFF aclBeige$FFF5F5DC aclBisque$FFFFE4C4 aclBlack$FF000000 aclBlanchedAlmond$... 阅读全文

posted @ 2008-06-10 14:15 万一阅读(4341) 评论(0) 推荐(0) 编辑

再学 GDI+[15]: GDIPAPI 单元提供的 Make 及 Color 系列函数

摘要：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 万一阅读(2909) 评论(0) 推荐(0) 编辑

再学 GDI+[14]: DrawBeziers - 绘制一组贝塞尔线

摘要：本例效果图: 代码文件: 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 万一阅读(2370) 评论(0) 推荐(0) 编辑

再学 GDI+[13]: DrawBezier - 绘制贝塞尔线

摘要：本例效果图: 代码文件: 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 11:18 万一阅读(3786) 评论(0) 推荐(0) 编辑

再学 GDI+[12]: 准备工作 - 矩形命中

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

posted @ 2008-06-10 01:49 万一阅读(1987) 评论(0) 推荐(0) 编辑

再学 GDI+[11]: DrawCurve - 绘制曲线

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

posted @ 2008-06-09 23:12 万一阅读(6582) 评论(2) 推荐(1) 编辑

随笔分类 - Delphi 与 GDI+