不用这个函数了,要画线可以参考:
- while(1)
- get_mbutton (WindowHandle, Row, Column, Button)
- if(Button==1)
- Rows:=[Rows,Row]
- Cols:=[Cols,Column]
- *产生一个空显示对象,用于显示
- gen_empty_obj(objArrow)
- if(|Rows|>1)
- for i := 0 to |Rows|-2 by 1
- gen_arrow_contour_xld (Arrow, Rows[i], Cols[i], Rows[i+1], Cols[i+1], 25, 25)
- concat_obj (objArrow, Arrow, objArrow)
- endfor
- endif
- else
- if(Button==4)
- if(|Rows|>1)
- distance_pp (Rows[0], Cols[0], Rows[|Rows|-1], Cols[|Rows|-1], Distance)
- if(Distance<5)
- if(Rows[|Rows|-1]!=Rows[0] or Cols[|Cols|-1]!=Cols[0])
- Rows:=[Rows,Rows[0]]
- Cols:=[Cols,Cols[0]]
- endif
- endif
- endif
- break
- endif
- endif
- endwhile
复制代码 |