2008 年 6月 10 日随笔档案 - 万一

2008年6月10日

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

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

posted @ 2008-06-10 23:30 万一阅读(3610) 评论(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 万一阅读(3263) 评论(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 万一阅读(4416) 评论(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 万一阅读(2949) 评论(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 万一阅读(2401) 评论(0) 推荐(0)

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

posted @ 2008-06-10 11:18 万一阅读(3823) 评论(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 万一阅读(2010) 评论(0) 推荐(0)