2020年1月19日
虚线 转 不得闲
摘要： procedure DrawVirtualLine(Cvs: TCanvas;FromP,ToP: TPoint);var i: integer; Xl: Single; x,y: Integer;begin Cvs.MoveTo(FromP.x,FromP.y); if FromP.x = ToP 阅读全文
posted @ 2020-01-19 15:37 绿水青山777 阅读(101) 评论(0) 推荐(0) 编辑