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

2017年02月06日 62 阅读

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）: 使用画刷建立画笔

2017年02月06日 55 阅读

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

2017年02月06日 61 阅读

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

2017年02月06日 71 阅读

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

2017年02月06日 63 阅读

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

2017年02月06日 63 阅读

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

2017年02月06日 61 阅读

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

2017年02月06日 70 阅读

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

2017年02月06日 62 阅读

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

2017年02月06日 61 阅读

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

2017年02月06日 59 阅读

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

2017年02月06日 61 阅读

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

2017年02月06日 56 阅读

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

2017年02月06日 60 阅读

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

2017年02月06日 62 阅读

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）: 绘图质量

2017年02月06日 57 阅读

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...

Delphi GDI+学习记录（21）: 颜色

2017年02月06日 58 阅读

Delphi GDI+学习记录（21）: 颜色2012-03-23 cnblogs 万一//颜色透明度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,100...

Delphi GDI+ 学习记录（22）: 输出文本<1>

2017年02月06日 58 阅读

Delphi GDI+ 学习记录（22）: 输出文本<1>2012-03-26 cnblogs 万一//输出文本var g: TGPGraphics; sb: TGPSolidBrush; fontFamily: TGPFontFamily; font: TGPFont;begin g := TGPGraphics.Create（Canvas.Handle）; sb := TGPSolidBrush.Create（MakeColor（0,0,2...

Delphi GDI+ 学习记录（23）: 输出文本&lt;2&gt;

2017年02月06日 59 阅读

Delphi GDI+ 学习记录（23）: 输出文本<2>2012-03-26 cnblogs 万一//在矩形范围中显示文本var g: TGPGraphics; fontFamily: TGPFontFamily; font: TGPFont; rectF: TGPRectF; p: TGPPen; sb: TGPSolidBrush; str: WideString;begin g := TGPGraphics.Create（Canvas....

Delphi GDI+ 学习记录（24）: 输出文本&lt;3&gt;

2017年02月06日 61 阅读

Delphi GDI+ 学习记录（24）: 输出文本<3>2012-03-26 cnblogs 万一//获取字体信息var fontFamily: TGPFontFamily; font: TGPFont;begin fontFamily := TGPFontFamily.Create（"宋体"）; font := TGPFont.Create（fontFamily, 9, FontStyleRegular, UnitPixel）; ShowM...