再学 GDI+[24]: TGPLinearGradientBrush - 之三
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TeCanvas;type TForm1 = class(TForm) ButtonColor1: TButtonColor; ButtonColor2: ...
阅读全文
posted @
2010-12-31 17:53
巅枫
阅读(766)
推荐(0) 编辑
再学 GDI+[23] TGPLinearGradientBrush - 之二
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, TeCanvas;type TForm1 = class(TForm) ButtonColor1: TButtonColor; Butt...
阅读全文
posted @
2010-12-31 11:07
巅枫
阅读(557)
推荐(0) 编辑
再学 GDI+[22] TGPLinearGradientBrush - 之一 TLinearGradientMode
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TeCanvas;type TForm1 = class(TForm) ButtonColor1: TButtonColor; ButtonColor2: ...
阅读全文
posted @
2010-12-31 11:06
巅枫
阅读(679)
推荐(0) 编辑
再学 GDI+[21] TGPTextureBrush 与 TGPMatrix
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton...
阅读全文
posted @
2010-12-31 11:05
巅枫
阅读(636)
推荐(0) 编辑
再学 GDI+[19] TGPTextureBrush(纹理画刷)
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); procedure FormResize(Sen...
阅读全文
posted @
2010-12-31 11:04
巅枫
阅读(597)
推荐(0) 编辑
再学 GDI+[20] TGPTextureBrush 与 TWrapMode
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ComboBox1: TComboBox; procedure FormCreate(Sender: T...
阅读全文
posted @
2010-12-31 11:04
巅枫
阅读(319)
推荐(0) 编辑
再学 GDI+[18] FillEllipse、TGPHatchBrush(阴影画刷)
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TeCanvas, ExtCtrls;type TForm1 = class(TForm) ComboBox1: TComboBox; ColorBox1:...
阅读全文
posted @
2010-12-31 11:03
巅枫
阅读(854)
推荐(0) 编辑
再学 GDI+[17] FillRectangle、ColorRefToARGB、TGPSolidBrush 和颜色透明度
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls;type TForm1 = class(TForm) ColorListBox1: TColorListBox; Tr...
阅读全文
posted @
2010-12-31 11:02
巅枫
阅读(747)
推荐(0) 编辑
再学 GDI+[16] GDI+ 的颜色常量表
摘要:颜色名称颜色效果颜色值aclAliceBlue$FFF0F8FFaclAntiqueWhite$FFFAEBD7aclAqua$FF00FFFFaclAquamarine$FF7FFFD4aclAzure$FFF0FFFFaclBeige$FFF5F5DCaclBisque$FFFFE4C4aclBlack$FF000000aclBlanchedAlmond$FFFFEBCDaclBlue$FF0000FFaclBlueViolet$FF8A2BE2aclBrown$FFA52A2AaclBurlyWood$FFDEB887aclCadetBlue$FF5F9EA0aclChartreuse$
阅读全文
posted @
2010-12-31 11:01
巅枫
阅读(598)
推荐(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, Height...
阅读全文
posted @
2010-12-31 10:59
巅枫
阅读(596)
推荐(0) 编辑
再学 GDI+[14] DrawBeziers - 绘制一组贝塞尔线
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton;...
阅读全文
posted @
2010-12-31 10:58
巅枫
阅读(446)
推荐(0) 编辑
再学 GDI+[13] DrawBezier - 绘制贝塞尔线
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); procedure FormMouseDown(...
阅读全文
posted @
2010-12-31 10:57
巅枫
阅读(649)
推荐(0) 编辑
再学 GDI+[12] 准备工作 - 矩形命中
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); procedure FormMouseDown(...
阅读全文
posted @
2010-12-31 10:56
巅枫
阅读(481)
推荐(0) 编辑
再学 GDI+[11] DrawCurve - 绘制曲线
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; TrackBar1: TTr...
阅读全文
posted @
2010-12-31 10:55
巅枫
阅读(639)
推荐(0) 编辑
再学 GDI+[10] DrawClosedCurve - 绘制闭合曲线
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) TrackBar1: TTrackBar; Button1: TButton; pr...
阅读全文
posted @
2010-12-31 10:55
巅枫
阅读(559)
推荐(0) 编辑
再学 GDI+[9] DrawPolygon - 绘制多边形
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormMo...
阅读全文
posted @
2010-12-31 10:54
巅枫
阅读(642)
推荐(0) 编辑
再学 GDI+[8] DrawRectangles - 绘制一组矩形
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormResize(Sender: TObject); procedure FormPaint(Sen...
阅读全文
posted @
2010-12-31 10:53
巅枫
阅读(685)
推荐(0) 编辑
再学 GDI+[7] DrawLines - 绘制一组直线
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormMo...
阅读全文
posted @
2010-12-31 10:52
巅枫
阅读(583)
推荐(0) 编辑
再学 GDI+[5] DrawArc - 绘制弧线
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; SpinEdit1: TSpinEdit...
阅读全文
posted @
2010-12-31 10:50
巅枫
阅读(604)
推荐(0) 编辑
再学 GDI+[6] DrawPie - 绘制饼形
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; Label1: TLabel; Labe...
阅读全文
posted @
2010-12-31 10:50
巅枫
阅读(444)
推荐(0) 编辑