Delphi 绘制艺术图案.rar

Delphi绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式。　　self.ClientHeight:=200;　　self.ClientWidth:=200;　　r:=self.ClientWidth/2;　　Sect:=20;　　fori:=0toSect-1do　　begin　　x[i]:=Trunc(r*Cos(i*2*PI/Sect)self.ClientWidth/2);　　y[i]:=Trunc(r*Sin(i*2*PI/Sect)self.ClientHeight/2);　　end;