2017 年 1月 28 日随笔档案 - del88

2017年1月28日

摘要： procedure TForm4.Button7Click(Sender: TObject); var pwith: Integer; //画笔的宽度 hx1, hy1: Integer; //横线第一个点 hx2, hy2: Integer; //横线的终点 sx1, sy1: Integer; //竖线第一个点 sx2, sy2: Integer; //竖线终点 ... 阅读全文

posted @ 2017-01-28 16:39 del88 阅读(1644) 评论(1) 推荐(0) 编辑