GDI+ 学习记录(12) 矩形 - Rectangle、Rectangles
2010-12-08 17:19
399 查看
//填充与描边 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); g.FillRectangle(sb, 0, 0, Self.ClientWidth, Self.ClientHeight); {填充窗体矩形} g.DrawRectangle(p,11,11,111,111); {矩形描边} sb.SetColor(MakeColor(255,255,0)); g.FillRectangle(sb,11,11,111,111); {填充矩形} p.Free; sb.Free; g.Free; end;
//矩形组 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; rs: array[0..1] of TGPRect; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); p := TGPPen.Create(MakeColor(255,0,0),2); rs[0].X := 11; rs[0].Y := 11; rs[0].Width := 88; rs[0].Height := 111; rs[1].X := 111; rs[1].Y := 122; rs[1].Width := 88; rs[1].Height := 111; g.DrawRectangles(p, PGPRect(@rs), Length(rs)); g.FillRectangles(sb, PGPRect(@rs), Length(rs)); p.Free; sb.Free; g.Free; end;
相关文章推荐
- GDI+ 学习记录(12): 矩形 - Rectangle、Rectangles
- GDI+学习记录(12)-纹理画刷TextureBrush的排列方式
- GDI+学习记录(4)-画笔对齐 PenAlignment
- GDI+学习记录之纹理画刷TextureBrush
- GDI+ 学习记录(5): 复合画笔
- GDI+ 学习记录(19): 路径 - Path
- GDI+ 学习记录(30): MetaFile 文件操作
- LCT 12 - 02 学习记录
- GDI+ 学习记录(4) 画笔对齐
- GDI+ 学习记录(26): 显示图像 - Image
- GDI+学习记录(2)-画笔 Pen
- GDI+学习记录(8)- 画刷 Brush简介
- GDI+ 学习记录(20): 绘图质量
- GDI+ 学习记录(5) 复合画笔
- GDI+ 学习记录(11) 路径渐变画刷 - PathGradientBrush
- GDI+ 学习记录(26) 显示图像 - Image
- kubernetes学习记录(12)——Ingress(demo为TCP的负载均衡)
- CCF计算机软件能力认证模拟试题-最大的矩形(Java参考答案学习记录)
- 12-20学习记录
- Linux学习记录(12)ACL基本概念及基础操作