万一 - 博客园

2007年12月27日

摘要： //在矩形范围中显示文本 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)

GDI+ 学习记录(22): 输出文本<1>

摘要： //输出文本 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)

GDI+ 学习记录(21): 颜色

摘要： //颜色透明度 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)

GDI+ 学习记录(20): 绘图质量

摘要： //绘图质量 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)

GDI+ 学习记录(19): 路径 - Path

摘要： //绘制与填充路径 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)

GDI+ 学习记录(18): 闭合曲线 - ClosedCurve

摘要： //闭合曲线 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)

GDI+ 学习记录(17): 曲线 - Curve

摘要： //画曲线 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)

GDI+ 学习记录(16): 贝塞尔曲线 - Bezier、Beziers

摘要： //画贝塞尔曲线 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)

GDI+ 学习记录(15): 多边形 - Polygon

摘要： //多边形描边与填充 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 万一阅读(2752) 评论(5) 推荐(0)

GDI+ 学习记录(14): 饼图 - Pie

摘要： //饼图描边与填充 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)