万一 - 博客园

2008年2月9日

摘要： //声明: PolyPolyline( DC: HDC; {设备环境句柄} var Points; {点数组} var nPoints;{数组, 数组元素是每个组的顶点数} p4: Integer {分组数, 也就是 nPoints 的元素数} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); var... 阅读全文

posted @ 2008-02-09 20:55 万一阅读(3936) 评论(0) 推荐(0)

WinAPI: PolyPolygon - 绘制一组多边形

摘要： //声明: PolyPolygon( DC: HDC; {设备环境句柄} var Points; {点数组} var nPoints;{数组, 数组元素是每个多边形的顶点数} p4: Integer {多边形数, 也就是 nPoints 的元素数} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); v... 阅读全文

posted @ 2008-02-09 20:46 万一阅读(3106) 评论(0) 推荐(0)

WinAPI: PolylineTo - 绘制一组连续线段(更新当前位置)

摘要： //声明: PolylineTo( DC: HDC; {设备环境句柄} var Points; {点数组} Count: Integer {数组元素个数} ): BOOL; //如果不给 PolylineTo 指定起点, 将默认 0 点位起点 procedure TForm1.FormPaint(Sender: TObject); var ps: array... 阅读全文

posted @ 2008-02-09 20:23 万一阅读(2335) 评论(0) 推荐(0)

WinAPI: Polyline - 绘制一组连续线段

摘要： //声明: Polyline( DC: HDC; {设备环境句柄} var Points; {点数组} Count: Integer {数组元素个数} ): BOOL; {Polyline 与 Polygon 的参数一模一样, 但 Polygon 能自动闭合} //绘制连续直线 Polyline procedure TForm1.FormPaint(Sende... 阅读全文

posted @ 2008-02-09 20:08 万一阅读(2224) 评论(0) 推荐(0)

WinAPI: Polygon - 绘制多边形

摘要： //声明: Polygon( DC: HDC; {设备环境句柄} var Points; {点数组} Count: Integer {数组元素个数} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); var ps: array[0..5] of TPoint; begin ps[0].... 阅读全文

posted @ 2008-02-09 20:04 万一阅读(2596) 评论(0) 推荐(0)

WinAPI: PolyBezierTo - 绘制贝塞尔线(更新当前位置)

摘要： //声明: PolyBezierTo( DC: HDC; {设备环境句柄} const Points; {点数组} Count: DWORD {数组元素个数} ): BOOL; //需要给 PolyBezierTo 指定起始点 procedure TForm1.FormPaint(Sender: TObject); var ps: array[0..2] of T... 阅读全文

posted @ 2008-02-09 19:43 万一阅读(2530) 评论(5) 推荐(0)

WinAPI: PolyBezier - 绘制贝塞尔线

摘要： //声明: PolyBezier( DC: HDC; {设备环境句柄} const Points; {点数组} Count: DWORD {数组元素个数} ): BOOL; //一条贝塞尔线最少要有 4 个点 procedure TForm1.FormPaint(Sender: TObject); var ps: array[0..3] of TPoint; be... 阅读全文

posted @ 2008-02-09 19:08 万一阅读(3474) 评论(0) 推荐(0)

WinAPI: DrawFocusRect - 绘制焦点矩形

摘要： //声明: DrawFocusRect( hDC: HDC; {设备环境句柄} const lprc: TRect {矩形结构} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); var MyRect: TRect; begin MyRect := Rect(20,20, 180,100);... 阅读全文

posted @ 2008-02-09 18:42 万一阅读(5720) 评论(5) 推荐(0)

WinAPI: Chord - 绘制弦

摘要： //声明: Chord( DC: HDC; {设备环境句柄} X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer {四个坐标点} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const x1 = 10; y1 ... 阅读全文

posted @ 2008-02-09 17:59 万一阅读(1919) 评论(0) 推荐(0)

WinAPI: Arc - 绘制弧线

摘要： //声明: Arc( DC: HDC; {设备环境句柄} X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer {四个坐标点} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const x1 = 10; y1 = ... 阅读全文

posted @ 2008-02-09 17:33 万一阅读(2890) 评论(0) 推荐(0)