GDI+ 学习记录(3): 虚线画笔

为什么80%的码农都做不了架构师？>>>

//虚线样式
varg: TGPGraphics;p: TGPPen;
beging := TGPGraphics.Create(Canvas.Handle);p := TGPPen.Create(MakeColor(255,255,0,0),3);g.DrawLine(p, 11, 11, 333, 11);   {实线}p.SetDashStyle(DashStyleDashDot); {设置虚线样式}g.DrawLine(p, 11, 33, 333, 33);   {绘制任何形状都是可以的}p.Free;g.Free;
end;//自定义虚线样式
varg: TGPGraphics;p: TGPPen;
constdash: array[0..3] of Single = (5,2,15,10); {虚线样式数组, 数组维数大小任意}
beging := TGPGraphics.Create(Canvas.Handle);p := TGPPen.Create(MakeColor(255,255,0,0),3);g.DrawLine(p, 11, 11, 333, 11);p.SetDashPattern(@dash, Length(dash)); {设置虚线}g.DrawLine(p, 11, 33, 333, 33); p.Free;g.Free;
end;

虚线样式表:

Delphi	微软	说明
DashStyleCustom	Custom	指定用户定义的自定义划线段样式。
DashStyleDash	Dash	指定由划线段组成的直线。
DashStyleDashDot	DashDot	指定由重复的划线点图案构成的直线。
DashStyleDashDotDot	DashDotDot	指定由重复的划线点点图案构成的直线。
DashStyleDot	Dot	指定由点构成的直线。
DashStyleSolid	Solid	指定实线。

转载于:https://my.oschina.net/hermer/blog/320524

GDI+ 学习记录(3): 虚线画笔 - Dash相关推荐

GDI+ 学习记录(2) 画笔线帽 - Cap
//线帽 varg: TGPGraphics;p: TGPPen; beging:=TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);p:=TGP ...
GDI+ 学习记录(28): 图像颜色的数据格式 - PixelFormat
//指定位图颜色 varg,gbit: TGPGraphics;bit1,bit2: TGPBitmap;sb: TGPSolidBrush; begin//Self.Color := clWhite ...
GDI+学习记录(16)-字体Font
字体,对于大部分人来说都不陌生,在文本编辑软件中(如 Word)字体是必不可少的,同样,在GDI+中,绘制字符串也是需要字体的.在介绍字体Font类的使用之前,先引入一些与其有关的类或者枚举: (1) ...
GDI+ 学习记录(11): 路径渐变画刷 - PathGradientBrush
为什么80%的码农都做不了架构师?>>> //路径渐变画刷 varg: TGPGraphics;path: TGPGraphicsPath;pb: TGPPathGradien ...
GDI+ 学习记录(27): Bitmap
为什么80%的码农都做不了架构师?>>> //用 Bitmap 显示图像 varg: TGPGraphics;bit: TGPBitmap; beging := TGPGrap ...
GDI+ 学习记录(10): 线性渐变画刷 - LinearGradientBrush
为什么80%的码农都做不了架构师?>>> //线性渐变画刷 varg: TGPGraphics;lb: TGPLinearGradientBrush;rect: TGPRect ...
GDI+ 学习记录(31) 图像颜色变换(TGPImageAttributes)
//正常显示图片, 没有变换 varg:TGPGraphics;img:TGPImage; beging:=TGPGraphics.Create(Canvas.Handle);g.Clear(aclW ...
GDI+ 学习记录(23): 输出文本
为什么80%的码农都做不了架构师?>>> //在矩形范围中显示文本 varg: TGPGraphics;fontFamily: TGPFontFamily;font: TGPF ...
GDI+学习记录(10)- 影线画刷HatchBrush
影线画刷(HatchBrush)的基本使用: private void Form1_Paint(object sender, PaintEventArgs e) { Graphics g = e.Gr ...

GDI+ 学习记录(3): 虚线画笔 - Dash

GDI+ 学习记录(3): 虚线画笔 - Dash相关推荐

最新文章

热门文章