摘要：
//画弧线 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)
浙公网安备 33010602011771号