再学 GDI+[9]: DrawPolygon - 绘制多边形
2008-06-09 10:58
274 查看
本例效果图:
代码文件:
窗体文件:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormPaint(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses GDIPOBJ, GDIPAPI; var PtArr: array of TGPPoint; i: Integer = 0; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Canvas.Ellipse(X-2, Y-2, X+2, Y+2); Inc(i); SetLength(PtArr, i); PtArr[i-1].X := X; PtArr[i-1].Y := Y; Text := IntToStr(i); end; procedure TForm1.FormPaint(Sender: TObject); var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(aclRed, 2); g.Clear(aclWhite); {如果是动态数组的话, 需要 @PtArr, 但动态数组本身就是个指针} g.DrawPolygon(p, PGPPoint(PtArr), Length(PtArr)); g.Free; p.Free; end; procedure TForm1.Button1Click(Sender: TObject); begin i := 0; SetLength(PtArr, i); Repaint; Text := IntToStr(i); end; procedure TForm1.Button2Click(Sender: TObject); begin Repaint; end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 188 ClientWidth = 264 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnMouseUp = FormMouseUp OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 98 Top = 155 Width = 75 Height = 25 Caption = #25830#38500 TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 179 Top = 155 Width = 75 Height = 25 Caption = #32472#21046 TabOrder = 1 OnClick = Button2Click end end
相关文章推荐
- 再学 GDI+[9] DrawPolygon - 绘制多边形
- CCDrawNode(是一个节点有drawDot drawSegment drawPolygon方法 可以类绘制点 线段 多边形--与drawing primitives不同 采用批渲染)
- 用线框模式绘制多边形 glPolygonMode
- GDI+ 学习记录(15): 多边形 - Polygon
- 再学 GDI+[10]: DrawClosedCurve - 绘制闭合曲线
- 再学 GDI+[10] DrawClosedCurve - 绘制闭合曲线
- 【Silverlight】Bing Maps学习系列(五):绘制多边形(Polygon)图形
- 再学 GDI+[11]: DrawCurve - 绘制曲线
- 【Silverlight】Bing Maps学习系列(五):绘制多边形(Polygon)图形(转)
- 【Silverlight】Bing Maps学习系列(五):绘制多边形(Polygon)图形
- [RGEOS]绘制多边形Polygon
- Delphi下的GDI+编程[10] 绘制饼形-DrawPie
- GDI+ 学习记录(15) 多边形 - Polygon
- 【Silverlight】Bing Maps学习系列(五):绘制多边形(Polygon)图形
- 利用GDI+绘制任意边数的多边形窗体
- WinAPI: Polygon - 绘制多边形
- 再学 GDI+[13]: DrawBezier - 绘制贝塞尔线
- drawRect 绘制矩形 drawCircle 绘制圆形 drawOval 绘制椭圆 drawPath 绘制任意多边形 * drawLine 绘制直线 drawPoin 绘制点
- PolygonDrawingUtil 多边形绘制
- 再学 GDI+[13] DrawBezier - 绘制贝塞尔线