摘要：
绘图质量参数: 阅读全文
摘要：
路径中的拐点结合样式:Delphi微软说明LineJoinBevelBevel指定成斜角的联接。这将产生一个斜角。LineJoinMiterMiter指定斜联接。这将产生一个锐角或切除角，具体取决于斜联接的长度是否超过斜联接限制。LineJoinMiterClippedMiterClipped指定斜联接。这将产生一个锐角或斜角，具体取决于斜联接的长度是否超过斜联接限制。LineJoinRoundRound指定圆形联接。这将在两条线之间产生平滑的圆弧。 阅读全文
摘要：
//闭合曲线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)); p := TGPPe... 阅读全文
摘要：
//画曲线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; pts[1].... 阅读全文
摘要：
//画贝塞尔曲线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 个点的坐标} p.Fr... 阅读全文
摘要：
var g:TGPGraphics; p:TGPPen; sb:TGPSolidBrush; pts:array[0..4] of TGPPoint;begin g:=TGPGraphics.Create(Canvas.Handle); g.Clear(aclWhite); p:=TGPPen.Create(aclRed,2); sb:=TGPSolidBrush.Create(a... 阅读全文
摘要：
//饼图描边与填充var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush;begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); p := TGPPen.Create(MakeColor(255,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.SetColor(MakeColor(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(255,0,0),6)... 阅读全文
摘要：
//路径渐变画刷var g: TGPGraphics; path: TGPGraphicsPath; pb: TGPPathGradientBrush; {声明渐变画刷} num: Integer;const colors: array[0..0] of TGPColor = (aclAqua);begin g := TGPGraphics.Create(Canvas.Handle);... 阅读全文