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

再学 GDI+[10]: DrawClosedCurve - 绘制闭合曲线

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

posted @ 2008-06-09 17:01 万一阅读(3242) 评论(2) 推荐(1) 编辑

再学 GDI+[9]: DrawPolygon - 绘制多边形

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

posted @ 2008-06-09 10:58 万一阅读(5016) 评论(0) 推荐(0) 编辑

再学 GDI+[8]: DrawRectangles - 绘制一组矩形

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

posted @ 2008-06-09 10:43 万一阅读(2309) 评论(3) 推荐(0) 编辑

再学 GDI+[7]: DrawLines - 绘制一组直线

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

posted @ 2008-06-09 09:48 万一阅读(3084) 评论(0) 推荐(0) 编辑

再学 GDI+[6]: DrawPie - 绘制饼形

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

posted @ 2008-06-09 00:31 万一阅读(2923) 评论(1) 推荐(0) 编辑

再学 GDI+[5]: DrawArc - 绘制弧线

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

posted @ 2008-06-08 21:07 万一阅读(4017) 评论(4) 推荐(0) 编辑

再学 GDI+[4]: DrawEllipse - 绘制椭圆

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

posted @ 2008-06-08 13:24 万一阅读(3580) 评论(4) 推荐(0) 编辑

再学 GDI+[3]: DrawRectangle - 绘制矩形

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

posted @ 2008-06-07 23:08 万一阅读(3950) 评论(2) 推荐(0) 编辑

再学 GDI+[2]: DrawLine - 绘制直线

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

posted @ 2008-06-07 22:31 万一阅读(4879) 评论(7) 推荐(0) 编辑

再学 GDI+[1]: 安装文件头

摘要：如果使用 Delphi 2009 之后的版本, 推荐使用:http://www.cnblogs.com/del/archive/2009/12/11/1621790.html.下面这些是以前用 2007 弄的.GDI+ 是 Windows 的一个函数库, 来自 Windows\System32\GDIPlus.dll, 其中包含了 610 个函数.在 Delphi 中使用需要先下载安装 GDI+ ... 阅读全文

posted @ 2008-06-06 19:02 万一阅读(12747) 评论(20) 推荐(0) 编辑

GDI+ 学习记录(31): 图像颜色变换(TGPImageAttributes)

摘要：//正常显示图片, 没有变换 uses GDIPAPI, GDIPOBJ; procedure TForm1.FormPaint(Sender: TObject); var g: TGPGraphics; img: TGPImage; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:... 阅读全文

posted @ 2008-02-06 10:41 万一阅读(5100) 评论(13) 推荐(0) 编辑

GDI+ 学习记录(30): MetaFile 文件操作

摘要：//显示 MetaFile 文件 var g: TGPGraphics; img: TGPImage; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\x.emf'); {文件要存在} g.DrawImage(img, 11, 11); img.Free; ... 阅读全文

posted @ 2007-12-27 23:13 万一阅读(4242) 评论(9) 推荐(0) 编辑

GDI+ 学习记录(29): 区域 - Region

摘要：//创建并填充区域 var g: TGPGraphics; sb: TGPSolidBrush; region: TGPRegion; {定义区域} begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(aclGold); region := TGPRegion.Create(M... 阅读全文

posted @ 2007-12-27 23:12 万一阅读(4145) 评论(2) 推荐(0) 编辑

GDI+ 学习记录(28): 图像颜色的数据格式 - PixelFormat

摘要：//指定位图颜色 var g,gbit: TGPGraphics; bit1,bit2: TGPBitmap; sb: TGPSolidBrush; begin //Self.Color := clWhite; g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,... 阅读全文

posted @ 2007-12-27 23:11 万一阅读(12381) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(27): Bitmap

摘要：//用 Bitmap 显示图像 var g: TGPGraphics; bit: TGPBitmap; begin g := TGPGraphics.Create(Canvas.Handle); bit := TGPBitmap.Create('c:\temp\x.jpg'); g.DrawImage(bit, 11, 11); {默认大小竟然和 1:1 不一样, 是不是分... 阅读全文

posted @ 2007-12-27 23:09 万一阅读(6038) 评论(2) 推荐(1) 编辑

GDI+ 学习记录(26): 显示图像 - Image

摘要：//显示图像 var g: TGPGraphics; img: TGPImage; begin g := TGPGraphics.Create(Self.Canvas.Handle); img := TGPImage.Create('c:\temp\x.jpg'); g.DrawImage(img,10,10); {参数2、3是坐标} img.Free; g.F... 阅读全文

posted @ 2007-12-27 23:08 万一阅读(7001) 评论(7) 推荐(0) 编辑

GDI+ 学习记录(25): 变换 - Transform

摘要：//比例变化 var g: TGPGraphics; p: TGPPen; rect: TGPRect; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,255,0,0),0); rect := MakeRect(10,10,100,100); g.Draw... 阅读全文

posted @ 2007-12-27 22:34 万一阅读(7008) 评论(2) 推荐(0) 编辑

GDI+ 学习记录(24): 输出文本<3>

摘要：//获取字体信息 var fontFamily: TGPFontFamily; font: TGPFont; begin fontFamily := TGPFontFamily.Create('宋体'); font := TGPFont.Create(fontFamily, 9, FontStyleRegular, UnitPixel); ShowMessage(Float... 阅读全文

posted @ 2007-12-27 22:33 万一阅读(3068) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(23): 输出文本<2>

摘要：//在矩形范围中显示文本 var g: TGPGraphics; fontFamily: TGPFontFamily; font: TGPFont; rectF: TGPRectF; p: TGPPen; sb: TGPSolidBrush; str: WideString; begin g := TGPGraphics.Create(Canvas.Handle)... 阅读全文

posted @ 2007-12-27 22:02 万一阅读(3978) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(22): 输出文本<1>

摘要：//输出文本 var g: TGPGraphics; sb: TGPSolidBrush; fontFamily: TGPFontFamily; font: TGPFont; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(0,0,255)); fon... 阅读全文

posted @ 2007-12-27 20:23 万一阅读(5101) 评论(3) 推荐(0) 编辑

随笔分类 - Delphi 与 GDI+