有谁可以帮我解说一下API函数的用法：PolyPolyline (0分)

hooyu · 2002-11-07

如题：谢谢

hooyu · 2002-11-07

晕，没人用过PlyPolyLine函数吗？有谁可以帮我解说他的参数?

Another_eYes · 2002-11-07

很简单。一条语句画多个polyline

Another_eYes · 2002-11-07

第一个参数存放画这多个polyline所有用到的点坐标。 第二个参数存放每个polyline所对应的点数 第三个参数是总共有几个polyline

TrueBing · 2002-11-07

procedure Polyline(const Points: array of TPoint; StartIndex: Integer = 0; NumPts: Integer = -1); Description Points  //要连接的点的数组 Use Polyline to connect a set of points on the canvas. //连接一系列的点 If you specify only two points, Polyline draws a single line. //如果POINTS只有两个点，则只连接这两个点 The Points parameter is an array of points to be connected. StartIndex//画线开始的点 StartIndex identifies the first point in the array to use. NumPts//指定多少个点有效，如果是－1则所有的点有效 NumPts indicates the number of points to use. If NumPts is －1 (the default), PolyLine uses all the points from StartIndex to the end of the array.

hooyu · 2002-11-07

Another_eYes按你所说,是否如下: 参数说明: BOOL PolyPolyline(     HDC hdc, //用于画线的设备句柄(TForm.Canvas.Handle)     CONST POINT *lppt, //存放画多个polyline线所有用到的点坐标。     CONST DWORD *lpdwPolyPoints, // 存放每个polyline所对应的点数     DWORD cCount // 总共有几个polyline   &nbsp

; 那么,我应怎么调用这个函数呢？怎么给他赋值。我根据帮助找来一个例子，请帮我解读一下： procedure TForm1.Button1Click(Sender: TObject); var   PolyPolyPoints, PolyLengths: TList;   procedure AddPolyline(const Args: array of const);   var i: Integer;   begin     {将数组的值写入PolyPolyPoints}     for i := 0 to High(Args) do {High(Args),取Args的下标,即数组值个数}       PolyPolyPoints.Add(Pointer(Args.VInteger));     PolyLengths.Add(Pointer((High(Args) + 1) div 2));   end; begin   PolyPolyPoints:=TList.Create;   PolyLengths:=TList.Create;   //AddPolyline([5,5,5,40,50,40,50,5]);   //AddPolyline([5,40,50,40,50,5]);   AddPolyline([1,1,1,100,150,100,150,1,1,1]);   PolyPolyline(Form1.Canvas.Handle,PolyPolyPoints.List^, PolyLengths.List^, PolyLengths.Count); end;

fssky · 2002-11-07

你的例子我还没看，先着看看这个 procedure TForm1.Button1Click(Sender: TObject); const   C_ARR_POINT: array[0..7, 0..1] of Integer = ((50,50),(80,50),(80,40),(90,54),(80,68),(80,58),(50,58),(50,50)); var   hWinDc: HDC;   ptArrPoint: array[0..7] of TPoint;   i: Integer; begin   for i := Low(ptArrPoint) to High(ptArrPoint) do   begin     ptArrPoint.X := C_ARR_POINT[i, 0];     ptArrPoint.Y := C_ARR_POINT[i, 1];   end;   hWinDc := GetDC(Handle);   try     Polyline(hWinDc, PPointer(@ptArrPoint)^, i);   finally     ReleaseDC(Handle, hWinDc);   end; end;

Another_eYes · 2002-11-07

别的不说，这个肯定不对： PolyPolyPoints.List^ 也许你误解了， polyline中Points是个array of TPoint, 而不是array of PPoint 即数组中每个元素都是一个TPoint结构（2个整数） 而TList.List指向的是一个array of Pointer结构，每个元素都是一个指针(32位整型数)。

fssky · 2002-11-08

Another_eYes说得对,Hooyu,你的例子是不会正常运行的

hooyu · 2002-11-08

回复：fssky       首先谢谢你，但不知C_ARR_POINT函数有何用？ 回复：Another_eYes      我上面的代码在DELPHI 5上运行正常，可以在窗体上绘出一个长方形。 PolyPolyPoints.List^是对的，也正是我不明白的地方。

panjf · 2002-11-08

【操作系统】 Win9X:Yes WinNT:Yes 【说明】   用当前选定画笔描绘两个或多个多边形 【返回值】   Long，非零表示成功，零表示失败 【其它】   这个函数几乎与PolyPolygon函数完全一致，只是多边形不会填充，也不需要封闭 【参数表】   hdc ------------  Long，要在其中绘图的设备场景   lpPoint   POINTAPI，nCount POINTAPI结构数组中的第一个POINTAPI结构   lpdwPolyPoints -  Long，在Long值数组中的第一个条目。每个条目都包含了构成一个多边形的点数。lpPoint数组由一系列多边形构成，每个在lpdwPolyPoints数组中都有一个条目   cCount ---------  Long，要描绘的多边形总数（就是lpdwPolyPoints数组的大小）

hooyu · 2002-11-08

回复：fssky     C_ARR_POINT,原来是个数组.谢谢

fssky · 2002-11-08

hooyu，你的例子我仔细看了，确实是可以执行的不会出错， 通过PolyPolyPoints.Add(Pointer(Args.VInteger))将每个元素做为一个地址保存在 PolyPolyPoints.List^中，虽然每个地址指向的内容可能无效，但array of TPoint 与 array of Pointer在内存的结构是一样的，所以能够正常执行！

hooyu · 2002-11-08

回复:fssky     虽然array of TPoint 与array of Pointer在内存的结构一样， 但是TPoint结构（2个整数）,而TList.List指向的是一个array of Pointer结构， 每个元素都是一个指针(32位整型数),那他取出来的数不就是[(1),(2),(3),(4)], 可是实际画线时好像又是两个数一组一组取出来的,这是为何?

fssky · 2002-11-08

TPoint结构虽然是两个整数但在内存中还是一个接一个存放的：  +---------+  +   X     + /  +---------+ - TPoint  +   Y     + /  +---------+ array of TPoint 就是动态个这样的结构存在：  +---------+  +   X     + /  +---------+ - TPoint1  +   Y     + /  +---------+  +   X     + /  +---------+ - TPoint2  +   Y     + /  +---------+  +   .     +  +   .     +  +   .     + array of Pointer 也是这样的：  +---------+  +  Addr1  + /  指向的地址也许无效，不能念问!但系统处理的只是这个地址值！  +---------+ - 是不是相当于一个TPoint  +  Addr2  + /  +---------+ 只是将TPoint中的每个整数以地址的形式存放在Pointer数组中， 只要将这个结构的首地址传给API，系统处理还是一样的的.

fssky · 2002-11-08

如果你觉得迷惑，就直接利用array of TPoint吧，这样方便，又安全，我可以贴个例子出来 上面的例子，你是忘记了将TList释放掉吧，造了内存泄露!

hooyu · 2002-11-08

回复Fssky:     谢谢你的帮助,我想我已经基本了解了.我现在正在研究EHLIB控件的TPrintDBGridEh, 不知你是否使用此控件,我想你能帮助我的,不知可否?    我的E-Mail:hahong@163.com QQ:723334

fssky · 2002-11-08

呵呵，不用客气，大家互相学习吧，EHLib这个控件也使用过，你如果有什么问题可以 提出来，共同探讨！

hooyu · 2002-11-08

我现在在EHLIB V2.0的基础上增加了保存打印设置功能(纸张,字体,边距等, 现在我准备再增加两项功能: 1:打印时增加页小计. 2.增加固定列打印功能. 我已经读了一天的原代码了,正在做第二项工作.

fssky · 2002-11-08

to hooyu: 1、页小计功能好像控件本身已经有了吧 2、固定列打印是什么意思？难道他现在打印的都是不固定的？

有谁可以帮我解说一下API函数的用法：PolyPolyline (0分)

hooyu

Unregistered / Unconfirmed

hooyu

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

TrueBing

Unregistered / Unconfirmed

hooyu

Unregistered / Unconfirmed

fssky

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

fssky

Unregistered / Unconfirmed

hooyu

Unregistered / Unconfirmed

panjf

Unregistered / Unconfirmed

hooyu

Unregistered / Unconfirmed

fssky

Unregistered / Unconfirmed

hooyu

Unregistered / Unconfirmed

fssky

Unregistered / Unconfirmed

fssky

Unregistered / Unconfirmed

hooyu

Unregistered / Unconfirmed

fssky

Unregistered / Unconfirmed

hooyu

Unregistered / Unconfirmed

fssky

Unregistered / Unconfirmed

Similar threads