摘要：
//显示 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
万一
阅读(4274)
评论(9)
推荐(0)
摘要：
//创建并填充区域 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
万一
阅读(4178)
评论(2)
推荐(0)
摘要：
//指定位图颜色 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
万一
阅读(12491)
评论(0)
推荐(0)
摘要：
//用 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
万一
阅读(6073)
评论(2)
推荐(1)
摘要：
//显示图像 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
万一
阅读(7071)
评论(7)
推荐(0)
摘要：
//比例变化 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
万一
阅读(7058)
评论(2)
推荐(0)
摘要：
//获取字体信息 var fontFamily: TGPFontFamily; font: TGPFont; begin fontFamily := TGPFontFamily.Create('宋体'); font := TGPFont.Create(fontFamily, 9, FontStyleRegular, UnitPixel); ShowMessage(Float... 阅读全文
posted @ 2007-12-27 22:33
万一
阅读(3100)
评论(0)
推荐(0)
摘要：
//在矩形范围中显示文本 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
万一
阅读(4049)
评论(0)
推荐(0)
摘要：
//输出文本 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
万一
阅读(5141)
评论(3)
推荐(0)
摘要：
//颜色透明度 var g: TGPGraphics; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(128,255,0,0)); {128表示半透明} g.FillRectangle(sb,10,10,100,10... 阅读全文
posted @ 2007-12-27 19:14
万一
阅读(4188)
评论(0)
推荐(0)
摘要：
//绘图质量 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,0,0),2); g.SetSmoothingMode(SmoothingModeHighQuality); {高质量} g.DrawLi... 阅读全文
posted @ 2007-12-27 19:13
万一
阅读(3609)
评论(1)
推荐(0)
摘要：
//绘制与填充路径 var g: TGPGraphics; path: TGPGraphicsPath; p: TGPPen; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(128,255,0,0),4); sb := TGPS... 阅读全文
posted @ 2007-12-27 19:06
万一
阅读(3992)
评论(3)
推荐(0)
摘要：
//闭合曲线 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; pts: array[0..4] of TGPPoint; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); ... 阅读全文
posted @ 2007-12-27 19:06
万一
阅读(2894)
评论(0)
推荐(0)
摘要：
//画曲线 var g: TGPGraphics; p: TGPPen; pts: array[0..4] of TGPPoint; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,0,0),4); pts[0].X := 11; pts[0].Y := 11... 阅读全文
posted @ 2007-12-27 19:05
万一
阅读(3307)
评论(0)
推荐(0)
摘要：
//画贝塞尔曲线 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,0,0),2); g.DrawBezier(p, 11,11, 88,333, 99,0, 222,111); {参数是画笔与 4 个点的... 阅读全文
posted @ 2007-12-27 19:04
万一
阅读(4355)
评论(2)
推荐(0)
摘要：
//多边形描边与填充 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; pts: array[0..4] of TGPPoint; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255))... 阅读全文
posted @ 2007-12-27 19:04
万一
阅读(2753)
评论(5)
推荐(0)
摘要：
//饼图描边与填充 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); p := TGPPen.Create(MakeColor(... 阅读全文
posted @ 2007-12-27 19:00
万一
阅读(3232)
评论(0)
推荐(0)
摘要：
//画弧线 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,0,0),2); g.DrawArc(p,11,32,300,200,0,90); {参数 2-5 是一个椭圆} p.SetColo... 阅读全文
posted @ 2007-12-27 18:58
万一
阅读(3047)
评论(0)
推荐(0)
摘要：
//填充与描边 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); p := TGPPen.Create(MakeColor(25... 阅读全文
posted @ 2007-12-27 18:56
万一
阅读(4015)
评论(6)
推荐(0)
摘要：
//路径渐变画刷 var g: TGPGraphics; path: TGPGraphicsPath; pb: TGPPathGradientBrush; {声明渐变画刷} num: Integer; const colors: array[0..0] of TGPColor = (aclAqua); begin g := TGPGraphics.Create(Canva... 阅读全文
posted @ 2007-12-27 16:59
万一
阅读(5893)
评论(2)
推荐(0)
摘要：
//线性渐变画刷 var g: TGPGraphics; lb: TGPLinearGradientBrush; rect: TGPRect; begin g := TGPGraphics.Create(Canvas.Handle); rect := MakeRect(11,11,222,111); lb := TGPLinearGradientBrush.Create(... 阅读全文
posted @ 2007-12-27 16:49
万一
阅读(4925)
评论(6)
推荐(0)
摘要：
//纹理画刷 var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\small.jpg'); tb := TGPTextureBrush.Create(img)... 阅读全文
posted @ 2007-12-27 16:41
万一
阅读(4024)
评论(0)
推荐(0)
摘要：
//阴影画刷 var g: TGPGraphics; hb: TGPHatchBrush; begin g := TGPGraphics.Create(Canvas.Handle); hb := TGPHatchBrush.Create(HatchStyleHorizontal, aclRed, aclYellow); {参数1是阴影样式; 参数2是前景色; 参数3是背景色... 阅读全文
posted @ 2007-12-27 16:36
万一
阅读(4892)
评论(0)
推荐(0)
摘要：
//实心画刷 var g: TGPGraphics; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(aclGreen); {参数是颜色} g.FillEllipse(sb, 11, 11, 222, 111); sb.Free; ... 阅读全文
posted @ 2007-12-27 16:29
万一
阅读(3194)
评论(0)
推荐(0)
摘要：
//使用画刷建立画笔 var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\small.jpg'); tb := TGPTexture... 阅读全文
posted @ 2007-12-27 15:02
万一
阅读(2967)
评论(0)
推荐(0)
摘要：
//复合画笔 var g: TGPGraphics; p: TGPPen; arr: array[0..9] of Single; {10 个元素可以分成 5 条线, 每条线需要起点和终点} begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,255,0,0),100);... 阅读全文
posted @ 2007-12-27 14:45
万一
阅读(3036)
评论(3)
推荐(0)
摘要：
//笔对齐 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; rect: TGPRect; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,255,0,0),5); sb := TGPSolidBrush.Cr... 阅读全文
posted @ 2007-12-27 14:44
万一
阅读(3108)
评论(1)
推荐(0)
摘要：
//虚线样式 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,255,0,0),3); g.DrawLine(p, 11, 11, 333, 11); {实线} p.SetDashStyle(D... 阅读全文
posted @ 2007-12-27 14:10
万一
阅读(5823)
评论(0)
推荐(0)
摘要：
//线帽 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p:= TGPPen.Create(aclBlue, 8); p.SetStartCap(LineCapArrowAnchor); {起点线帽} p.SetEndCap(LineCapRoundAnchor)... 阅读全文
posted @ 2007-12-27 13:51
万一
阅读(5516)
评论(0)
推荐(0)
摘要：
//画笔 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(aclRed, 2); {参数1颜色; 参数2是笔宽, 笔宽是可选, 默认 1} g.DrawEllipse(p, 11, 11, 222, 111); p.Fr... 阅读全文
posted @ 2007-12-27 13:28
万一
阅读(6158)
评论(12)
推荐(0)
摘要：
这是以前的内容, 应该从 http://www.cnblogs.com/del/archive/2008/06/06/1215319.html 开始! unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type ... 阅读全文
posted @ 2007-12-27 13:23
万一
阅读(7703)
评论(20)
推荐(0)
浙公网安备 33010602011771号