Delphi GDI+学习记录（1） 画笔 - Pen

2016年07月27日 51 阅读

Delphi GDI+学习记录（1） 画笔 - Pen2012-03-20 cnblogs 万一//画笔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.Free...

Delphi GDI+学习记录（2）: 画笔线帽 - Cap

2016年07月27日 45 阅读

Delphi GDI+学习记录（2）: 画笔线帽 - Cap2012-03-20 cnblogs 万一//线帽var g: TGPGraphics; p: TGPPen;begin g := TGPGraphics.Create（Canvas.Handle）; p:= TGPPen.Create（aclBlue, 8）; p.SetStartCap（LineCapArrowAnchor）; {起点线帽} p.SetEndCap（LineCapRoundAn...

Delphi GDI+学习记录（3）: 虚线画笔 - Dash

2016年07月27日 44 阅读

Delphi GDI+学习记录（3）: 虚线画笔 - Dash2012-03-20 cnblogs 万一//虚线样式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.SetDashSty...

Delphi GDI+学习记录（4）: 画笔对齐

2016年07月27日 45 阅读

Delphi GDI+学习记录（4）: 画笔对齐2012-03-20 cnblogs 万一//笔对齐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.Crea...

Delphi GDI+学习记录（5）: 复合画笔

2016年07月27日 45 阅读

Delphi GDI+学习记录（5）: 复合画笔2012-03-20 cnblogs 万一//复合画笔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...

Delphi GDI+学习记录（6）: 使用画刷建立画笔

2016年07月27日 49 阅读

Delphi GDI+学习记录（6）: 使用画刷建立画笔2012-03-20 cnblogs 万一//使用画刷建立画笔var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush; p: TGPPen;begin g := TGPGraphics.Create（Canvas.Handle）; img := TGPImage.Create（"c: empsmall.jpg"）; tb := TGPTexture...

Delphi GDI+学习记录（7）: 实心画刷 - SolidBrush

2016年07月27日 53 阅读

Delphi GDI+学习记录（7）: 实心画刷 - SolidBrush2012-03-20 cnblogs 万一//实心画刷var g: TGPGraphics; sb: TGPSolidBrush;begin g := TGPGraphics.Create（Canvas.Handle）; sb := TGPSolidBrush.Create（aclGreen）; {参数是颜色} g.FillEllipse（sb, 11, 11, 222, 111）;...

Delphi GDI+学习记录（8）: 阴影画刷 - HatchBrush

2016年07月27日 53 阅读

Delphi GDI+学习记录（8）: 阴影画刷 - HatchBrush2012-03-20 cnblogs 万一//阴影画刷var g: TGPGraphics; hb: TGPHatchBrush;begin g := TGPGraphics.Create（Canvas.Handle）; hb := TGPHatchBrush.Create（HatchStyleHorizontal, aclRed, aclYellow）; {参数1是阴影样式; 参数...

Delphi GDI+学习记录（9）: 纹理画刷 - TextureBrush

2016年07月27日 47 阅读

Delphi GDI+学习记录（9）: 纹理画刷 - TextureBrush2012-03-20 cnblogs 万一//纹理画刷var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush;begin g := TGPGraphics.Create（Canvas.Handle）; img := TGPImage.Create（"c: empsmall.jpg"）; tb := TGPTextureBrus...

Delphi GDI+学习记录（10）: 线性渐变画刷 - LinearGradientBrush

2016年07月27日 43 阅读

Delphi GDI+学习记录（10）: 线性渐变画刷 - LinearGradientBrush2012-03-20 cnblogs 万一//线性渐变画刷var g: TGPGraphics; lb: TGPLinearGradientBrush; rect: TGPRect;begin g := TGPGraphics.Create（Canvas.Handle）; rect := MakeRect（11,11,222,111）; lb := TGPLi...

Delphi GDI+学习记录（11）: 路径渐变画刷 - PathGradientBrush

2016年07月27日 51 阅读

Delphi GDI+学习记录（11）: 路径渐变画刷 - PathGradientBrush2012-03-23 cnblogs 万一//路径渐变画刷var g: TGPGraphics; path: TGPGraphicsPath; pb: TGPPathGradientBrush; {声明渐变画刷} num: Integer;const colors: array[0..0] of TGPColor = （aclAqua）;begin g...

Delphi GDI+学习记录（12）: 矩形 - Rectangle、Rectangles

2016年07月27日 45 阅读

Delphi GDI+学习记录（12）: 矩形 - Rectangle、Rectangles2012-03-23 cnblogs 万一//填充与描边var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush;begin g := TGPGraphics.Create（Canvas.Handle）; sb := TGPSolidBrush.Create（MakeColor（255,255,255））; p := TGPP...

Delphi GDI+学习记录（13）: 弧线 - Arc

2016年07月27日 44 阅读

Delphi GDI+学习记录（13）: 弧线 - Arc2012-03-23 cnblogs 万一//画弧线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.SetCol...

Delphi GDI+学习记录（14）: 饼图 - Pie

2016年07月27日 56 阅读

Delphi GDI+学习记录（14）: 饼图 - Pie2012-03-23 cnblogs 万一//饼图描边与填充var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush;begin g := TGPGraphics.Create（Canvas.Handle）; sb := TGPSolidBrush.Create（MakeColor（255,255,255））; p := TGPPen.Create（MakeC...

Delphi GDI+学习记录（15）: 多边形 - Polygon

2016年07月27日 51 阅读

Delphi GDI+学习记录（15）: 多边形 - Polygon2012-03-23 cnblogs 万一//多边形描边与填充var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; pts: array[0..4] of TGPPoint;begin g := TGPGraphics.Create（Canvas.Handle）; sb := TGPSolidBrush.Create（MakeColor（255...

Delphi GDI+学习记录（16）: 贝塞尔曲线 - Bezier、Beziers

2016年07月27日 53 阅读

Delphi GDI+学习记录（16）: 贝塞尔曲线 - Bezier、Beziers2012-03-23 cnblogs 万一//画贝塞尔曲线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...

Delphi GDI+学习记录（17）: 曲线 - Curve

2016年07月27日 50 阅读

Delphi GDI+学习记录（17）: 曲线 - Curve2012-03-23 cnblogs 万一//画曲线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 ...

Delphi GDI+学习记录（18）: 闭合曲线 - ClosedCurve

2016年07月27日 51 阅读

Delphi GDI+学习记录（18）: 闭合曲线 - ClosedCurve2012-03-23 cnblogs 万一//闭合曲线var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; pts: array[0..4] of TGPPoint;begin g := TGPGraphics.Create（Canvas.Handle）; sb := TGPSolidBrush.Create（MakeColor（25...

Delphi GDI+学习记录（19）: 路径 - Path

2016年07月27日 54 阅读

Delphi GDI+学习记录（19）: 路径 - Path2012-03-23 cnblogs 万一//绘制与填充路径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 := ...

Delphi GDI+学习记录（20）: 绘图质量

2016年07月27日 41 阅读

Delphi GDI+学习记录（20）: 绘图质量2012-03-23 cnblogs 万一//绘图质量var g: TGPGraphics; p: TGPPen;begin g := TGPGraphics.Create（Canvas.Handle）; p := TGPPen.Create（MakeColor（255,0,0）,2）; g.SetSmoothingMode（SmoothingModeHighQuality）; {高质量} g.DrawLi...