摘要：
//声明: 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)
摘要：
//声明: 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)
摘要：
//声明: 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)
摘要：
//声明: 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)
摘要：
//声明: 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)
摘要：
//声明: 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)
摘要：
//声明: 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)
摘要：
//声明: 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)
摘要：
//声明: 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)
摘要：
//声明: 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)
摘要：
//声明: 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
万一
阅读(4896)
评论(0)
推荐(0)
摘要：
//声明: 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
万一
阅读(2746)
评论(0)
推荐(0)
摘要：
//声明: 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
万一
阅读(3762)
评论(0)
推荐(0)
摘要：
//声明: 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
万一
阅读(3012)
评论(0)
推荐(0)
摘要：
//声明: 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
万一
阅读(6471)
评论(4)
推荐(0)
摘要：
//声明: CreateFontIndirect( const p1: TLogFont {字体结构} ): HFONT; {返回新字体指针} //TLogFont 是 tagLOGFONTA 结构的重定义: tagLOGFONTA = packed record lfHeight: Longint; {字体高度} lfWidth: Longint;... 阅读全文
posted @ 2008-02-09 15:08
万一
阅读(12069)
评论(5)
推荐(3)
摘要：
//声明: GetCharABCWidths( DC: HDC; {设备环境句柄} FirstChar, LastChar: UINT; {范围内的第一个和最后一个字符值} const ABCStructs {接受每个字符信息的 TABC 结构数组} ): BOOL; //TABC 类型是 _ABC 结构的重定义: _ABC ... 阅读全文
posted @ 2008-02-09 12:42
万一
阅读(4205)
评论(0)
推荐(0)
摘要：
//声明: GetCharWidth( DC: HDC; {设备环境句柄} FirstChar, LastChar: UINT; {范围内的第一个和最后一个字符值} const Widths {接受每个字符宽度值的整型数组} ): BOOL; GetCharWidth32( DC: HDC; ... 阅读全文
posted @ 2008-02-09 11:55
万一
阅读(6509)
评论(2)
推荐(1)
摘要：
//声明: GetTextFace( DC: HDC; {设备环境句柄} Count: Integer; {缓冲区大小} Buffer: PChar {缓冲区} ): Integer; {返回字符串长度} //举例: var dc: HDC; b: array[0..254] of Char; num: Integer; begin ... 阅读全文
posted @ 2008-02-09 11:20
万一
阅读(3291)
评论(0)
推荐(0)
浙公网安备 33010602011771号