API 绘图函数 - 随笔分类(第3页) - 万一

WinAPI: CreateSolidBrush - 建立实心画刷

摘要：//声明: CreateSolidBrush( p1: COLORREF {颜色值} ): HBRUSH; {返回画刷句柄} //举例: procedure TForm1.FormPaint(Sender: TObject); var BrushHandle: HBRUSH; begin BrushHandle := CreateSolidBrush(clYellow);... 阅读全文

posted @ 2008-02-10 14:03 万一阅读(3873) 评论(4) 推荐(0) 编辑

WinAPI: CreatePenIndirect - 根据笔的参数结构建立画笔

摘要：//声明: CreatePenIndirect( const LogPen: TLogPen {笔结构} ): HPEN; {返回笔句柄} //TLogPen 是 tagLOGPEN 结构的重定义: tagLOGPEN = packed record lopnStyle: UINT; {笔样式} lopnWidth: TPoint; {笔... 阅读全文

posted @ 2008-02-10 13:12 万一阅读(2398) 评论(0) 推荐(0) 编辑

WinAPI: CreatePen - 建立画笔

摘要：//声明: CreatePen( Style, Width: Integer; {样式与笔宽} Color: COLORREF {颜色} ): HPEN; {返回笔句柄} //Style 参数可选值: PS_SOLID = 0; {实线} PS_DASH = 1; {段线; 要求笔宽 //举例: procedur... 阅读全文

posted @ 2008-02-10 11:26 万一阅读(9164) 评论(0) 推荐(0) 编辑

WinAPI: PolyPolyline - 绘制多组线段

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

posted @ 2008-02-09 20:55 万一阅读(3899) 评论(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 万一阅读(3076) 评论(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 万一阅读(2311) 评论(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 万一阅读(2205) 评论(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 万一阅读(2565) 评论(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 万一阅读(2502) 评论(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 万一阅读(3447) 评论(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 万一阅读(5686) 评论(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 万一阅读(1898) 评论(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 万一阅读(2862) 评论(0) 推荐(0) 编辑

WinAPI: RoundRect - 绘制圆角矩形

摘要：//声明: RoundRect( DC: HDC; {设备环境句柄} X1, Y1, X2, Y2, X3, Y3: Integer {点1、点2是构成矩形的坐标; X3是圆角宽度、Y3是圆角高度} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const x1... 阅读全文

posted @ 2008-02-09 16:59 万一阅读(4829) 评论(0) 推荐(0) 编辑

WinAPI: Ellipse - 绘制椭圆

摘要：//声明: Ellipse( DC: HDC; {设备环境句柄} X1, Y1, X2, Y2: Integer {两个点的坐标} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const x1 = 20; y1 = 20; x2 = 200; y2 = 100; ... 阅读全文

posted @ 2008-02-09 16:51 万一阅读(2718) 评论(0) 推荐(0) 编辑

WinAPI: Rectangle - 绘制矩形

摘要：//声明: Rectangle( DC: HDC; {设备环境句柄} X1, Y1, X2, Y2: Integer {两个点的坐标} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const x1 = 20; y1 = 20; x2 = 200; y2 = 100... 阅读全文

posted @ 2008-02-09 16:45 万一阅读(3728) 评论(0) 推荐(0) 编辑

WinAPI: Pie - 绘制饼图

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

posted @ 2008-02-09 16:35 万一阅读(2992) 评论(0) 推荐(0) 编辑

WinAPI: MoveToEx 与 LineTo - 绘制直线

摘要：//声明: MoveToEx( DC: HDC; {设备环境句柄} p2, p3: Integer; {坐标} p4: PPoint {用于保存 p2、p3 值的 TPoint 结构的指针} ): BOOL; LineTo( DC: HDC; {设备环境句柄} X, Y: Integer {直线终点坐标} ): BOOL; //举例... 阅读全文

posted @ 2008-02-09 15:58 万一阅读(6427) 评论(4) 推荐(0) 编辑

积分与排名

随笔分类 (2445)

随笔档案 (2145)

最新评论

随笔分类 - API 绘图函数