2020年8月22日
Timage Canvas画图
摘要： procedure TForm1.Button1Click(Sender: TObject);var i:integer;begini:=0;With Image1.Canvas DoBeginPen.Color:=clWindowFrame ;pen.width:=1;rectangle(0,0, 阅读全文
posted @ 2020-08-22 15:02 南国之恋 阅读(169) 评论(0) 推荐(0) 编辑