GDI+ 学习记录(16) 贝塞尔曲线 - Bezier、Beziers[转]
摘要：//画贝塞尔曲线varg: TGPGraphics;p: TGPPen;beging := TGPGraphics.Create(Canvas.Handle);p := TGPPen.Create(MakeColor(255,0,0),2);g.DrawBezier(p, 11,11, 88,333...
阅读全文
GDI+ 学习记录(14) 饼图 - Pie[转]
摘要：//饼图描边与填充varg: TGPGraphics;p: TGPPen;sb: TGPSolidBrush;beging := TGPGraphics.Create(Canvas.Handle);sb := TGPSolidBrush.Create(MakeColor(255,255,255));...
阅读全文
GDI+ 学习记录(15) 多边形 - Polygon[转]
摘要：varg:TGPGraphics;p:TGPPen;sb:TGPSolidBrush;pts:array[0..4] ofTGPPoint;beging:=TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);p:=TGPPen.Create(acl...
阅读全文
GDI+ 学习记录(13) 弧线 - Arc[转]
摘要：//画弧线varg: TGPGraphics;p: TGPPen;beging := TGPGraphics.Create(Canvas.Handle);p := TGPPen.Create(MakeColor(255,0,0),2);g.DrawArc(p,11,32,300,200,0,90);...
阅读全文
GDI+ 学习记录(12) 矩形 - Rectangle、Rectangles[转]
摘要：//填充与描边varg: TGPGraphics;p: TGPPen;sb: TGPSolidBrush;beging := TGPGraphics.Create(Canvas.Handle);sb := TGPSolidBrush.Create(MakeColor(255,255,255));p ...
阅读全文
GDI+ 学习记录(11) 路径渐变画刷 - PathGradientBrush[转]
摘要：//路径渐变画刷varg: TGPGraphics;path: TGPGraphicsPath;pb: TGPPathGradientBrush; {声明渐变画刷}num: Integer;constcolors: array[0..0] ofTGPColor = (aclAqua);beging ...
阅读全文
GDI+ 学习记录(10) 线性渐变画刷 - LinearGradientBrush[转]
摘要：//线性渐变画刷varg: TGPGraphics;lb: TGPLinearGradientBrush;rect: TGPRect;beging := TGPGraphics.Create(Canvas.Handle);rect := MakeRect(11,11,222,111);lb := T...
阅读全文
GDI+ 学习记录(9) 纹理画刷 - TextureBrush[转]
摘要：//纹理画刷varg: TGPGraphics;img: TGPImage;tb: TGPTextureBrush;beging := TGPGraphics.Create(Canvas.Handle);img := TGPImage.Create('d:\mm.jpg');tb := TGPTex...
阅读全文
GDI+ 学习记录(8) 阴影画刷 - HatchBrush[转]
摘要：//阴影画刷varg: TGPGraphics;hb: TGPHatchBrush;beging := TGPGraphics.Create(Canvas.Handle);hb := TGPHatchBrush.Create(HatchStyleHorizontal, aclRed, aclYell...
阅读全文
GDI+ 学习记录(7) 实心画刷 - SolidBrush[转]
摘要：//实心画刷varg: TGPGraphics;sb: TGPSolidBrush;beging := TGPGraphics.Create(Canvas.Handle);sb := TGPSolidBrush.Create(aclGreen); {参数是颜色}g.FillEllipse(sb, 1...
阅读全文
GDI+ 学习记录(6) 使用画刷建立画笔[转]
摘要：//使用画刷建立画笔varg: TGPGraphics;img: TGPImage;tb: TGPTextureBrush;p: TGPPen;beging := TGPGraphics.Create(Canvas.Handle);img := TGPImage.Create('d:\mm.jpg'...
阅读全文
GDI+ 学习记录(5) 复合画笔[转]
摘要：//复合画笔varg: TGPGraphics;p: TGPPen;arr: array[0..9] ofSingle; {10 个元素可以分成 5 条线, 每条线需要起点和终点}beging := TGPGraphics.Create(Canvas.Handle);p := TGPPen.Crea...
阅读全文
GDI+ 学习记录(3) 虚线画笔 - Dash[转]
摘要：//虚线样式varg:TGPGraphics;p:TGPPen;beging:=TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);p:=TGPPen.Create(aclRed,5);g.DrawLine(p,30,50,200,50);{实线}...
阅读全文
GDI+ 学习记录(4) 画笔对齐[转]
摘要：//笔对齐varg: TGPGraphics;p: TGPPen;sb: TGPSolidBrush;rect: TGPRect;beging := TGPGraphics.Create(Canvas.Handle);p := TGPPen.Create(MakeColor(255,255,0,0)...
阅读全文
GDI+ 学习记录(2) 画笔线帽 - Cap[转]
摘要：//线帽varg: TGPGraphics;p: TGPPen;beging:=TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);p:=TGPPen.Create(aclRed,5);p.SetStartCap(LineCapArrowAncho...
阅读全文
GDI+ 学习记录(1) 画笔 - Pen[转]
摘要：//画笔varg: TGPGraphics;p: TGPPen;beging := TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);p:=TGPPen.Create(aclRed,5);{参数1颜色; 参数2是笔宽, 笔宽是可选, 默认 1}g...
阅读全文
Delphi下的GDI+编程[10] 绘制饼形-DrawPie[转]
摘要：本例效果图：DrawPie：绘制一个扇形，该形状由一个坐标对、宽度、高度以及从起始角度到旋转角度的两条射线所连接的椭圆定义。procedureTForm1.FormPaint(Sender: TObject);//编程form1的onPaint事件代码如下varg:TGPGraphics; //定义...
阅读全文
Delphi下的GDI+编程[9] 绘制椭圆-DrawEllipse[转]
摘要：本例效果图：DrawEllipse：绘制一个由边框（该边框由一对坐标、高度和宽度指定）定义的椭圆。unitUnit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dial...
阅读全文
Delphi下的GDI+编程[8] 绘制弧形-DrawArc[转]
摘要：本例效果图：DrawArc：绘制一段弧线，它表示由一对坐标、宽度和高度指定的‘椭圆’的一部分。2010.12.3 我再重新学习了这个，可能格的太长时间没练习了，结果因为在旋转角度那块理解错误，致使外圆的线画出来只有一种颜色，搞的我还以为是D2010的BUG呢，呵呵varg: TGPGraphics;...
阅读全文
Delphi下的GDI+编程[7] 单色画刷-SolidBrush & 填充矩形-FillRectangle[转]
摘要：本例效果图：SolidBrush：定义单色画笔。画笔用于填充图形形状，如矩形、椭圆、扇形、多边形和封闭路径。FillRectangle：填充由一对坐标、一个宽度和一个高度指定的矩形的内部unitUnit1;interfaceusesWindows, Messages, SysUtils, Varia...
阅读全文
浙公网安备 33010602011771号